Делфи. Что можно прочесть для решения следующей проблемы...

[Artsiom]

Вечер добрый.
И опять я с вами.
Подскажите литературу по Делфи, что нужно знать для решения следующей проблемы.
Имеется страница, к примеру, http://......./frames/...../658
Там есть разделы:
Язык Русский
Год рождения 1812
e-Mail
Пол Мужчина
Зарегистрирован 18.02.1905 12:24
Последний вход 31.06.1945 14:38

Как эти данные можно вычленить, для сбора статистики?
Посмотрел исходный код страницы, там бред:
align="right"><a href="mailto:success@i.ua">success@ i.ua</a></td></tr><tr><td>Пол</td><td align="right">Мужчина</td></tr><tr><td>Зарегистрирован</td><td align="right"> <sma
Можно ли с этим работать?

[Serge_Bliznykov]

Можно ли с этим работать?

разумеется, можно.
И это называется парсинг. Разбираете строку на нужные Вам подстроки.

Разбирать можно как простым поиском нужных патернов (шаблонов/ключевых слов) с помощью Pos() или PosEx()
либо с использованием регулярных выражений.

[Artsiom]

Спасибо, но теперь вопрос в следующем.
Не хочет выдавать следующую инфу:

Последний вход</td><td align="right"> <small>31.06.1945 14:38</small>

Делал так,

Memo1.Lines.Add(Pars('Последний вход</td><td align="right"> <small>', Source.Text, '</small>'));

Сама функция не моя Легче стырить, чем написать...

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;

В мемо не выводит ничего, только когда написал так

Memo1.Lines.Add(Pars('Последний вход</td><td align="right">', Source.Text, '</small>'));

получилось вывести <small>31.06.1945 14:38
но это бред какой то.
В чем причина?