+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حول درس الاجراءات و الدوال (/showthread.php?tid=1057)
حول درس الاجراءات و الدوال - Mr.Delphi - 16-07-2009
السلام عليكم ورحمة الله وبركاتة
لا **** ان اطيل عليكم لاكن اخوكم يواجه مشكلة
المشكلة في الدرس الثالث (الاجراء والدوال) طبعا حاول افهمة ماقدرت لانو الشرح كان على اله حاسبة
وكان شوي صعب
ياليت اي احد يشرحو لي بمثال بسيط حتا افهموا
بانتظاركم اخواني
وفقكم الله
سلام
حول درس الاجراءات و الدوال - kachwahed - 16-07-2009
وعليكم السلام ورحمة الله وبركاته
إقتباس :المشكلة في الدرس الثالث (الاجراء والدوال)ياريت تحدد أين المشكلة بالضبط ؟
حول درس الاجراءات و الدوال - Mr.Delphi - 16-07-2009
kachwahed كتب :وعليكم السلام ورحمة الله وبركاته
ياريت تحدد أين المشكلة بالضبط ؟
لما يحول الاجراء الى دالة
بالمختصر اخي ارريد ان افهم تحويل الاجراء الى دالة في مثال بسيط ...
سلام
حول درس الاجراءات و الدوال - kachwahed - 17-07-2009
مثال صغير للتوضيح:
PHP كود :
function SumXY(const x, y: Integer): Integer;
begin
Result := x + y;
end;
procedure Addition(const x,y: Integer; var Sum: Integer);
begin
Sum := x + y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
CalculatSum: Integer;
begin
CalculatSum := 0;
//Using procedure "Addition"
Addition(2,3, CalculatSum);
ShowMessage(IntToStr(CalculatSum));
//Using function "SumXY"
ShowMessage(IntToStr(SumXY(2, 3)));
end;
من هنا يتبين أن الدالة (function) تعيد قيمة بالضرورة (result) بخلاف الإجراء (procedure)، أظن واضح؟
بالتوفيق.
حول درس الاجراءات و الدوال - Mr.Delphi - 17-07-2009
شكرا جزيلا لك اخي الكريم
شكرا مرة اخرى