delphi4arab منتديات دلفي للعرب

السلام عليكم

عند كتابة الكود في الـ Edit.text في الفورم مثلا
ُ
edit1.Text:= DBEdit1.text* Edit2.text

أريد وضع النتيجة(edit1.Text) في الفاست ريبورت دون تكرار العملية مع العلم أني اقوم بكتابة الكود في الفاست ريبورت ايضا

Memo1.text:= DBEdit1.text * Edit2.text
او
Memo1.text:= DBEdit1.text * DBEdit2.text

وقد يكون حقل في الديبيقريد

كيف يمكن تجنب تكرار الكود؟

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
MonText : TfrxMemoView;
begin

TfrxMemoView(frxReport1.FindObject('Memo1')).Text := 'delphi4arab.net';

frxReport1.ShowReport;

end; 

[size=small]بارك الله فيك وتقبل الله صيامكم[/size]

[صورة: p_1587h1p0i1.png]

لا أدري أين الخطأ

لا يوجد مكون إسمه tfrxMemoView في DataModule هذا هو الخطأ هل من حل

[صورة: p_1587bmj8v1.png]

(06-05-2020, 06:58 PM)ALG2009 كتب : [ -> ][size=small]بارك الله فيك وتقبل الله صيامكم[/size]

لا أدري أين الخطأ

لا يوجد مكون إسمه tfrxMemoView في DataModule هذا هو الخطأ هل من حل

الخطأ مني لاني لم اشرح جيدا

PHP كود :
uses Unit2, Unit3, frxClass;

procedure TForm1.Button1Click(Sender: TObject);
begin
TfrxMemoView(dmDATA.frxReport1.FindObject('Memo1')).Text := 'delphi4arab.net';

dmDATA.frxReport1.ShowReport;
end; 

أو

PHP كود :
uses Unit2, Unit3, frxClass;

procedure TForm1.Button1Click(Sender: TObject);
var
MonText : TfrxMemoView;

begin

MonText := TfrxMemoView(dmDATA.frxReport1.FindObject('Memo1'));

MonText.Text := 'delphi4arab.net';

dmDATA.frxReport1.ShowReport;
end; 

جزاك الله خيرا وأدخلك الجنة

ALG2009

larbiparadox

ALG2009

larbiparadox

ALG2009