[boobonick]

здравствуйте, вот чего-то пытаюсь понять, но не получается:

Код:

 get_html:='wsd<http://www.sait/=1111 11111 11111> <http://www.sait/=2222 222222 2222222> <http://www.sait/=333333 333333 333333333> </html>';

 s_find:='<http://www.sait/=';

 len_doc:= length(get_html); 
 len_find:=length(s_find);  

 while (len_tage<>len_find) do

 begin

 len_tage:=posex(s_find,get_html,len_tage); 

 s:=copy(get_html,len_tage, posex('>',get_html,len_tage) - len_tage + 1 );

 Memo1.Lines.Add(s);

 len_tage:=len_tage + len_find;

 end;

На выходе получается:

<http://www.sait/=1111 11111 11111>
<http://www.sait/=2222 222222 2222222>
<http://www.sait/=333333 333333 333333333>
wsd<http://www.sait/=1111 11111 11111>

И вот не знаю, почему выводится последняя строчка? Как мне ее не выводить, очевидно, что по условиям у меня неверно, а вот чтооо

[ЖабаДушитКота]

Код:

  get_html:='wsd<http://www.sait/=1111 11111 11111> <http://www.sait/=2222 222222 2222222> <http://www.sait/=333333 333333 333333333> </html>';
  s_find:='<http://www.sait/=';

  len_doc:= length(get_html);
  len_find:=length(s_find);
  len_tage:=1;

  while (len_tage<>len_find) do begin
    len_tage:=posex(s_find,get_html,len_tage);
    If len_tage<>0 then begin
      s:=copy(get_html,len_tage, posex('>',get_html,len_tage) - len_tage + 1 );
      Memo1.Lines.Add(s);
    end;
    len_tage:=len_tage + len_find;
  end;

[boobonick]

Огромное спасибо! Где-то час думал, как чего