Получить остаток строки после слова

[artemavd]

Добрый вечер всем!
Прошу подсказать по такому вопросу.
Есть текст в переменной типа TStringList. Он в виде списка строк.
Есть слово, которое я ищу в это тексте. Слово 100% не повторяется.
Мне нужно, после того как Pos(...) > 0 получить остаток текста в строке, в которой было найдено искомое слово до конца строки и занести его в переменную типа string.
Прошу помочь советами, направлениями, может кто делал такое раньше.

[Replicant]

var i, index:integer;
    s:TStringlist;
....
  for i:=0 to s.Count-1 do
    begin
      index:= pos(s[i]);
      if index >0 then begin
        result:=Delete(s[i], 1, index);
        Break;
      end;
    end;

[Аватар]

  s:=''; s1:='123';
  i:=Pos(s1,Memo1.Text);
  if i>0 then begin
    j:=PosEx(#13,Memo1.Text,i);
    if j>0 then s:=Copy(Memo1.Text,i+Length(s1),j-i-Length(s1))
           else s:=Copy(Memo1.Text,i+Length(s1),Length(Memo1.Text));
  end;

[northener]

Код Replicant представляется мне более лучшим с т.з. быстродействия, чем код Аватар. Т.к. в последнем идет работа со свойством TMemo.Text.

[Аватар]

Не-а. Даже так быстрей, а если еще Memo1.Text прочитать только один раз, присвоив его в строку, и обращаться потом к той строке, то будет на порядок быстрей

[Aleksandr H.]

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

Код Replicant представляется мне более лучшим с т.з. быстродействия

Казалось что выполнить задание за время (1) быстрее чем за (n).

[Аватар]

Не совсем так, обращение к Text тоже цикл по строкам в генокоде. Там Delete очень медленная