Arkadaşlar program Merkez Bankası icin bulacağınız kodun değiştirilmiş hali, Ben burada altinkaynak.com sitesinden alıyorum, siz kendinize gore değiştirebilirsiniz. Programda bazı gereksiz gorunen tanımlamalar olabilir, o yuzden silmekte istemiyorum, Belki onemli bi yeri silebilirim diye. Forma IDHttp Eklemeyi ihmal etmeyin. Ben burada, timer olayına bu kodu ekleyip 5dk'da bir kur bilgilerini alıyorum. dolayısıyla kişi o gune ait kur bilgilerini 5dk arayla takip edebiliyor, yada grafik cizdirilebiliyor. Sizde buna benzer calışmalar yapabilirsiniz. Bu kodda olurya adam bulunduğu zaman icinde kur oğrenmek isterse diye Buton olayına yazdığım olay procedure Tdovizform.DolarogrenClick(Sender: TObject); //DOLAR İCİN KUR TAKİBİ var s,alis,satis,aranan:String; yer,i,j,daf,dsf:integer; x0,x1,y0,y1,xf1:Real; begin s:=Idhttp1.Get('http://xml.altinkaynak.com.tr/doviz.xml'); //BİLGİ WEB SİTESİNDEN ALINIYOR aranan:='USD'; FOR i:=1 to 1 do Begin yer:=pos(aranan,s); if yer=0 then Begin Showmessage('KUR BİLGİSİ BULUNAMADI'); end else Begin yer:=yer+length(aranan]18; //Secim işlemi başlangıcı s:=copy(s,yer,length(s)-yer); //Kopyalandı s:=trim(s); //Gereksiz kısmı silindi alis:=copy(s,1,6); Edit5.Text:=alis; Edit1.Text:=alis; mainform.Label4.Caption:=alis; //Dolalis.Lines.Add(alis); //KUR ALIŞ BİLGİSİ ALINDI VE YAZILDI s:=copy(s,27,length(s)-2); s:=trim(s); satis:=copy(s,1,6); Edit6.Text:=satis; Edit2.Text:=satis; mainform.Label5.Caption:=satis; dolarkayit.Lines.Add('DOLAR '+DateToStr(Date]' '+TimeToStr(Time]' '+alis+' '+satis); //Dolsatis.Lines.Add(satis); //KUR SATIŞ BİLGİSİ ALINDI VE YAZILDI end; end; //BİLGİ ALIP VERME DONGUSU BURADA BİTİYOR... Begin daf:=dolalis.Lines.Count; dsf:=dolsatis.Lines.Count; if (daf>1) and (dsf>1) then Begin x0:=StrToFloat(dolalis.Lines.Strings[daf-1]); x1:=StrToFloat(dolalis.Lines.Strings[daf-2]); y0:=StrToFloat(dolsatis.Lines.Strings[dsf-1]); y1:=StrToFloat(dolsatis.Lines.Strings[dsf-2]); xf1:=x0-x1; Mainform.Label10.Caption:=FloatToStrF(xf1,ffCurren cy,4,3); if x0>x1 then Begin Label11.Caption:='Yukseliyor'; Mainform.dolup.Visible:=True; end else if x0=x1 then Begin Label11.Caption:='Sabit Kaldı'; Mainform.doleq.Visible:=True; end else if x0y1 then Label12.Caption:='Yukseliyor' else if y0=y1 then Label12.Caption:='Duşuyor' else if y0