Label'de Para Birimi Toplamak

[ByDeniS]

Merhaba arkadaşlar herkeze yardımları için teşekkür ederim.

Labellerde yazan para birimlerini nasıl toplayabilirim.

Örneğin Label1'de 25,00 YTL yazıyor
             Label2'de 30,00 YTL yazıyor

Bu iki parayı toplayıp başka bir labele yazdırmak istiyorum.. Ama sonunda para birimi uzantısı oldugundan toplama işlemini ben yapamadım. Ayrıca eski para sistemi olan YTL uzantısını kullanıyor bunu nasıl düzeltebilirim.

[qamyoncu]

- Labeller içindeki her karakter için rakam olup olmadığını tek tek kontrol et.
- Eğer rakam ise birer string değişkene kaydet.
Artık sadece sayılar kaldı.
- Integer tipine dönüştür; topla, çıkar, çarp , böl ne yapacaksan yap.
Artık işlem bitti.
- Tekrar stringe çevir.
- Sondaki 2 karakter kuruş olduğu için sondan 3. karaktere "," koy.
- Ve son olarak " TL" ekle.

[NeverFear]

Kod: Tümünü seç

var
  Form1: TForm1;
  Sayi1, Sayi2, Sayi3: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Sayi1:= StrToFloat(Label1.Caption);
  Sayi2:= StrToFloat(Label2.Caption);
  Sayi3:= Sayi1 + Sayi2;
  Label3.Caption:= FormatFloat('#,###.#0', Sayi3);
end;

Not: Label1.Caption:= '20,30'; Label2.Caption:= '30,80'; ==> Label3.Caption'daki görüntünün '51,10' olduğunu göreceksin.

İşini görmesi ve örnek teşkil etmesi dileğimle.
Çalışmalarında başarılar dilerim.

NeverFear - kaheri579@hotmail.com