ساخت Calcfield در زمان اجرا و نسبت دادن یک تابع به OnCalcfield

[bmanfy]

با سلام.
می خوام در زمان اجرا برنامه یک Query بسازم .
براش یک Calc field اضافه کنم . وفیلد ها ی خود جدول رو هم بهش اضافه کنم .
بعد به رویداد On CalcField مربوط به Query یا تابع نوشته شده رو نسبت بدم .
این کار رو انجام میدادم اما خطا میداد . و در حال حاضر اون کدی استفاده میکردم رو در دسترس ندارم .
اگه میشه راهنماییم کنید.
در ضمن calcField مورط نظر قرار مقادیر عدیدی ذخیره کنه.
ممنون.

[afsoon_k77]

با دستورات زیر می تونی یک فیلد محاسباتی در دیتاست مورد نظرت ایجاد کنی





with TIntegerField.Create(ADOQuery1) do begin
Name :='نام شی فیلد';
FieldKind := fkCalculated;
FieldName :='نام فیلد';
DataSet := ADOQuery1;
end; // end with



حالا برای محاسبه فیلدت در رویداد ONCalc دیتاست کد زیرو می نویسی




if ADOQuery1.Fields.FindField('نام فیلد') <> nil then
// دستورات محاسبه فیلد Calc



موفق باشی