Döviz Kurlarını alma

• Önce IDHTTP ekle ve Uses kısmına clipbrd ekle

procedure TForm9.cxButton4Click(Sender: TObject);
var
DolarAlis,EuroAlis,Sterlinalis,merkezbankasisite,mesaj:String;
dolarint,euroint,sterlinint:integer;
begin
try
Merkezbankasisite:=IDHTTP.Get('http://www.tcmb.gov.tr/kurlar/today.html');
except
ShowMessage('Üzgünüm Merkez Bankasına Bağalanamadım.');
exit;
end;


Dolaralis:=Trim( copy( Merkezbankasisite,835,14) );
EuroAlis:=Trim( copy( Merkezbankasisite,1139,4) );
Sterlinalis:=Trim( copy( Merkezbankasisite,1237,4) );

Dolaralis:=StringReplace(dolaralis,'.','',[rfReplaceAll]);
EuroAlis:=StringReplace(euroalis,'.','',[rfReplaceAll]);
Sterlinalis:=StringReplace(sterlinalis,'.','',[rfReplaceAll]);
dolarint:=StrToInt(DolarAlis)-2;
euroint:=StrToInt(Euroalis)-2;
sterlinint:=StrToInt(Sterlinalis)-2;


mesaj:=DateToStr(Date)+' Döviz kurları: Dolar-'+inttostr(dolarint)+' /Euro-'+inttostr(euroint)+' /Sterlin-'+inttostr(sterlinint)+' .İyi çalışmalar...';
Clipboard.AsText:=mesaj;
ShowMessage(mesaj+' Kopyalandı!');
end;