Bir Notta gösterilen DBGrid çizgileri

Question

Bir notta seçilen bir DBGrid kayıt kaydını göstermenin bir yolu var mı? Bu tür bir kodu denedim, ancak bu sütunların başlıklarını gösterir ve alanların metnini göstermek istiyorum. o alanın metni kullanır ama o kadar

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. 

Ben değiştirmeye çalışmış [dbgrid1.Columns [p] .Field.AsString] çalışmıyor. Not-Bu,

'u kullanmayı umduğum şablon kodudur. Sql'nin bir notta yalnızca seçili bir kaydı göstermesi daha kolay bir yol var mı?

Answer 1

Dize verilerini hücrelerinde saklayabildikleri için standart bir ızgara yerine bir StringGrid kullanın [x, y] özelliği. Diğer her şey aynı kod bilgisidir.,