delphi - 在 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;