Строки 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 вместо стандартной сетки, поскольку они могут хранить строковые данные в свойстве клеток [x,y]. Все остальное во многом похоже на код.