+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بخصوص الاجراءات والدوال (/showthread.php?tid=2266)
بخصوص الاجراءات والدوال - فارس - 06-08-2010
بسم الله الرحمن الرحيم
ما الفرق بين استخدام الاجراءات وبين استخدام الدوال
انا متابع لدورة الدلفى الموجودة فى الموقع.
وحان دور متابع الجزء الخاص ب الاجراءات والدوال وتابعتها فعلا ولكن قبل بداية اتقان هذا الجزء
هل هيا طريقة بديلة..؟
بمعنى ان استخدام طريقة الدوال عبارة عن طريقة بديلة لاستخدام الاجراءات ويمكننا اختيار احد الطرق
الاسهل بينهما
اما هناك برامج او تقنيات حتى يتم برمجتها لابد من الاعتماد عليها وليست كل طريقة بمفردها
بخصوص الاجراءات والدوال - kachwahed - 06-08-2010
السلام عليكم
الأخ فارس أهلا بك
http://www.delphi4arab.net/forum/showthread.php?tid=9
إقتباس :ان اعرف هل هيا طريقة بديلة..؟الجواب:
إقتباس :كل طريقة بمفردها
بخصوص الاجراءات والدوال - فارس - 06-08-2010
لو تكرمت اتمنى مزيد من التوضيح
هل الدوال والاجراءات طرق بديله لبع1ها البعض؟؟ اى هل يمكننا الاستغناء عن واحده واستخدام الاخرى بدلا منها؟؟؟
ام كل طريقة لها استخدام خاص ومعين؟؟
بخصوص الاجراءات والدوال - kachwahed - 06-08-2010
لكل شيء مجال استخدامه الخاص
في أكثر الحالات يمكن أن تنوب التوابع (Functions) عن الإجراءات (Procedure) أو العكس حسب الحالة
لاحظ ثم استنتج:
كود :
function FuncCalc(const x, y: Integer): Integer;
begin
Result := x + y;
end;
procedure ProcCalc(const x, y: Integer; var Result: Integer);
begin
Result := x + y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Sum: Integer;
begin
ShowMessage(IntToStr(FuncCalc(2, 3)));
ProcCalc(2, 3, Sum);
ShowMessage(IntToStr(Sum));
end;
بصفة عامة: إذا أردت أن تسترجع قيمة استخدم تابع (دالة) غير ذلك عليك بالإجراء.
بخصوص الاجراءات والدوال - فارس - 06-08-2010
شاكر جدا
بارك الله فيك