Товарищи программисты!

Запутался совсем. У меня тут RichEdit и ListBox. В RichEdit загружается динамически SourceCode определенной страницы. В этом SourceCode несклько линков, которые имеют одно и то-же начало и конец:

DataNr=xxxxxxxxxxxxxxxxxxx&DoSearch
DataNr=yyyyyyyyyyyyyyyyyyy&DoSearch
DataNr=zzzzzzzzzzzzzzzzzzzzzz&DoSearch

etc. Мне нужно найти все такие линки в RichEdit и запихнуть их в ListBox. Я попробовал вот так, но заносится только первый найденный результат:

Код

procedure TForm2.Button1Click(Sender: TObject); var  StartPos, EndPos: integer;  search: string; begin  StartPos := pos('DataNr=', richedit1.text);  EndPos := pos('&DoSearch', richedit1.text);  richedit1.setfocus;  StartPos := StartPos +  length('DataNr=');  richedit1.selstart := StartPos;  richedit1.sellength := EndPos -1 - StartPos;  search := RichEdit1.SelText;  ListBox1.Items.Add(search) end;

Я думаю, я че-то напутал. Помогите разобраться

Попробуй при помощи цикла читать строки из RichEditа, запихивая их в переменную типа String, и работать с этой переменной как с обычным массивом. Так проще следить за ходом выполнения программы.

Все правильно, находится первая строчка и заноситься, а где цикл?

Разберись со следующей функцией:

function FindTxt(const BeginText, EndText: string; const Text: TRichEdit; var Res: TListBox):boolean;
var
BeginID, EndID: longint;
s: string;
i:longint;
begin
Result:=false;
if (Text.ScrollBars = ssBoth) or (Text.ScrollBars = ssHorizontal)
then
begin
Res.Items.Clear;
for i:=0 to Text.Lines.Count - 1 do
begin
s:=Text.Lines.Strings[i];
BeginID:=Pos(BeginText, s);
EndID:=Pos(EndText, s);
if (BeginID > 0) and (EndID > 0) and (BeginID <> EndID)
then
begin
Res.Items.Add(Copy(s, BeginID + Length(BeginText), EndID - (BeginID + Length(BeginText))));
Result:=True;
end;
end;
end
else
Application.MessageBox('Функция FindTxt корректно работает только в том случае, если свойство ScrollBars компонента типа TRichEdit равно ssBoth или ssHorizontal.', '', mb_ok + mb_iconstop);
end;

procedure Form1.Button1Click(Sender: TObject);
begin
if not FindTxt('begin', 'end', RickEdit1, ListBox1)
then
Application.MessageBox('Текст не найден.', '', mb_ok + mb_iconexclamation);
end;

PlainText точно в true установлен?