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

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

1 个答案: