كيف يمكن تمرير مصفوفة إلى أى إجراء

السلام عليكم

استخدم المصفوفة المفتوحة اذا كان عدد المتغيرات مو معروفة

فالنفترض ان المصفوفة يحتوي على متغيرات من نوع العدد الصحيح integer

وضع المتغيرات فى مصفوفة سهل :)

myarry[0]:=myvar1;

myarry[1]:=myvar2;

ودواليك

مثال عن اعلان الاجراء

Procedure MyProc(var Myarray : array of integer)

وهنا عدد المصفوفة ليست مهمة بالنسبة للاجراء

والله أعلم

الأخ رمضان:

يمكن التصريح عن الإجراء المطلوب ضمن قسم implementation كما يلي:

Function Sum(A:array of Integer): Integer;
var I, T: Integer;
begin
T := 0;
for I := Low(A) to High(A) do
    T := T + A;
Sum := T;
end;

وهذا التابع يقوم بحساب مجموع عناصر المصفوفة الممررة له، ولاستدعائه قم بوضع زر (Button) على النموذج ثم أنشئ إجراء الحدث OnClick واجعله كما يلي:

procedure TForm1.Button1Click(Sender: TObject);
var
   B: Array[1..3] of integer;
   R: Integer;
begin
B[1] := 2;
B[2] := 15;
B[3] := 7;
R := Sum(B);
ShowMessage('The Sum Is : ' + IntToStr®);
end;

بعد ذلك شغل التطبيق واحصل على النتائج

مع تمنياتي بأن تكون إجابتي نافعة