delphi4arab منتديات دلفي للعرب
كيفية عدم تكرار الكود؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية عدم تكرار الكود؟ (/showthread.php?tid=10819)

كيفية عدم تكرار الكود؟ - ALG2009 - 06-05-2020

السلام عليكم

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

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

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

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

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

RE: كيفية عدم تكرار الكود؟ - larbiparadox - 06-05-2020

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

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

frxReport1.ShowReport;

end; 


RE: كيفية عدم تكرار الكود؟ - ALG2009 - 06-05-2020

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

[صورة: p_1587h1p0i1.png]

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

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

[صورة: p_1587bmj8v1.png]

RE: كيفية عدم تكرار الكود؟ - larbiparadox - 06-05-2020

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

[صورة: p_1587h1p0i1.png]

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

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

[صورة: p_1587bmj8v1.png]

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

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; 


RE: كيفية عدم تكرار الكود؟ - ALG2009 - 07-05-2020

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