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 上显示的第一个 值 是 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;