09.12.2009, 19:58
|
|
Начинающий
|
|
Регистрация: 20.11.2009
Сообщения: 109
Репутация: 5
|
|
Проблема решена самостоятельно!
PHP код:
//Чтение из файла
label m;
var f:textfile;
l1,l2:string;
begin
assignfile(f,'Paroli.txt');
{$I-}
reset(f);
{$I+}
readln(f,l1);
if l1<>'/1' then begin Application.MessageBox('Нарушена целостность пароля','error'); goto m; end;
readln(f,l1);
readln(f,l2);
if l2<>'/2' then begin Application.MessageBox('Нарушена целостность пароля','error'); goto m; end;
readln(f,l2);
closefile(f);
If (Edit1.Text='Администратор') and (Edit2.Text=l1) then
begin
end
else
If (Edit1.Text='Продавец') and (Edit2.Text=l2) then
begin
end;
m:
Записать в файл
PHP код:
label m;
var f:textfile;
p1,p12,p2,p22,p3,p32:string;
begin
p1:=Edit1.Text;
p12:=Edit2.Text;
p2:=Edit3.Text;
p22:=Edit4.Text;
if (p1<>p12) or (p2<>p22) then begin Application.MessageBox('Пароли не совпадают','error'); goto m; end;
assignfile(f,'Paroli.txt');
{$I-}
rewrite(f);
{$I+}
writeln(f,'/1');
writeln(f,p1);
writeln(f,'/2');
writeln(f,p2);
closefile(f);
ShowMessage('Пароли изменены');
close;
m:
Вот и все, все дела!
P.S для людей которые озадачились такой же проблемой!
|