حول درس الاجراءات و الدوال

[Mr.Delphi]

السلام عليكم ورحمة الله وبركاتة

لا **** ان اطيل عليكم لاكن اخوكم يواجه مشكلة

المشكلة في الدرس الثالث (الاجراء والدوال) طبعا حاول افهمة ماقدرت لانو الشرح كان على اله حاسبة

وكان شوي صعب

ياليت اي احد يشرحو لي بمثال بسيط حتا افهموا

بانتظاركم اخواني

وفقكم الله

سلام

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

المشكلة في الدرس الثالث (الاجراء والدوال)

ياريت تحدد أين المشكلة بالضبط ؟

[Mr.Delphi]

وعليكم السلام ورحمة الله وبركاته

ياريت تحدد أين المشكلة بالضبط ؟

لما يحول الاجراء الى دالة

بالمختصر اخي ارريد ان افهم تحويل الاجراء الى دالة في مثال بسيط ...

سلام

[kachwahed]

مثال صغير للتوضيح:

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]

شكرا جزيلا لك اخي الكريم

شكرا مرة اخرى