Jumat, 08 April 2011

Penjumlahan Item Kolom TListView yang Berupa Data Numerik

Trik menjumlahkan item data (baris) yang berupa data numerik pada kolom TListView.
Bingung dengan judul di atas ?…. Sama saya juga bingung (pusing milih judul). Intinya adalah menjumlahkan item pada baris (row) yang berupa angka pada kolom tertentu (hahaha… malah tambah bingung). 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;
Belajar Delphi - Penjumlahan Item Kolom TListView yang Berupa Data Numerik
Sample Output

2 komentar: