كيفية إستدعاء دالة في الفاست ريبورت؟

[ALG2009]

السلام عليكم
تقبل الله صيامكم
هل هناك مثال على كيفية إستدعاء دالة مكتوبة في البرنامج داخل الفاست ريبورت

[Lam.Abdeldjalil]

و عليكم السلام و رحمة الله

تقبل الله منا منكم

1. إنشاء الدالة

كود :

function TForm1.MyFunc(i: Integer): String; begin if i>0 then   result:='pos +' else   result:='neg -'; end;

2. نضيف الحدث UserFunction الخاص بـ frxReport المستعمل ( هذا الحدث يعتبر مسير الدوال الخارجية للمكون frxReport )

كود :

if MethodName = 'MYFUNC' then    Result := MyFunc(Params[0])

3. لإضافة الدالة لقائمة دوال الفاستريبورت نضعها في onCreate أو onShow

كود :

frxReport1.AddFunction('function MyFunc(i: Integer):String');

4. إستدعاء الدالة من داخل التقرير ( وقت التنفيذ)
ضع memo و نصها يكون كمثال  [MyFunc(10)]

[ALG2009]

الله يرضى عليك لقد فهمتها الآن
جزاك الله خيرا وزادك من علمه

[ALG2009]

السلام عليكم
لقد حاولت كثيرا دون فائدة

عندي الفاست ريبورت موظوع في وحده DataModule والدالة في الفورم1 طبقت كل شيء ولكن يعطيني خطأ بأن الدالة غير معرفة مع العلم أني ضمنت الـ unit1 في الداتا موديول والداتا موديول في الفورم 1
هكذا

DataModule

كود :

unit Unit3; interface uses   System.SysUtils, System.Classes, frxClass; type   TDataModule3 = class(TDataModule)     frxReport1: TfrxReport;     function frxReport1UserFunction(const MethodName: string;       var Params: Variant): Variant;   private     { Private declarations }   public     { Public declarations }   end; var   DataModule3: TDataModule3; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} uses Unit2; {$R *.dfm} function TDataModule3.frxReport1UserFunction(const MethodName: string;   var Params: Variant): Variant; begin   if MethodName = 'MYFUNC' then Result := MyFunc(Params[0]) end; end.

الفورم2

كود :

type   TForm2 = class(TForm)   function myfunc(i:integer):string  ;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form2: TForm2; implementation {$R *.dfm} uses Unit3; { TForm2 } { TForm2 } procedure TForm2.FormCreate(Sender: TObject); begin DataModule3.frxReport1.AddFunction('function MyFunc(i: integer):string'); DataModule3.frxReport1.ShowReport(); end; function TForm2.myfunc(i: integer): string; begin if i>0 then   result:='pos +' else   result:='neg -'; end; end.

ما المشكلة
زما هي الطريقة الصحيحة  هل أضع الدالة في الداتا موديول أي كل الدوال أضعها في الداتا موديول؟

[Delphi4Us]

كود :

https://www.youtube.com/watch?v=4OOrB6gSO9M&list=PL1c7L5EsigqIeOVzehGNfdEx_ij9iiMYS&index=17&t=977s

[ALG2009]

تقبل الله صيامكم وقيامكم
الفيديو يشرح طريقة كتابة دالة داخل الفاست ريبورت المشكلة لا يمكن منادتها داخل فاسست ريبورت آخر ويجب كتابنها من جديد
الشرح في الاعلى الذي شرحه Lam.Abdeldjalil يفي بالغرض زطبقته يعمل بشكل جيد ويمكن مناات الدالة في اكثر من فات ريبورت
مشكلتي هي ان الفاست ريبورت موضوع في DataModule فلم استطع منادة الدالة وتأتيني رسالة بأن الدالة غير معرفة لا اعرف ما السبب لقد وضعت الكود الذي به الخطأ في رد سابق

[Delphi4Us]

وعليكم السلام ورحمة الله

حلول :
جرب تعريف الوحدة Unit1 في التبويب Uses العلوي
تأكد ان الدالة public عامة وليست خاصة Private ويمكن رؤيتها من خارج الوحدة
جرب وضع الدالة في الوحدة Unit2 في الـ DataMoudel

[ALG2009]

نفس الشيء لم تعمل والله تعبتني
بدون داتا موديول تعمل
لما أضع الفات في داتا موديول لا تعمل والرسالة تقول الدالة غير معرفة وضعتها عامه ولم تنفع

[Delphi4Us]

الكود شغال لا مشكلة فيه

فقط اضف التالي في الحدث التالي للتقرير بالداتا موديل

كود :

function TDataModule2.frxReport1UserFunction(const MethodName: string;   var Params: Variant): Variant; begin if MethodName = 'MYFUNC' then    Result := form1.MyFunc(Params[0]) end;

اضف الدالة التالية في النموذج في القسم العام

كود :

type   TForm1 = class(TForm)     BitBtn1: TBitBtn;     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     function  MyFunc(i: Integer): String;   end;

وفي جسم الوحدة اضف الدالة كاملة

كود :

function TForm1.MyFunc(i: Integer): String; begin if i > 0 then   result:='pos +' + i.ToString else   result:='neg -'; end;

في زر استدعاء التقرير 

كود :

DataModule2.frxReport1.AddFunction('function MyFunc(i: Integer):String'); DataModule2.frxReport1.ShowReport()

بالتوفيق

[ALG2009]

لا إله إلا الله محمد رسول الله

الخطأ كان هنا

كود :

  if MethodName = 'MYFUNC' then Result := MyFunc(Params[0])

والصحيح هو ينقص form1 قبل MyFunction

كود :

if MethodName = 'MYFUNC' then   Result := form1.MyFunc(Params[0])

جزاك الله خيرا وزادك من علمه