[Crack502]

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); - здесь пишет ошибку.
Что я делаю не так?

[NIch]

Сделай так...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 f : textfile;
begin
 If FileExists('1.txt') then
 begin
  ShowMessage('Файл существует');
  AssignFile(f, '1.txt');
  append(f);
  text:=Edit1.Text;
  seek(f, filesize(f)-1);
  write(f, text);
  CloseFile(f); 
 end 
 else
  ShowMessage('Файла не существует');
end;

[beavi5]

советую почитать книжку Библия Делфи.. интересная книженция.)

[Crack502]

А! Точно. Я в var написал File, а надобыло TextFile. Спасибо большое.