方法1:
var strs:TStringList;
begin
Strs:=TStringLIst.Create();
Strs.LoadFromFile(FileName)//FileName here
Strs.Add('Datas') //你要的字符串,如果你想添加一行 或者
Strs[Strs.Count-1]:=Strs[Strs.Count-1]+'Datas': //你要的字符串,如果你只想在
//最后一行添加几个字符
Strs.SaveToFile(FileName);
strs.Free;