مشكله اضافه الادوات داخل function

[عبد الله اكرم]

 

السلام عليكم 

 

اخواني لدي مشكله اضافه الادوات داخل 

function

وهذه صوره توضح المشكله

وشكراا لكم احبتي

[Rever7eR]

السلام عليكم 

 

و عليكم السلام و رحمة الله تعالى و بركاته
لا يمكن استعمال المكونات داخل ال Functions
اظن انك تقصد هذا :

كود :

Function MaxValue(a,b : Integer):Integer; begin    if a > b then    result := a    else    result := b; end; procedure TForm1.Button1Click(Sender: TObject); begin edit1.text := 'Hello'  + ' ' + IntToStr(MaxValue(7,11));  // call function end; end.

[merouane]

وعليكم السلام


إما أن تضيف الإجراء ضمن class الخاص بالفورم أو تقوم بالاستدعاء عبر كامل الطرف الأبوي

PHP كود :

type
  TForm1 = class(TForm)
  
   private
    { Private declarations }

  public
    { Public declarations }
    function MaxValue(a, b: integer): integer;
  end;
  
  
function TForm1.MaxValue(a, b: integer): integer;
begin
    if a > b then
        result := a
    else
        result := b;
    Edit1.text := 'Hello';
end; 


أو

PHP كود :

function MaxValue(a, b: integer): integer;
begin
    if a > b then
        result := a
    else
        result := b;
    Form1.Edit1.text := 'Hello';
end; 


[عبد الله اكرم]

وعليكم السلام


إما أن تضيف الإجراء ضمن class الخاص بالفورم أو تقوم بالاستدعاء عبر كامل الطرف الأبوي

PHP كود :

type
  TForm1 = class(TForm)
  
   private
    { Private declarations }

  public
    { Public declarations }
    function MaxValue(a, b: integer): integer;
  end;
  
  
function TForm1.MaxValue(a, b: integer): integer;
begin
    if a > b then
        result := a
    else
        result := b;
    Edit1.text := 'Hello';
end; 


أو

PHP كود :

function MaxValue(a, b: integer): integer;
begin
    if a > b then
        result := a
    else
        result := b;
    Form1.Edit1.text := 'Hello';
end; 


شكرااا اخي هذا هوه المطلوب