Export dari Stringgrid ke ListView

Berikut adalah contoh sederhana untuk mengkonvert data yang telah tersedia di Stringgrid ke ListView.

1. Buat Project Baru
2. Tambahkan beberapa komponen pada Form1, diantaranya adalah
- Label1 dengan Caption = 'Stringgrid'
- Stringgrid
- Label1 dengan Caption = 'ListView'
- ListView
- Button1 dengan Caption = 'Convert Now'
kemudian aturlah tata letaknya sesuka anda ...
































3. Buat Procedure baru dengan nama StringGrid2ListView ....Code lengkapnya seperti ini :

Procedure StringGrid2ListView(StringGrid : TStringGrid; Listview : TListView);
var
i,j,k : Integer;
ListItem : TListItem;
begin
ListView.Items.BeginUpdate;
try
With StringGrid, ListView do begin
for j := 1 to ColCount -1 do Columns.add;
for j := 1 to RowCount-1 do begin
ListItem := Listview.Items.Add;
ListItem.Caption := Cells[1,j];
for k := 1 to ColCount -1 do ListItem.Subitems.Add(Cells[k+1,j]);
end;
end;
finally
ListView.Items.EndUpdate;
end;
end;

4. Pada Even OnCreate milikForm1 buat Code untuk menambahkan data ke Stringgrid

5. Pada Even OnClick milik Button1 Tambahkan Code berikut :

procedure TForm1.dxButton2Click(Sender: TObject);
var
i : Integer;
begin
with ListView1 do begin Items.BeginUpdate;
try
ViewStyle := vsReport; Items.Clear;
for i := Columns.Count -1 downto 0 do DeleteSelected;
finally
Items.EndUpdate; end; end; // Poses peng copy an StringGrid1 to ListView1 StringGrid2ListView(StringGrid1, ListView1);
end;

dan hasilnya seteleh Button1 di klik adalah: