Variant tipi obecte cevirmek

[Burhan_ast]

Merhabalar arkadaslar


Function KayitNoDon(Table : variant) : integer;
Begin
Result := Table.RecordCount;
End;

Procedure kayitNogetir;
Var
K : integer
Tbl_AdoStoklar : TAdoQuery;
Begin
K:=KayitnoDon(Tbl_AdoStoklar);
End;

Sorunum su yukaridaki kod oylesine yazildi, FastScript kullaniyorum, fastscript paramatreleri variant olarak gonderiyor bu bu parametrede TAdoQuery gibi objeler gondermek zorundayim, kisacasi variant tipini objecte cevirebilirmiyim bunu nasil yapabilirim,

Burhan Cakmak

[mkysoft]

Nesneyi fonksiyona göndermek yerine neden adını göndermeyi denemiyorsunuz?

Kod: Tümünü seç

Function KayitNoDon(Table : string) : integer;
Begin
Result := TAdoQuery(Table).RecordCount;
End;