Кружок нубов(Вопрос-Ответ)

[NLObP]

Сообщение от Хламчег

Не могли бы вы мне подсказать каким образом я могу работать с текстовым файлом, чтобы вытаскивать из него строки и обрабатывать а потом опять записывать в другой текстовик...

Примерно так:

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.