Virgülden sonraki sıfırlar - çözüldü

[meko]

(30-06-2017, Saat: 12:26)serhat Adlı Kullanıcıdan Alıntı: Selam; Listview deki var satış fiyatlarını adetle çarpıyorum toplam fiyatı yine listview işliyorum daha sonrasın tüm satışın toplam fiyatını almak istiyoum

for I := 0 to Items.Count - 1 do
       begin
         Fiyat := StrToFloat(Items[I].SubItems[3]); // FİYAT
         Adet := StrToInt(Items[I].SubItems[4]); /// ADET
         Items[I].SubItems[5] := FormatCurr(',0.###', (Fiyat * Adet)); // FİYAT * ADET = TOPLAM FİYATI

yaptıktan sonra örnek vererek açıklayayım:

Elma  22,75 * 5 = 113,75
Sakız  0,75 * 3 = 2,25
Araba 75.000,10 * 2 = 150.000,20

113,75 + 2,25 +  150.000,20 = bu ürünlerin toplamını almak istiyorum, Umarım anlatabilmişimdir.

var
   tutar : Double;
   toplamtutar : double;
////////////////

  toplamtutar :=0;
  for I := 0 to Items.Count - 1 do
  begin
       Fiyat := StrToFloat(Items[I].SubItems[3]); // FİYAT
       Adet := StrToInt(Items[I].SubItems[4]); /// ADET
       tutar := Fiyat * Adet;  // FİYAT * ADET = TOPLAM FİYATI
       toplamtutar := toplamtutar + tutar;
       Items[I].SubItems[5] := FormatCurr(',0.###', (tutar));
  end;
  showmessage(toplamtutar.tostring);