Tl hesabı problemi

[Raskolnikov]

Arkadaşlar ben Delphi de yeniyim biraz kolay bir soru olabilir ama ben yapamadım kusura bakmayın

Kod: Tümünü seç

var
a,b:real;
c:Currency;
begin
a:=strtofloat(para.Text);
b:=strtofloat(edit1.Text);
c:=a+b;
para.Text:=floattostr(c);

Burada 1.00 tl nin üzerine butona bastığımda 0,25 değerinde özellik ekliyorum bunlar para birimleri ama tl cinsinden mesela 2 tl yi 2,00 olarak nasıl gösterebilirim. text in sonuna '00' ekledim ancak bu seferde 1.75,00 oluyor bunu nasıl tl gibi yaparım

[emin_as]

Kod: Tümünü seç

para.text:=FormatFloat('#,##0.00',c);

[Raskolnikov]

@Emin abi cok ama cok tesekkur ederim

[ikra]

Kod: Tümünü seç

strtofloatdef(para.text,0)

kullan.
aksi taktirde, eger edit nesnesinin ici bos ise hata verir.
kolay gelsin...