Добавить строку в TStringList

[мимо]

Здравствуйте. Подскажите как добавить вторую строку в TStringList, если первую я нахожу так

   if (Pos('стоимость', price[Index]) <> 0) then
            temp.Add(price[Index]);

и сразу же мне надо добавить вторую строку, за той где найдена 'стоимость', т.е. нашли строку со 'стоимость' - добавили и за ней следующую строку добавили.
Что во второй строке - неизвестно.

[Kotofff]

Если без проверки на присутствие строки "стоимость" :

temp.Insert(temp.IndexOf('стоимость') + 1, 'Строка после строки Стоимость');

[мимо]

странно работает. в TStringList строка, стоящая после 'стоимость' добавляется перед ней, а нужно после. Да и мне нужно добавлять неизвестную по содержанию строку после 'стоимость'. Добавлять строку не заданную самому, а из текста.

[evg_m]

что то мне подсказывает что надо было вот это

   if (Pos('стоимость', price[Index]) <> 0) then
begin
            temp.Add(price[Index]);//добавили одну строку
      temp.Add(price[Index+1]);//и сразу же добавили другую строку
end;

НО как нам быть если
- добавлять нечего (стоимость была последней)
- стоимость будет найдено в двух и более последовательных строках

[Serge_Bliznykov]

странно работает. в TStringList строка, стоящая после 'стоимость' добавляется перед ней, а нужно после.

НЕ ПОДТВЕРЖДАЮ!
код (C) Kotofff работает так, как ему положено!
нужны доказательства?!

[мимо]

Сообщение от Serge_Bliznykov

НЕ ПОДТВЕРЖДАЮ!
код (C) Kotofff работает так, как ему положено!
нужны доказательства?!

а у меня работает именно так. перепроверил.
на входе:
стоимость
на выходе:
Строка после строки Стоимость
стоимость

что то мне подсказывает что надо было вот это

Спасибо вам. так работает.

НО как нам быть если
- добавлять нечего (стоимость была последней)
- стоимость будет найдено в двух и более последовательных строках

-стоимость просто добавится и все. она будет последней в списке.
-а если идет последовательно, тогда последующая строка со 'стоимость' будет добавляться за найденной.
на входе:
стоимость
стоимость
строка
на выходе:
стоимость
стоимость
стоимость
строка

[evg_m]

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

- добавлять нечего (стоимость была последней)
- стоимость будет найдено в двух и более последовательных строках

-стоимость просто добавится и все. она будет последней в списке.
-а если идет последовательно, тогда последующая строка со 'стоимость' будет добавляться за найденной.

[мимо]

Сообщение от evg_m

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

ну первый п. меня устраивает как есть, а со вторым я уже разобрался - просто не добавляется уже добавленная (такая же) строка в TStringList.
а еще вопрос:

if (Pos('стоимость', price[Index]) <> 0) then
begin
temp.Add(price[Index]);//добавили одну строку
temp.Add(price[Index+1]);//и сразу же добавили другую строку
end;

а возможно ли осуществить добавление строки (вместо temp.Add(price[Index+1]);//и сразу же добавили другую строку) строки с определенным содержанием, например "у.е.", т.е. если найденно такое содержание в строке, идущей за 'стоимость', то добавили, если нет, то - не добавляем.

[evg_m]

ну первый п. меня устраивает как есть,

ровно до те пор пока такое(стоимость булет последней строкой) не произойдет. Как только произойдет будет AV (List bound of...).

добавлять можно любой текст.

s:='пример 1';
temp.add(s);
temp.add('пример 2');
temp.add(s+'последний пример');

[мимо]

нет. не самому добавлять строку с определенным содержанием, а при нахождении программой.

if (Pos('стоимость', price[Index]) <> 0) then
begin
temp.Add(price[Index]);//добавили одну строку
затем если за найденной строкой нашлась строкас содержимым -  'у.е.',
то и ее добавили в temp.