在 Delphi 中写入文本文件

Question

嗨，我正在尝试制作一个写入文本文件的 delphi 程序 目前为止没能做到，只有一个细节是程序多次使用时写得很好

hi
hi
hi

我需要这样做

hihihi

我目前的代码是这样的

TForm1.Button1Click procedure (Sender: TObject);
var
   File: TextFile;

begin

   AssignFile (file, 'aca.txt');
   / / FileMode: = fmOpenWrite;

   if FileExists ('aca.txt') then
     Append (file)
   else
     Rewrite (file);

   Writeln (file, 'hi');
   CloseFile (file);

end;

Answer 1

使用Write 代替WriteLn。

Answer 2

试试 TStrings

var
  ALines: TStrings;
begin
  ALines := TStringList.Create;
  try
    ALines.LoadFromFile('textfile.txt');

    Alines.Add('New Content');

    ALines.SaveToFile('textfile.txt');
  finally
    ALines.Free;
  end;
end;