Önce :
var aQuery: TUniQuery; begin aQuery := TUniQuery.Create(Application); aQuery.SQL.Text := 'sql kodun'; aQuery.Execute; FreeAndNil(aQuery); end;TUniquery sınıfına bir "class extension function" yazıyoruz. Dikkat ederseniz bu sefer nesneye extension function olarak değilde, sınıfa extension function olarak yazıyoruz. O sebeble bu işi daha pratik hale getiriyoruz.
Sonra :
unit uUniHelper; interface uses Vcl.Forms, System.SysUtils, System.Classes, Data.DB, MemDS, DBAccess, Uni; type TUniQueryHelper = class helper for TUniQuery public class function CreatefromSQL(aSQL: string): TUniQuery; end; implementation { TUniQueryHelper } class function TUniQueryHelper.CreatefromSQL(aSQL: string): TUniQuery; var aQuery: TUniQuery; begin aQuery := TUniQuery.Create(Application); aQuery.Connection := UniConnection1; aQuery.SQL.Text := aSQL; aQuery.Execute; Result := aQuery; end; end.
var aQuery: TUniQuery; begin aQuery := TUniQuery.CreatefromSQL('sql kodun'); FreeAndNil(aQuery); end;
iyi çalışmalar.
Hiç yorum yok:
Yorum Gönder