المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : بخصوص الاجراءات والدوال


فارس
06-08-2010, 01:00 PM
بسم الله الرحمن الرحيم

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

kachwahed
06-08-2010, 01:12 PM
السلام عليكم
الأخ فارس أهلا بك
http://www.delphi4arab.com/forum/showthread.php?t=9

ان اعرف هل هيا طريقة بديلة..؟
الجواب:
كل طريقة بمفردها

فارس
06-08-2010, 01:45 PM
لو تكرمت اتمنى مزيد من التوضيح
هل الدوال والاجراءات طرق بديله لبع1ها البعض؟؟ اى هل يمكننا الاستغناء عن واحده واستخدام الاخرى بدلا منها؟؟؟
ام كل طريقة لها استخدام خاص ومعين؟؟

kachwahed
06-08-2010, 03:56 PM
لكل شيء مجال استخدامه الخاص
في أكثر الحالات يمكن أن تنوب التوابع (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;
استعمال التابع السابق أكثر راحة من استخدام الإجراء :)
بصفة عامة: إذا أردت أن تسترجع قيمة استخدم تابع (دالة) غير ذلك عليك بالإجراء.

فارس
07-08-2010, 12:05 AM
شاكر جدا
بارك الله فيك