برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. .......

[hanipino]

برنامج لحساب المصفوفات من نوع 3 اسطر و 3 اعمدة . الجمع .الطرح. الضرب. المحدد. .......

[kachwahed]

عمل رائع
يمكنك تغيير Caption لجميع مكونات Label دفعة واحدة كما يلي:

PHP كود :

var i: Integer;
begin
for i:=1 to 9 do begin
(FindComponent('label'+IntToStr(i)) as TLabel).Caption := 


[hanipino]

السلام عليكم

... لا Label و لا Edit و لا 3 اسطر و لا 3 اعمدة ...
... 100 سطر و 100 عمود و ضغطت زر . و إن شاء الله المخرجات صحيحة و الله اعلم .
ان كانت هناك اخطاء او تعديل على الكود من حيث الاختصار او طريقة اخرى فلا تبخلوا علينا .
لمن يريد المواصلة فى استخراج المحدد و المعكوس . نكون له شاكرين لو تكرم بالكود .

و السلام عليكم .

[hanipino]

تم احداث اضافة و تغير صغير و مفيد على الكود . اضافة امكانية ضرب عدد فى مصفوفة .
التغيير : الان عملية الجداء اسرع بكثير مما كانت عليه .
يوجد فى هذا المرفق المعدل مصفوفة تتكون من 2000 :confused:سطر و 10 اعمدة تقابلها مصفوفة من 10 اسطر و 10 اعمدة .
قم باجراء عملية الجداء عليهم فى كلتا المرفقين (قبل التعديل و بعد التعديل) ... فرق شاسع فى سرعة اخراج النتائج .

[hanipino]

السلام عليكم

قمت ب (تعديل , تنضيم) على الكود و نقلته الى وحدة مستقلة . لتكود عملية استدعاء الدوال
بكل يسر و وضوح و تنضيم . ... انخفض قليلا حجم الملف التنفيدى .

الاستدعاء يكون بهذا الشكل :

الجداء :

PHP كود :

Mmo3.Text:= Array_Fois_Array(Mmo1.Lines,Mmo2.Lines).Text; 


الجمع :

PHP كود :

Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'+').Text; 


الطرح :

PHP كود :

Mmo3.Text:= Array_Action_Array(Mmo1.Lines,Mmo2.Lines,'-').Text; 


المنقول :

PHP كود :

Mmo3.Lines.Text:=Mnl_Array(Mmo1.Lines).Text; 


فقط .
كالعادة ... ان كانت هناك اخطاء صححوا.
الوحدة فى المرفقات .

و السلام عليكم