插入數據DBGrid到TlistItem

Question

如何用Delphi將數據DbGrid插入TlistItem？

Answer 1

TdbGrid中的數據只能存儲在TDataSet中。所以我懷疑你的問題是如何將TDataset中的信息轉換爲TListView。

基本上這可以用下面的代碼來完成。

procedure TForm13.DisplayData(Dataset: TDataSet; ListView: TListView); 
var 
LI : TListItem; 
CO : TListColumn; 
I : Integer; 
begin 
    // Setup the Columns 
    ListView.ViewStyle := vsReport; 
    ListView.Columns.Clear; 
    for I := 1 to DataSet.Fields.Count do 
    begin 
    CO := ListView.Columns.Add; 
    CO.Caption := Dataset.Fields.FieldByNumber(I).DisplayLabel; 
    Co.AutoSize := true; 
    end; 

    // Populate The Data 
    Dataset.First; 
    while not DataSet.EOF do 
    begin 
    LI := ListView.Items.Add; 
    LI.Caption := Dataset.Fields.FieldByNumber(1).AsString; 
    for I := 2 to DataSet.Fields.Count do 
    begin 
     LI.SubItems.Add(Dataset.Fields.FieldByNumber(I).AsString); 
    end; 
    DataSet.Next; 
    end; 
end;