Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Virgülden sonraki sıfırlar - çözüldü
#11
(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);
Cevapla
#12
(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.

Listview deki verileri;
1-bir tablodan mı çekiyosunuz?
2-dışarıdan import mu ediyorsunuz(xls,csv,txt,xml,vs.)?
3-Kullanıcı Editler vasıtasıyla giriş yaparak mı listeye veriler ekleniyor?

kontrolsüz, denetimsiz veri girişiniz var. Öncelikle bunun tespit edilmesi gerekir düşüncesindeyim.
Cevapla
#13
(30-06-2017, Saat: 13:16)meko Adlı Kullanıcıdan Alıntı:
(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);



Teşekkürler.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fastreport İçindekiler Sayfası Oluşturma [ÇÖZÜLDÜ] bydelphi 1 181 18-03-2024, Saat: 12:11
Son Yorum: bydelphi
  Çok Satırlı Filtreleme [Çözüldü] bünyamin68 12 1.253 14-02-2024, Saat: 22:42
Son Yorum: mustafaozpinar
  [ÇÖZÜLDÜ] macos işletim sistemine program yazmak shooterman 5 451 02-02-2024, Saat: 09:54
Son Yorum: shooterman
  COZULDU veritabani prg yerine ne kullanabilirim. sadikacar60 8 694 29-01-2024, Saat: 18:41
Son Yorum: sadikacar60
  DbGrid'de Seçili Satırların Fast Reportta Raporlanması [ÇÖZÜLDÜ] bünyamin68 4 637 17-12-2023, Saat: 15:08
Son Yorum: bünyamin68



Konuyu Okuyanlar: 1 Ziyaretçi