دالة من نوع مصفوفة

[hanipino]

منذ قليل فقط واجهتنى مشكلة فى تحويل كود معين الى Function . لان هذا الاخير يحتوى على 3 قيم
يتم اخراجهم فى نفس الوقت . و كنت لااعرف كيف تكون Function قادرة على اخراج اكثر من Result
فقمت بمحاولت بحث فى نت , و كانت اول محاولة ناجحة (google بالمرصاد)

احببت ان اضع هذه المشاركة فى هدا القسم . لاننى اعتقد انها مفيدة جدا , اضافتا الى ذالك انها
تتزامن مع درس الاجراءات و الدوال .
ربما سبقت الاحداث قليلا لان الدروس لا تزال لم تتطرق الى المصفوفات .

مثال :

PHP كود :

Type ArrayValue = Array[0..2]of Integer;

Function Value(Int:Integer):ArrayValue;
begin
 Result[0]:=Int*2;
 Result[1]:=Int*4;
 Result[2]:=Int*8;
end; 


PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Text:=inttostr(Value(5)[0]);
 edit2.Text:=inttostr(Value(7)[1]);
 edit3.Text:=inttostr(Value(9)[2]);
end; 


[taha_gh]

مشكور أخي و لأول مرة أري هذه الطريقة

[abdelmalek]

بارك الله فيك اخي الكريم على هده المعلومات القيمة

الله ينورك وينور عقلك بالعلوم المنيرة

بالتوفيق لك ولي جميع اعضاء المنتدى الكرام