delphi4arab منتديات دلفي للعرب

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

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

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

وكان شوي صعب

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

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

وفقكم الله

سلام

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

إقتباس :المشكلة في الدرس الثالث (الاجراء والدوال)

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

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

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

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

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

سلام

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

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

kachwahed

Mr.Delphi

kachwahed

Mr.Delphi