德爾福 - 從DBGrid獲取選定行的所有列名稱

Question

我使用下面的代碼來顯示從我選擇在我的DBGrid，到Memo行中的每列的值。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    Memo1.Clear; 
    with DBGrid1 do 
    begin 
    for i:=0 to FieldCount-1 do 
     Memo1.Lines.Add(Fields[i].AsString); 
    end; 
end; 

任何人有任何想法如何值之前也得到了列名，？

例如第一列被命名爲ID，在memo顯示的第一個value是ID值（比方說15） - 我想它是ID：如果您：（COLUMN_VALUE列名）

Answer 1

15需要欄目名稱和數值

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    Memo1.Clear; 
    with DBGrid1 do 
    begin 
    for i:=0 to Columns.Count-1 do 
     Memo1.Lines.Add(Columns[i].FieldName+':'+ Columns[i].Field.AsString); 
    end; 
end;