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，memo 上显示的第一列value 是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;