Парс ссылки

[cargo29]

Хотел получить ссылки

PHP код:

procedure TForm1.Button3Click(Sender: TObject);
var b,a:string;
i:integer;
tr:string;
begin
tr:=Memo2.Text;
while Pos('<!--Файл:-->', tr)<>0 do
begin
a:=Copy(tr, Pos('<!--Файл:-->', tr), Pos('Разместил:', tr)-Pos('<!--Файл:-->', tr));
b:=Copy(a, Pos('<!--Файл:--> <a href="', a)+length('<!--Файл:--> <a href="'), Pos('">', a)-Pos('<!--Файл:--> <a href="', a)-length('<!--Файл:--> <a href="'));
Memo1.Lines.Add(b);
Delete(tr, Pos('<!--Файл:-->', tr), Pos('Разместил:', tr)-Pos('<!--Файл:-->', tr));
Memo2.Text:=tr;
end;
end; 


прокрамма зависает из цикла как понимаю не выходит но ошибку найти не могу... в мемо2 код страницы

[Человек_Борща]

никогда и не выйдет.
Потому что Pos('<!--Файл:-->', tr) никогда не будет 0.

[cargo29]

Сообщение от Человек_Борща

никогда и не выйдет.
Потому что Pos('<!--Файл:-->', tr) никогда не будет 0.

но ведь это должно удалять их

PHP код:

Delete(tr, Pos('<!--Файл:-->', tr), Pos('Разместил:', tr)-Pos('<!--Файл:-->', tr)); 


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

[cargo29]

Все разобрался ... спасибо ))

тупил немного а 2 часа ушло на это

procedure TForm1.Button3Click(Sender: TObject);
var b,a:string;
i:integer;
tr:string;
begin
tr:=Memo2.Text;
while Pos('<!--Файл:-->', tr)>0 do
begin
a:=Copy(tr, Pos('<!--Файл:-->', tr), Pos('Разместил:', tr)-Pos('<!--Файл:-->', tr));
b:=Copy(a, Pos('<!--Файл:--> <a href="', a)+length('<!--Файл:--> <a href="'), Pos('">', a)-Pos('<!--Файл:--> <a href="', a)-length('<!--Файл:--> <a href="'));
Memo1.Lines.Add(b);
Delete(tr, Pos('<!--Файл:-->', tr), Pos('Разместил:', tr)-Pos('<!--Файл:-->', tr)+length('Разместил:'));
Memo2.Text:=tr;
end;
end;