[toNN]

Код:

AssignFile(f, 'data/password.txt');
AssinFile(f, pass);
reset(f);
CloseFile(f);
AssignFile(f, 'data/password.txt');
rewrite(f);
spass:=Edit1.text;
npass:=Edit2.text;
ppass:=Edit3.text;
if spass=pass then begin
   if npass=ppass then writeln(f, npass); CloseFile(f) end;

После выполнения процедуры файл оказывается пустым. Условия выполняются 100%

[Страдалецъ]

1. Не понял, зачем вот этот кусок кода:

Код:

AssignFile(f, 'data/password.txt');
AssinFile(f, pass);
reset(f);
CloseFile(f);

2. Сразу вызывает подозрение такой способ задания имени файла:
'data/password.txt'
3. Структурно и логически это неправильно:

Код:

AssignFile(f, 'data/password.txt');
rewrite(f);
...
if spass=pass then begin
   if npass=ppass then writeln(f, npass); CloseFile(f) end;

Т.к. открытие происходит всегда, а вот закрытие по условию.
Попробуйте переделать с учетом замечаний, может все и заработает.

[toNN]

Переделал процедуру с учетом замечаний

Код:

fname:=('data/password.txt');
AssignFile(f, fname);
rewrite(f);
spass:=Edit1.text;
npass:=Edit2.text;
ppass:=Edit3.text;
if spass=pass then begin
   if npass=ppass then writeln(f, npass); end;
CloseFile(f)

И все равно не работает. Причем если файл изначально был пустой то переменная туда выводиться, а если файл содержит текст, то он просто удаляется, но переменная не выводиться.

[PhoeniX]

Код:

var
  fname: string;
  f: textfile;
  pass,opass,npass,ppass: string;
begin
  fname:='c:/pass.txt';
  if FileExists(fname) then begin
    AssignFile(f,fname);
    Reset(f);
    readln(f,pass);
    CloseFile(f);
  end else pass:='';
  opass:=Edit1.Text;
  npass:=Edit2.Text;
  ppass:=Edit3.Text;
  if (pass=opass) and (npass=ppass) then begin
    AssignFile(f,fname);
    Rewrite(f);
    writeln(f,npass);
    CloseFile(f);
  end else begin
    if pass<>opass then ShowMessage('Неверный старый пароль')
    else if npass<>ppass then ShowMessage('Пароль не совпадает с подтверждением');
  end;
end;

Какбэ, у меня этот код работает - всё записывается норм...
Какой тип у f? должен быть textfile

[toNN]

Ну у f тип стоит textfile, собрал свой код на основе твоего все работает, видимо где то с открытием или закрытием файла напортачил =)
з.ы. когда на ленте проходили файлы я безмятежно спал