Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
http://www.delphibasics.ru/TStringList.phpess3nt wrote:Пишу скрипты для себя, хотелось бы иметь лог по их работам, FillNewWindow для этих делов не совсем подходит, хотелось бы данные выгружать именно в файл на локальном диске, спасибо
Подскажите, возможно ли и как такое сделать, если будет пример кода, то ваще замечательно)
Code: Select all
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.Add('This is a test string' + #10#13 + 'This is another test string');
SL.SaveToFile('C:\Test\BadLFPair.txt');
SL.Clear;
SL.Add('This is a test string'+ #13#10 + 'This is another test string');
SL.SaveToFile('C:\Test\BadLFPairFix.txt');
finally
SL.Free;
end;
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;