Поиск текста: Найти далее

[fezilk24]

Здравствуйте!

Нужно, чтобы программа искала ВСЕ "src=' " в Memo1, и копировала весь текст до " ' " в Edit1.
Есть функция поиска текста в Memo1:

procedure TForm1.Button2Click(Sender: TObject);
var 
Find:string; 
i:integer;
begin
find:=Edit1.Text;
For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;

Но она просто ищет текст из Edit1 в Memo1, до первого совпадения. А нужно, чтобы искала не до первого совпадения, а все строчки.

Думаю, понятно объяснил, помогите, пожалуйста..

[mihali4]

Если пользоваться хэлпом, можно ненароком обнаружить еще одну функцию, весьма похожую...
PosEx называется Вот она вам и поможет...

З.Ы. Кстати, у Мемо есть свойство Text...

[Stilet]

Я бы порекомендовал автору заменить Мемо на RichEdit. Там есть такие функции. ИМХО он для этого поудобнее будет.

[TRIZER]

Я не совсем понял вопрос ....

Нужно, чтобы программа искала ВСЕ "src=' " в Memo1, и копировала весь текст до " ' " в Edit1.

find:=Edit1.Text;
For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0

При чем здесь тогда это?