Delphi - 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; 

誰もがまた値前列名を取得する方法任意のアイデアがありますか？

例えば1列目がID命名され、memoに示す第一valueがID値（の15を言わせ）である - 私はそれがIDになりたい：あなたの場合

Answer 1

：15（COLUMN_VALUE COLUMN_NAME）列名と値が必要です

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;