Delphi Peak

Delphi’de en çok kullanılan bileşenlerden olan DBGrid’de genelde TEXT tipteki alanlar (MEMO) olarak gözükür. Bu sorunu çözmek için yapmanız gereken oldukça basit bir işlem var.

Öncelikle ne tür bir sorgu bileşeni kullanıyorsanız bileşene sağ tıklayıp “Fields Editor” deyin. Karşınıza gelecek olan panele sağ tıklayıp Add Fields deyin. Eklemek istediğiniz Field’ları ekleyin. Daha sonra (MEMO) olarak görünmek yerine belli bir karaktere kadar görünmesini istediğiniz Field’a tıkladıktan sonra Events kısmından OnGetText eventine aşağıdaki gibi bir komut yazın:

procedure TmyForm.MySQLQuery1KOLONADGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := Copy(mySQLQuery1KOLONAD.AsString, 1, 200);
end;

Bu çözüm DBGrid’de (MEMO) yerine MEMO alanın ilk 200 karekterinin görünmesini sağlayacaktır.

mySQL erişimi için Zeos kullanıyorsanız ve latin1′den hariç (latin5 (Türkçe) gibi) bir karekter seti tanımına sahip bir veritabanınız varsa içeriği çekme ve göstermede sorunlar olabilir. Bunun için yapmanız gereken ZConnection’ın Properties kısmına;


codepage=latin5


yazmak.