var procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var F: TextFile; begin if Key=#13 then begin AssignFile(F, 'C:\abc.txt'); Rewrite(F); Writeln(F,Edit1.Text); CloseFile(F); end; end;
if Key=#13 then begin AssignFile(F, 'C:\abc.txt'); if FileExists('C:\abc.txt') then Append(F) else ReWrite(F); Writeln(F,Edit1.Text); CloseFile(F); end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
F: TextFile;
begin
if Key=#13 then
begin
AssignFile(F, 'C:\abc.txt');
Rewrite(F);
Writeln(F,Edit1.Text);
CloseFile(F);
end;
end;
begin
AssignFile(F, 'C:\abc.txt');
if FileExists('C:\abc.txt') then
Append(F)
else
ReWrite(F);
Writeln(F,Edit1.Text);
CloseFile(F);
end;