Удалить лишнее

[brownb]

существует строка в мемо
|350|Петя|Петров|123333|111111

Как вытащить слово только Петя?

[Баламут]

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

   for i := Pos(substr, str) to Pos(substr, str) + Length(Substr) - 1 do
   begin
      s := s + str[i];
   end;

[Аватар]

а вместо Пети Абрам не бывает?

s:='';
i1:=PosEx('|',str,2);
if i1>1 then begin
  i2:=PosEx('|',str,i1+1);
  if i2>0 then s:=Copy(str,i1+1,i2-i1-1);
end;

[brownb]

Сообщение от Аватар

а вместо Пети Абрам не бывает?

s:='';
i1:=PosEx('|',str,2);
if i1>1 then begin
  i2:=PosEx('|',str,i1+1);
  if i2>0 then s:=Copy(str,i1+1,i2-i1-1);
end;

а как это сделать для каждой строчки в memo?

[Аватар]

В цикле по строчкам

[brownb]

Сообщение от Аватар

В цикле по строчкам

Можно пример с мемо?

[digitalis]

Я думаю, проще было бы использовать ListBox вместо Memo. Визуально - одно и то же, а обращаться - меньше хлопот.

[Heneken87]

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

существует строка в мемо
|350|Петя|Петров|123333|111111

Как вытащить слово только Петя?

А по каким критериям вытаскивать? Хочу слово 2(Это Петя)? Или хочу Петю из всех слов?