Парсинг сайта

UTF8Encode

ssilka4:=('http://'+Edit3.text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalClan');
  Listbox1.Items.text:=idhttp1.Get(ssilka4);
  s4:=Copy(ssilka4,Pos('clan-info-2nd',ssilka4)+1,Length(ssilka4));
  Delete(s4,Pos('</div>',s4),Length(s4));
   if Pos('clan-info-2nd', ssilka4)<>0 then
 memo1.Lines.Add('Ошибка!')
 else
  memo1.Lines.Add('Всё норм:'+(s4));

procedure TForm1.Button7Click(Sender: TObject);
var  RegExp: TRegExpr;
ssilka5: string;
begin
 listbox1.Clear;
  ssilka5:='http://'+Edit3.text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab';
  listbox1.Items.text:=Utf8ToAnsi(idhttp1.Get(ssilka5));
  RegExp := TRegExpr.Create;
 RegExp.InputString := 'Delphi <span class="ore_prometium">Прометиум:</span><br/>105.600</div> ';
 RegExp.Expression := 'ore_prometium">(.*?)</span><br/>(.*?)</div>';
 if RegExp.Exec then
 repeat
  Listbox2.Items.add(RegExp.Match[1]); {Прометиум}
  Listbox2.Items.add(RegExp.Match[2]); {105.600}
 until not RegExp.ExecNext;
 RegExp.Free;
 end;

 data.Add('loginForm_default_username='+UTF8Encode( Edit1.Text));
 data.Add('loginForm_default_password='+UTF8Encode( Edit2.Text));

procedure TForm1.Button1Click(Sender: TObject);
var  reg:TRegExpr;
begin
reg:=TRegExpr.Create;
reg.Expression:='(<td)(.{1,17})(<strong>)([^<]+)(.+?)(<t)[^>]+[>]([^<]+)';
if reg.Exec(memo1.text) then
repeat
 memo2.Lines.Add(trim(reg.Match[4])+' - '+reg.Match[7]);
until not reg.ExecNext;
 
reg.Free;
end;

'(class="td12">)[\s]+(<a href=")([^"]+)'

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegExpr;
begin
reg:=TRegExpr.Create;
reg.Expression:='(<td)(.{1,17})(<strong>)([^<]+)';
if reg.Exec(memo1.text) then
repeat
 memo2.Lines.Add(trim(reg.Match[4])+' - '+reg.Match[7]);
until not reg.ExecNext;
 
reg.Free;
 end;

(<td)(.{1,17})(<strong>)([^<]+)

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegExpr;
begin
reg:=TRegExpr.Create;
reg.Expression:='(logfiles">)(.{1,17})(<strong>)([^<]+)|(logFileUpdated">)([^<]+)';
if reg.Exec(memo1.text) then
repeat
 memo2.Lines.Add(trim(reg.Match[4])+reg.Match[6]);
until not reg.ExecNext;
 
reg.Free;
 end;

(logfiles">)(.{1,17})(<strong>)([^<]+)|(logFileUpdated">)([^<]+)

'("logfiles">)[^>]+[>]([^<]+)[^>]+[>]([^<]+)'

'(width="130px">)[^>]+[>]([^<]+)|(<td>)[^>][^>]([^<]+)'

'(width="130px">)[^>]+[>]([^<]+)|(<td>)[^>][^>]{1,36}([^<]+)'

memo2.Lines.Add(trim(reg.Match[2]+reg.Match[4]));

memo1.WordWrap:=false;