+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : دالة من نوع مصفوفة (/showthread.php?tid=358)
دالة من نوع مصفوفة - hanipino - 28-12-2008
منذ قليل فقط واجهتنى مشكلة فى تحويل كود معين الى 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 - 30-12-2008
مشكور أخي و لأول مرة أري هذه الطريقة
دالة من نوع مصفوفة - abdelmalek - 11-08-2010
بارك الله فيك اخي الكريم على هده المعلومات القيمة
الله ينورك وينور عقلك بالعلوم المنيرة
بالتوفيق لك ولي جميع اعضاء المنتدى الكرام