Delphi

Question

我使用以下代码显示 DBGrid 中 select 行的每一列的值到 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;

Delphi - 从 DBGrid 中获取选定行的所有列名

Delphi - Get all column names of selected row from DBGrid

dbgrid