Функция PARS

Очень полезная функция для копирования части текста.

Код:

function TForm1.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;


Пользоватся так:
label1.Caption:=pars('начало', переменная, 'конец');

И не забываем после public писать это:
function Pars(T_, ForS, _T:string):string;