Ben veri tabanına bu şekilde kurları alıyorum sende bunu düzenleye bilirsin.
var
s,alis,satis,aranan: String;
aranand:ARRAY [1..100] OF String;
yer,i,j : Integer;
begin
ProgressBar1.Visible := true;
s:=IdHTTP1.Get('
http://tcmb.gov.tr/kurlar/today.html');
DATAForm.dovizADOTable1.Last;
DATAForm.dovizADOTable1.first;
for j:=0 to DATAForm.dovizADOTable1.RecordCount-1 do
begin
aranand[j]:=DATAForm.dovizADOTable1.FieldByname('Ad').AsString;
aranan:=aranand[j];
ProgressBar1.Position :=j;
yer:=pos(aranan,s);
if yer=0 then
begin
showmessage('Kur bilgisi bulunamadı.');
exit;
end
else
begin
yer:=yer+length(aranan);
s:=copy(s,yer,length(s)-yer);
s:=trim(s);
alis:=copy(s,1,9);
DATAForm.dovizADOTable1.Edit;
DATAForm.dovizADOTable1.FieldByName('DovizAlis').AsString := alis;
s:=copy(s,10,length(s)-9);
s:=trim(s);
satis:=copy(s,1,7);
DATAForm.dovizADOTable1.FieldByName('DovizSatis').AsString := satis;
DATAForm.dovizADOTable1.Next;
end;
end;
ProgressBar1.Visible := false;
end;
http://www.ucretsizyazilim.com/index.php?topic=398.0 burdan indirebilirsin kodlu halini.
