Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964 Acemi
(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);
Yorumları: 342
Konuları: 15
Kayıt Tarihi: 16-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 2.707 Uzman
(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.
Yorumları: 95
Konuları: 45
Kayıt Tarihi: 10-02-2017
Rep Puanı: 67 Başlangıç
(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.
|