Научите парсить. Delphi

Всем привет, перечитал весь инет, посмотрел видосы, но так нигде нормально не описанно, как мне парсить нужные мне данные с какого-либо сайта, прошу знатоков помочь)

 

очень плохо искал,гугл создал великий человек,а ты им пользоваться не умеешь.

Спойлер

 

Ай да красава

 

Перечитай то, что я написал

 

Смотри/читай мануалы и туторы по регулярным выражениям.

 

Как вариант: Найди парсер с опен сурсом и почитай код, что и как он делает, потом по аналогии свой пиши

 

Код:

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;

используем так, перед Form1: TForm1;
напиши Money: string;

Код:

Money := Pars('"balance" data-fn="desktop">',HTML.Text, '</a>');

через регулярное выражение, перед Form1: TForm1;
напиши reg: tregexpr;
в uses, regexpr

Код:

                reg.Expression := '<Name>(.*?)</Name>';
                if reg.Exec(HTML.Text) then
                  repeat
                    name.Add(reg.Match[1]);
                  until not reg.ExecNext;