[opel431]

Методов хватает, работает не так как надо. »

Инструментов под рукой нет, но на вскидку - вы же заперли сохранение в цикл вычислений

Код:

while value>394 do
        begin
           ...
           ...
           ??? ts.SaveToFile('2.txt');
        end;

да и никто вас не ограничивает работой с одним списком?

[pageYK@fb]

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

[lxa85]

pageYK@fb, есть строка, разбитая на под строки.
Что вам мешает собрать ее обратно?
Если у вас формат файла фиксирован, то и собирайте в цикле

Код:

str = "";
for i = 1 to n do
    str = str+"|"+delimiters[i];

Соотв n - кол-во частей строк
delimiters - полученный "конструктор" подстрочек
str - результирующая строка

[Iska]

opel431, lxa85, а какого-нибудь аналога basic'овского «Join()» в Delphi нету разве?

[pageYK@fb]

lxa85, opel431,
Строки разбиваются (при delimiter = "|") на отделяемое запятыми тоже, поэтому обратно приведенным вами способом не соберешь.
Вот почему мне не нравится этот метод через делимитедтекст.
Поэтому прошу выкладывать решение, а не функцию которую можно применить.(уже n-раз выходит, что возникают только доп.вопросы)

[lxa85]

Iska, честно, не знаю
pageYK@fb, что значит "не соберешь"?
Что отладчик говорит? Что говорят watchdog'и?
Что в полученных структурах, что на выходе?
Вы хоть какую-то информацию к размышлениям давайте.

[opel431]

Встроенного аналога, с параметром разделителя, не нашел (есть обычная Concat), заменяющая +. Так что, или ее или ручками.
pageYK@fb, нужно с интересом подходить к своей задаче. Поковыряюсь параллельно с вами.

Поставил триальный XE4, нашел в справочнике функцию SplitString (функция есть, как минимум с XE) и .... Для наглядность, применил TMemo.
pageYK@fb, дальнейшие "телодвижения" (сортировка, адаптация, оптимизация и все, что вам требуется, делайте сами).

SplitString+

Код:

......
var
  Form1: TForm1;
  ts: TStringList;
......

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n, value: integer;
begin
  if FileExists(ExtractFilePath(Application.ExeName) + '1.txt') then
  begin
    ts := TStringList.Create;

    try
      ts.LoadFromFile(ExtractFilePath(Application.ExeName) +'1.txt');

      for i := 0 to ts.Count - 1 do
      begin
        value := StrToInt((SplitString(ts.Strings[i], '|')[2]));
        n := StrToInt(SplitString(ts.Strings[i], '|')[0]);

        if value > 394 then
          Memo1.Lines.Add(IntToStr(n) + '|' + (SplitString(ts.Strings[i], '|')[1])
            + '|' + IntToStr(value) + '|' + (SplitString(ts.Strings[i], '|')[3]) +
            '|' + (SplitString(ts.Strings[i], '|')[4]) + '|');

        while value > 394 do
        begin
          value := value - 394;
        end;
        n := StrToInt(SplitString(ts.Strings[i], '|')[0]) + 1;
        Memo1.Lines.Add(IntToStr(n) + '|' + (SplitString(ts.Strings[i], '|')[1]) +
        '|' + IntToStr(value) + '|' + (SplitString(ts.Strings[i], '|')[3]) + '|'
        + (SplitString(ts.Strings[i], '|')[4]) + '|');
      end;

    finally
      Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +'2.txt');
      FreeAndNil(ts);
    end;
  end;
end;

Результат
1|325230ш5ш3|438|Лондон|ЛОНДОН, ВЕЛИКОБРИТАНИЯ|
2|325230ш5ш3|44|Лондон|ЛОНДОН, ВЕЛИКОБРИТАНИЯ|
3|32523лпукп4|22|Европа|ДУБЛИН, ИРЛАНДИЯ|
4|32епкупщ4пп|21|Венгрия|БУДАПЕШТ, ВЕНГРИЯ|

[pageYK@fb]

opel431,
Спасибо за splitstring, а memo работает только на кнопке, была бы привязка к форме. Спасибо, и на этом.

[opel431]

а memo работает только на кнопке »

Форма имеет достаточно обработчиков событий для решения ваших желаний.