备忘录

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而不是标准网格，因为它们可以将字符串数据存储在其单元格[x，y]属性中。其他所有代码都是相同的代码。