メモに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]を変更しようとしました。注 - これは私が使用したいと思うテンプレートコードです

メモで単に選択されたレコードを表示する簡単な方法はありますか？

Answer 1

文字列データをセル[x、y]プロパティに格納できるため、標準グリッドの代わりにStringGridを使用します。それ以外のものはすべて同じコードになります。