Хочу вписать текст в файл. В чем ошибка?
Код HTML:
procedure TForm1.Button1Click(Sender: TObject);
begin
If FileExists('1.txt') then
begin
ShowMessage('Файл существует');
AssignFile(f, '1.txt');
write(f);
text:=Edit1.Text;
writeLn(f, text);
CloseFile(f); end else
CloseFile(f);
end;
writeLn( f, text); - здесь пишет ошибку.
Что я делаю не так? |