Penjumlahan Item pada ListView di Delphi

Mugkin maksudnya adalah menjumlahkan item data yang ada pada baris (row) yang berupa angka pada kolom tertentu yang ada di Listview . Contohnya seperti ini:

--------------------
Item      |  Harga
--------------------
Mobil      550000000
Motor       23000000
Rumah      999000000
--------------------
Total       ?

Dengan menggunakan trik ini, maka anda dapat menghitung total nilai dari kolom harga.
Deklarasi fungsi:

function CountDataIntColListView(LV: TListView; Col: Integer): Integer;
var
  i: Integer;
begin
  Result:= 0;
  if Col > LV.Columns.Count then Exit;
  with LV do
  begin
    try
      for i:= 0 to Items.Count - 1 do
      begin
        Result:= StrToInt(DataItemListView(LV, i, Col)) + Result;
      end;
    except
      Result:= 0;
    end;
  end;
end;

Parameter: - Col merupakan column index TListView yang dimulai dari 1, bukan 0 (menyalahi kodrat alam). Contoh implementasi:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label6.Caption:= IntToStr(CountDataIntColListView(ListView1, 2));
end;

Cara atau Metode Ke 2 :

procedure TForm1.Button2Click(Sender: TObject);
var T,i:Integer;
begin
T := 0;
for i := 0 to Listview2.Items.Count - 1 do
T := T + StrToIntDef(ListView2.Items[i].SubItems.Strings[0], 0);
Label1.Caption:=IntToStr(T)
end;

Kode diatas untuk menghitung numeric pada kolom 2.

kalo mau yang kolom ketiga :
T := T + StrToIntDef(ListView2.Items[i].SubItems.Strings[1], 0);
kalo mau yang kolom kempat :
T := T + StrToIntDef(ListView2.Items[i].SubItems.Strings[2], 0);
dst..
Tinggal di atur saja berada dikolom yang mana yang mau dijumlahkan.

Posted by Antas Delphi on - Rating: 4.5

Title : Penjumlahan Item pada ListView di Delphi
Description : Mugkin maksudnya adalah menjumlahkan item data yang ada pada baris (row) yang berupa angka pada kolom tertentu yang ada di Listview . Cont...