Привет, мои маленькие любители дельфи. Сейчас вы увидите весьма интересную/удобную функцию.
Функция под названием Pars - это функция парсинга данных. Ниже будет сама функция, и примеры.
*Парсингом (от англ. parse) называют процесс анализа или разбора определенного контента на составляющие. Проще говоря, получение нужной нам информации, из кучи мусора.
Как использовать функцию?!
1. После:
Код
implementation
{$R *.dfm}
Вставляем следующий код:
Код
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;
2. Дальше, нам необходимо создать обработчик события. ( В моем случае это: Button.Click).
3. Следующий и финальный шаг, это само использование функции.
String:=pars('начало', переменная или свойство , 'конец');
*Красным выделены данные типа стринг.
Рассмотрим на примере.
Код
procedure TForm1.Button1Click(Sender: TObject);
var
stroka:string; .// Объявляем переменную типа стринг.
begin
stroka:=Pars('<',Edit1.Text,'>'); // Выполняем парсинг, от знака "<", до знака ">" , в строке edit1.
Memo1.Clear; // Очищаем мемо.
Memo1.Lines.Add(stroka); // Выводим результат парсинга.
end;
Если вы все сделаете как надо, то на выходе получим, то что искали. Главное найти за что зацепиться. 
