Цитата:
Сообщение от Хламчег
Не могли бы вы мне подсказать каким образом я могу работать с текстовым файлом, чтобы вытаскивать из него строки и обрабатывать а потом опять записывать в другой текстовик...
|
Примерно так:
delphi Код:
var
PacketsIn, PacketsOut : TStringList; //определение переменных
s : String;
//......................................
procedure Init; //Вызывается при включении скрипта
begin
PacketsIn:=TStringList.Create; //создаем
try
PacketsIn.LoadFromFile('.\scripts\client_strings_ru.xml'); //загружаем из файла
except
msg.Lines.Add('client_strings.xml не найден!');
exit;
end;
PacketsOut:=TStringList.Create;
end;
procedure ProcProc;
var
i:integer;
begin
...
for i:=0 to PacketsIn.Count-1 do
begin
s:=PacketsIn[i]; //считываем строку
...
PacketsOut.Add(s); //записываем строку
end;
...
PacketsOut.SaveToFile('.\scripts\client_strings_ru.ini'); //запись в файл
...
end;
procedure Free; //Вызывается при выключении скрипта
begin
PacketsIn.Clear;
PacketsOut.Clear;
end;
begin
end.