Определение индекса строки, в которой нашёлся текст

[FanRa3]

как опредлить индекс строки в TStringList, в которой нашёлся текст? давно писал такое, но исходник потерялся и нет возможности посмотреть. сейчас уже подзабыл немнго. заранее спасибо вам за помощь

[Serge_Bliznykov]

Вы не поверите, методы поиска как раз и возвращают индекс найденной строки, если нашлось и -1, если текст не найден.

например, при поиске в несортированном списке:

  i := TS1.IndexOf('Искомая строка');
  if i<0 then ShowMessage('НЕ найдено')
  else ShowMessage('Текст найден в строке: '+IntToStr(i));

[FanRa3]

да, но для IndexOf надо вводить полную строку, а мне надо определить индекс строки по её куску

[Serge_Bliznykov]

тогда только цикл + Pos() :

i := 0;
while i<= ( TS.Count - 1 ) do 
begin
  if Pos('ПодСтрока', TS.Lines[i])>0 then break;
  inc(i);
end;
if i > ( TS.Count - 1 ) then ShowMessage('НЕ найдено')
else ShowMessage('Текст найден в строке: '+IntToStr(i));

[FanRa3]

большое спасибо! всё работает!