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; 

Кто-нибудь есть какие-либо идеи, как и получить имена столбцов, перед значением?

Например первый столбец с именем ID, 1 value показано на memo это значение ID (скажем, 15) - Я хотел бы, чтобы это было ID: 15 (column_name: column_value)

Answer 1

если вы требуется название и значения столбцов

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;