التفقيط في الفاست ريبورت والمجاميع

[Delphi4Us]

تعديلات اضافية على المشروع

تم انشاء وحدة تقوم بالتفقيط داخل الدلفي بحيث يتم استدعاءها من الفاست ريبورت بدل من الدالة السابقة حتى يكون المثال اكثر عملية

كود :

Memo14.text := MyFunc(Memo9.value);

ويتم ارسال قيمة الاجمالي لاستعادته كنص

في الدالة التي عرفناها على الفاست ريبورت يتم استدعاء دالة التفقيط

كود :

function TForm1.MyFunc(s: Double): string; begin Result:=NumToTxt(s,'دينار','درهم'); end;

طبعا بالامكان استبدال هذه الدالة التي عرفناها بدالة التفقيط مباشرة فقط لان المثال كان هكذا لم اشاء ان اغيره



لاظهار التفقيط في الـ Title لابد ان تختار من القائمة Report ثم Option ومنها تؤشر الخيار Double Pass
فهنا يظهر تفقيط سفلي واخر علوي
السفلي بواسطة دالة بداخل الفاست ريبورت والعلوي باستخدام دالة في الدلفي

حقيقة كنت اريد ان اضيف الدالة مباشرة بداخل الفاست ريبورت بحيث تستخدمها بزمن التصميم وليس التشغيل فقط

ولكن هذا لا يمكن كما تشير مستندات الشركة هنا بالرابط التالي

كود :

https://fast-report.com/documentation/DevMan/index.html?custom_functions_connection_to_report.htm

ولكن يمكن بزمن التشغيل مع استخدام الـ Designer وتظهر الدالة بلا اي مشكلة ويمكن استخدامها ومعاينة النتيجة فوريا



استخدم الكود الذي بالمشروع لان هناك مشكلة بالكود الذي تعرضه الشركة

كود :

constructor TFunctions.Create; begin inherited Create(AScript); with AScript do    AddMethod('function MyFunc(s: String; i: Integer): Boolean', CallMethod,             'My functions', ' MyFunc function always returns True');    AddMethod('procedure MyProc(s: String)', CallMethod,             'My functions', ' MyProc procedure does not do anything''); end; end;

حيث نسيت بعض العبارات والصحيح كالتالي :

كود :

constructor TFunctions.Create; begin inherited Create(AScript); with AScript do    begin    AddMethod('function MyFunc(s: String; i: Integer): Boolean', CallMethod,             'My functions', ' MyFunc function always returns True');    AddMethod('procedure MyProc(s: String)', CallMethod,             'My functions', ' MyProc procedure does not do anything');    end; end;

يمكنكم معاينة المشروع بالمرفقات