получилось что то такое..
Code: Select all
procedure writeToFile(some: String);
begin
SL := TStringList.Create;
SL.LoadFromFile('C:\Users\Sasha\Desktop\UO game\logs\test.txt');
SL.Add(some);
SL.SaveToFile('C:\Users\Sasha\Desktop\UO game\logs\test.txt');
SL.Clear;
end;