ListView - Delphi. ListView , vsReport - , ( - vsList, vsIcon vsLargeIcon).
"" ( , , vsReport ), AddItem() ListView. AddItem TListItem. Caption , ( vsList, vsIcon vsLargeIcon) "" vsReport. TStringList SubItems. , SubItems, vsReport (SubItems ).
, , , TListItem. , , .
, :
DS := TSomeKindOfDataSet.Create();
try
//Set up and open DS.
while not DS.eof do begin
with ListView.Items.Add() do begin
//establish three columns for vsReport display
Caption := DS.FieldByName('DescriptiveField').AsString;
SubItems.Add(DS.FieldByname('AnotherColumn').AsString);
SubItems.Add(DS.FieldByname('YetAnotherColumn').AsString);
//Save the record PK value
Data := Pointer(DS.FieldByname('PKColumn').AsInteger);
end;
DS.Next;
end;
finally
DS.Free;
end;
, DS, , , . DS , , .