dbgrind de tex alanları gösterimi

[erdogan_ozkaya]

Arkadaşlar
Aşağıdaki kodu dbgrind de tex alanları gösterimde kullanıyorum fakat olmuyor nedeni ise sadece 'FIRMA_UNVANI'veriyo adresi vs onları göstermiyor
kodun daha kolaybir yöntemi varmı acaba (adotable kullanıyorum)
Teşekkürler

Kod: Tümünü seç

var R : TRect;

begin
R:=Rect;
Dec(R.Bottom,2);
if Column.Field=VERI_TABANI.FIRMA_KAYIT.FieldByName('FIRMA_UNVANI') then
 begin
  if not (gdSelected in State) then
   DBGrid1.Canvas.FillRect(Rect);
  DBGrid1.Canvas.TextRect(R,R.Left,R.Top,
  VERI_TABANI.FIRMA_KAYIT.FieldByName('FIRMA_UNVANI').AsString);
 end;

[orhancc]

Tek alanı göstermişsin de o yüzden öyle gözüküyor.

[erdogan_ozkaya]

Evet Kardeş tek alan ama vt tüm tablolar text olarak kısa bir kod yokmu basit yoldan nasıl hallederim?