procedure TForm1.Button1Click(Sender: TObject);
var
afile: TFileStream;
begin
if not FileExists('c:\a.txt') then
begin
try
afile := TFileStream.Create('c:\a.txt', fmCreate);
afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
finally
afile.Free;
end;
end
else begin
try
afile := TFileStream.Create('c:\a.txt', fmOpenWrite);
afile.Seek(0, soEnd);
afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
finally
afile.Free;
end;
end;
end;
var
afile: TFileStream;
begin
if not FileExists('c:\a.txt') then
begin
try
afile := TFileStream.Create('c:\a.txt', fmCreate);
afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
finally
afile.Free;
end;
end
else begin
try
afile := TFileStream.Create('c:\a.txt', fmOpenWrite);
afile.Seek(0, soEnd);
afile.WriteBuffer(PChar(Edit1.Text + #13#10)^, Length(Edit1.Text + #13#10));
finally
afile.Free;
end;
end;
end;