كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport

[bouh25]

كيف اسند مجموع   sumFooter  لعدد حقيقي في محرر التقارير FastReport
مثال: 
var Sum1:real
begin 
sum1:=StrToFloat(memo_sumFooter.memo.strings[0]);
end;

[Mustapha29]

هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟

[bouh25]

هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟

نعم هذا الذي اقصده

[Mustapha29]

على الفورم :
frxReort1
Button
Label = // Somme
داخل مكون الفاست ربورت أضف : Memo1

كود :

procedure TForm1.Button1Click(Sender: TObject); var LbSum : TfrxMemoView;  // begin LbSum := frxReport1.FindObject('Memo1') as TfrxMemoView; // affect LabelSum a Memo1 LbSum.Text :=Label1.caption ; // affect Label1 a LbSum  ===> Memo1 frxReport1.ShowReport(); end;

و للإيضاح أكثر إليك هذا التطبيق في المرفقات

[bouh25]

لا اقصد هذا كما ان اعمل على كود الفاست روبور مباشرة
اقصد كيف ارجع قيمة sumFooter يعني مجموع لل band masterData في متغيير حقيقي 
الصورة في الرفقات 
و للإيضاح أكثر إليك هذا التطبيق في المرفقات

---

الصورة في المرفقات

[Mustapha29]

داخل برنامج FastReport
من جهة تبويب Code
جرّب ما يلي

Memo1.Text:=Memo2.Text
بحيث :
Memo1  = Sum
Memo2 = [Sum(<frxDBDataset1."val">,MasterData1)]

انظر المرفق

[bouh25]

لم ينجح الامر معي 
اليك المثال الذي اعمل عليه 
1/ في حاله اذا كان العدد ثابت مثل ماهو في memo  المسمى total دالة التفقيط تعمل عادي 
2/ في حالة اذا كان مجموع  كما هو في memo المسمى memo_sumFooter يعطيني القيمة صفر

---

لم ينجح الامر معي 
اليك المثال الذي اعمل عليه 
1/ في حاله اذا كان العدد ثابت مثل ماهو في memo  المسمى total دالة التفقيط تعمل عادي 
2/ في حالة اذا كان مجموع  كما هو في memo المسمى memo_sumFooter يعطيني القيمة صفر

---

المثال في البرنامج

---

المثال في البرنامج

---

المثال في البرنامج

---

لم ينجح في تحميل البرنامج
المثال في الرابط :   

http://www.mediafire.com/file/lna12nn45u...r.rar/file

[Mustapha29]

عندي يعمل عادي
إليك العمل في المرفقات

---

مشكلة في التحميل
ربما في المساء يكون المشكل و أرفع الملف Rar

[Mustapha29]

ملاحظة : استعمل Delphi 2010 Architect

راجع هذا الرابط
https://www.4shared.com/rar/ysJ2SQufda/sumHeader.html?

[bouh25]

قصدي كيف اسند القيمة الموجودة في memo المسمى Mustapha29 الى العدد g
اي 

var g:real;                                    
begin
g := Mustapha29.text ;

كيف اكتبها