zman123456
یک شنبه 08 شهریور 1388, 18:24 عصر
با سلام
من یک unit عمومی دارم که تمام procedure و function های عمومی برنامم رو توی اون طراحی می کنم و این unit رو بعدا در تمام فرم هام use می کنم و از هر کدوم از توابع که خواستم استفاده می کنم و دیگه نیازی نیست که این توابع رو در موارد مورد نیاز کپی کنم.
حالا دارم یک function می نویسم که نیاز دارم داخل اون یک adoquery رو create کنم(البته realtime).
حالا که تو دستور ساخت یک adoquery عبارت self رو مینویسم error میزنه :
کد نوشته شده:
var
ADOQ_FieldType: TADOQuery;
...
ADOQ_FieldType:=TADOQuery.Create(self);
ADOQ_FieldType.Connection:=DM_Con.ADOCon;
ADOQ_FieldType.Close;
ADOQ_FieldType.SQL.Clear;
ADOQ_FieldType.SQL.Add('query');
...
ADOQ_FieldType.Open;
...
ADOQ_FieldType.Close;
ADOQ_FieldType.Free;
error:
Undeclared identifier. 'self'
چکار کنم تا بشه در این unit هم component رو create کرد؟
sender هم زدم همینطوری بود.
DB, ADODB هم use کردم.
من یک unit عمومی دارم که تمام procedure و function های عمومی برنامم رو توی اون طراحی می کنم و این unit رو بعدا در تمام فرم هام use می کنم و از هر کدوم از توابع که خواستم استفاده می کنم و دیگه نیازی نیست که این توابع رو در موارد مورد نیاز کپی کنم.
حالا دارم یک function می نویسم که نیاز دارم داخل اون یک adoquery رو create کنم(البته realtime).
حالا که تو دستور ساخت یک adoquery عبارت self رو مینویسم error میزنه :
کد نوشته شده:
var
ADOQ_FieldType: TADOQuery;
...
ADOQ_FieldType:=TADOQuery.Create(self);
ADOQ_FieldType.Connection:=DM_Con.ADOCon;
ADOQ_FieldType.Close;
ADOQ_FieldType.SQL.Clear;
ADOQ_FieldType.SQL.Add('query');
...
ADOQ_FieldType.Open;
...
ADOQ_FieldType.Close;
ADOQ_FieldType.Free;
error:
Undeclared identifier. 'self'
چکار کنم تا بشه در این unit هم component رو create کرد؟
sender هم زدم همینطوری بود.
DB, ADODB هم use کردم.