delphi - 备忘录中显示的 DBGrid 行

Question

有没有办法在备忘录中显示选定的 DBGrid 记录？我尝试了这种类型的代码，但这显示了列的标题，我想显示字段的文本。

    procedure TForm6.btnShowClick(Sender: TObject);
    var
      l: String;
      p: Integer;
      i: Integer;
      m: String;
    begin
       m:='';

       for p := 0 to dbGrid1.Columns.Count - 1 do
         m:=m+(format('%s',[dbGrid1.Columns[p].Title.Caption]))+lm;
         Memo1.Lines.Add(m);

        if Dbgrid1.SelectedRows.Count>0 then
        begin
          with dbgrid1.DataSource.DataSet do
          begin
            l:=' ';
            GoToBookMark(tBookmark(dbGrid1.SelectedRows[i]));

            for p := 0 to Dbgrid1.Columns.Count - 1 do
            begin
              l:=l+(format('%s',[dbgrid1.Columns[p].Field.AsString]));
            end;

            Memo1.Lines.Add(l) ;
          end;
        end;        
      end;
    end.

我试图更改 [dbgrid1.Columns[p].Field.AsString] 以便它使用该字段的文本，但它不起作用。注意-这是我希望使用的模板代码

没有 Sql 有没有更简单的方法来简单地在备忘录中显示选定的记录？

Answer 1

使用 StringGrid 而不是标准网格，因为它们可以将字符串数据存储在其 cells[x,y] 属性中。其他一切都与代码相同。，