Помогите разобраться и справиться с проблемой!
Вылетает ошибка I\O error 32, жалуясь на Append(f) в процедуре SaveToFile
procedure SaveToFile(str:string);
var
f2:TextFile;
FileDir:String;
begin
FileDir:='C:\Users\User\Desktop\lab2\3.txt';
AssignFile(f2,FileDir);
Rewrite(f2);
Writeln(f2,str);
Flush(f2);
CloseFile(f2);
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.text=maskEdit1.text) then begin
MessageDlg('Старый и новый пароль совпадают!',mtInformation,[mbOk],0);
{break}
end
else begin
SaveToFile(maskEdit1.text);
MessageDlg('Пароль успешно обновлен!',mtInformation,[mbOk],0);
Form1.show;
Form2.close;
Form3.close;
{break}
end
end;
end.
Этот файл еще используется здесь:
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f,'C:\Users\User\Desktop\lab2\1.txt');
reset(f);
while not eof(f) do begin
readln(f,str);
end;
closefile(f);
AssignFile(f2,'C:\Users\User\Desktop\lab2\3.txt');
reset(f2);
while not eof(f2) do begin
readln(f2,str2);
end;
while True do begin
begin
if (str=edit1.Text) and (maskEdit1.text=str2) and (edit1.text<>maskEdit1.text) then begin
Form2.Show;
break
end
else begin
MessageDlg('Логин и пароль не верные! Вход в систему запрещен! Оставшееся количество попыток ввода - '+ IntToStr(i) +' ',mtInformation,[mbOk],0);
break;
end
end;
end;
end;
end.
Примечание:
Процедура SaveToFile вернее выглядит так!!!
procedure SaveToFile(str:string);
var
f2:TextFile;
FileDir:String;
begin
FileDir:='C:\Users\User\Desktop\lab2\3.txt';
AssignFile(f2,FileDir);
if not FileExists(FileDir) then
begin
Rewrite(f2);
CloseFile(f2);
end;
Append(f2);
Writeln(f2,str);
Flush(f2);
CloseFile(f2);
end;
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.