Delphi функция pars

[X-Vlad]

Функция для парсинга кода.
[SRC]function Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;[/SRC]

Использовать так пример:
[SRC]procedure TForm1.Button1Click(Sender: TObject);
var
op, test: string;
begin
op:='<a href="lalalalalal">sadsd</a>';
test:=pars('<a href="lalalalalal">', op, '</a>');
end;

результат: в переменную test получаем текст "sadsd" html ссылки.[/SRC]

Если кто то не понял, то пишите сюда, не оставим без помощи!