写文本文件的问题

Question

如何在文本文件末尾添加内容，文本文件的行数怎么得到？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('C:\a.txt');
    ShowMessage(Format('文件行数: %d', [SL.Count]));
    SL.Text := SL.Text + '附加的文本';
    SL.SaveToFile('C:\a.txt');
  finally
    SL.Free;
  end;
end;

Answer 2

顶1楼的，
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('C:\a.txt');
    ShowMessage(Format('文件行数: %d', [SL.Count]));
    sl.Add('sdfsdfsd');
    SL.SaveToFile('C:\a.txt');
  finally
    SL.Free;
  end;
end;