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

السلام عليكم
اذا كان عندي مجموعه من الايعازات تطبع اثناء تنفيذ البرنامج في ال(meno) فكيف استطيع ان انسخ هذه الايعازات في برنامج ثاني لتكون جزء منه حيث بأستخدام هذه الايعازات يتم تنفيذ البرنامج الثاني

وعليكم السلام ورحمة الله
السؤال غير واضح
ممكن كتابة مثال؟

السلام عليكم
اخي انا في البرنامج الاول عندي هذه الايعازات للطباعه في memo

كود :
case x of
     1:begin
          form1.Memo1.Lines.Add(q+'if '+'number'+'<='+inttostr(round(w[x]))+' then');
          testnode(a11,a12,n11,n12,q);
       end;
     2:begin
          form1.Memo1.Lines.Add(q+'if '+'OGTT'+'<='+inttostr(round(w[x]))+' then');
          testnode(a21,a22,n21,n22,q);
       end;
     3:begin
          form1.Memo1.Lines.Add(q+'if '+'blood'+'<='+inttostr(round(w[x]))+' then');
          testnode(a31,a32,n31,n32,q);
       end;

الان انا أريـــد ماسوف يطبع في الmemo من قواعد استحدمه في برنامج ثاني ولكن نسخ هذه القواعد الى البرنامج الثاني يتم برمجيا

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

rose

kachwahed

rose