دخول

زكيري عبدالعالي · 30-06-2011, 11:32 PM

الكلمة المحجوزة self
هي تمثل اسم اختصار للصنف المحدد و استخدامها سيكون مناسب دائماً ،
ابسط اسباب ذلك هو اظهار قائمة بالعناصر الموجودة في الاوبجكت وقت البرمجة منذ للحظة التي تكتب فيها self.

Static Class

لا بد ان تكون جميع المتغيرات والدوال فيه من نوع static اضف إلى ذلك فإنه ليس من المنطقي تعريف object من هذا الفئة Class باستخدامNEW او CREATE

DELPHI

كود :
MyStaticClass = class(TObject)
    private {$HINTS OFF} constructor Create; {$HINTS ON}
    public  class var MyVariable: string;
    public  class function MyStaticMethod(MyParametre : string):string;
  end;

كود :
constructor MyStaticClass.Create;
begin

end;

class function MyStaticClass.MyStaticMethod(MyParametre: string): string;
begin
    Result := Copy(MyParametre,0,7);
end;

كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
   MyStaticClass.MyVariable:='zekiri abdelali';
   showmessage(MyStaticClass.MyStaticMethod(MyStaticClass.MyVariable));
end;

PRISM

كود :
MyStaticClass = static class 
    public  constructor ();
    public  class var MyVariable: string;
    public  class method MyStaticMethod(MyParametre : string):string;
  end;

كود :
constructor MyStaticClass() ;begin end;

class method MyStaticClass.MyStaticMethod(MyParametre : string): string;
begin
    result := MyParametre.Split(' ')[0];
end;

كود :
method MainForm.button2_Click(sender: System.Object; e: System.EventArgs);
begin
    MyStaticClass.MyVariable:='zekiri abdelali';
    MessageBox.Show(MyStaticClass.MyStaticMethod(MyStaticClass.MyVariable));
end;

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