[Delphi] Не могу записать в файл.

[ebahhh_official]

Делаю формы для изменения пароля. Чтобы войти в личный кабинет, пароль считывается из файла, сравнивается и пускает. Далее есть кнопка изменить пароль, где просит ввести старый пароль, ввожу старый пароль, кидает на следующую форму, где нужно ввести 2 одинаковых новых пароля. Проверка условия, если пароли одинаковые, то выводим соотв. сообщение, переменной строки (а) присваиваем значение компонента Edit, и записываем строку а в файл f. Но что-то не идет, и ругается, вот код:

 procedure TForm5.Button1Click(Sender: TObject);
var a:string; f:TextFile;
begin
  AssignFile(f,'pass.nig');
  Reset(f);
  read(f,a);
if (Edit2.Text <> Edit3.Text) then ShowMessage('Пароли не совпадают!') else
  begin
  ShowMessage('Пароль успешно изменен!');
  a:=Edit3.Text;
  write(f,a);
  closefile(f);
  end;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

[Вадим Мошев]

У вас используется процедура Reset(<файл>). В случае текстового файла (а у вас он такой) она его открывает только на чтение (http://pascal.net.ru/Reset). Используйте rewrite.

Кроме того, я бы советовал открывать и закрывать файл на одном уровне, то есть, если вы его открываете ВНЕ условного оператора, то и закрывайте тоже вне оператора if (после него, а не в else, как это у вас сейчас)

[ebahhh_official]

Все, вопрос решил, оказывается на предыдущей форме просто напросто не закрыл этот файл.