mackolik sitesinden bir maçın istatistik verilerini döngü ile almak itiyorum fakat ne döngüyü nede birden fazla veriyi almayı kurgulayamadım
<div class="team-1-statistics-text">1</div> // Ev sahibi
<div class="statistics-title-text">İsabetli Şut</div>
<div class="team-2-statistics-text">1</div> // Misaafir
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Http: TIdHTTP;
StrAl, Ulr: String;
begin
if IdIPWatchKontrol.ForceCheck = True then
begin
Http := TIdHTTP.Create(Nil);
try
Ulr := Http.Get('Http://www.mackolik.com/Mac/2529676/');
for I := 0 to Ulr.Length - 1 do
begin
Memo1.Lines.Text := Trim(SubParse(Ulr, '<div class="team-1-statistics-text">', '</div>'));
end;
except
on e: Exception do
end;
end;