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