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

cell[x,y] プロパティに文字列データを格納できるため、標準グリッドの代わりに StringGrid を使用します。他のすべては、コードに関してはほとんど同じです。