Sql kodu üretecek funciton yazmak

[AhmetNuri]

Merhaba ,
Bir function içerisinde Sql kod oluşturup result ile IBDataSet e atayacağım. Yanlız bu function çok universal bir yapıda olması gerekiyor. Çok yerde kullanıcağım. Bunun için dbgrid in bağlı olduğu DataSet deki select kısmını kendi otomatik olarak almalı ben sadece where den sonrasına müdehale etmeliyim.

Kod: Tümünü seç

function AramaSqlYap(Dbg: TDBGrid): String;
var
  MDataset : TDataSet;
 
begin
// Tüm Sayfalarda Arama Yapabilmek için Geliştirilecek Kod
  MDataset := Dbg.DataSource.DataSet;
    [color=#FF0000]Result :=  MDataset.selectsql;[/color]
end;

Kırmızı olan yer olmuyor. Çünkü Tdataset bileşeninde selectSql diye bir şey yok. Ibdataset de var. Onuda Dbgrid den alamıyorum.
Bu konuda alternatif çözümü olan arkadaş var mı?

[sadettinpolat]

tip cevrimi (type casting) yaparak bu sorunu asabilirsin...

[aslangeri]

@sadettinpolat ın dediği şöyle bişey

Kod: Tümünü seç

 if (mdataset is tIBDataset) then
  result:=(MDataset as tibdataset).selectsql;

gibi bişey
kolay gelsin.