دخول

زكيري عبدالعالي

يمكن ايضاً ان يستقبل الباني بارميترس، فمثلاً نريد تغيير القيمة الافتراضية بقيمة نحددها في كل مرة ننشا الغرض .

[COLOR="DarkOrange"]ملاحضة هامة سنرجع اليها بعد قليل
يكن للصنف ان يحتوي على عدة مشيدلت او بواني
[/COLOR]

كود :
unit MyClassFile;
interface
type
    Mycalss = class
      private _mMyField: string;
      public  property MyField : string  read _mMyField write _mMyField;
      public  constructor Create(); overload ;
      public  constructor Create( mYFieldVariable : string ) ; overload ;
    end;
implementation

  constructor Mycalss.Create();
  begin
      Self._mMyField := 'قيمة افتراضية للحقل ';
  end;

  constructor Mycalss.Create(mYFieldVariable : string);
  begin
      Self._mMyField := mYFieldVariable;
  end;
end.

كود :
procedure TForm1.Button1Click(Sender: TObject);
var MyObeject : MyClassFile.Mycalss;
begin
    MyObeject := MyClassFile.Mycalss.Create('تمرير فيمة افتراضية جديدة');
    showmessage(MyObeject.MyField);
end;

PRISM

كود :
namespace MyProject;
interface
type
 
  MyClass = class 
    private _mMyField: string;
    public property MyField : string read _mMyField write _mMyField; 
    constructor();
    constructor ( mYFieldVariable : string ) ; 
  end;

implementation 
constructor MyClass();
begin
    self._mMyField := 'قيمة افتراضية للحقل ';
end;

constructor MyClass( mYFieldVariable : string ) ;
begin
     Self._mMyField := mYFieldVariable;
end;

end.

كود :
method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
begin
   var MyObject := new MyProject.MyClass('تمرير فيمة افتراضية جديدة');
       MessageBox.Show(MyObject.MyField);
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة