Penjumlahan Item Kolom TListView yang Berupa Data Numerik 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;

Metode Ke 2 :

procedure TForm1.Button2Click(Sender: TObject);
var T,i:Integer;
beginT := 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 ketiga :
T := T + StrToIntDef(ListView2.Items[i].SubItems.Strings[1], 0);
kalo mau yang kempat:
T := T + StrToIntDef(ListView2.Items[i].SubItems.Strings[2], 0);
dst...

Share" Ilmu Cuy...