Экспорт TListView в TStringGrid



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure ListView2StringGrid(Listview: TListView; StringGrid: TStringGrid);
const
MAX_SUBITEMS = 5;
var
i, j: Integer;
begin
with ListView do
for i := 0 to Items.Count - 1 do
begin
{Get Item of First Column}
StringGrid.Cells[1, i + 1] := Items[i].Caption;
{loop through SubItems}
for j := 0 to MAX_SUBITEMS do
begin
if Items[i].SubItems.Count > j then
StringGrid.Cells[j + 2, i + 1] := Items[i].SubItems.Strings[j]
else
break;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
// Clear the StringGrid if necessary 
// Falls notig, zuerst das StringGrid loschen 
i := 0;
while i < StringGrid1.RowCount do
begin
StringGrid1.Rows[i].Clear;
Inc(i);
end;
// Copy ListView1 to StringGrid1 
ListView2StringGrid(ListView1, StringGrid1);
end;

Далее: TListView и TTreeView - Windows Explorer »»