مسئله : دسترسی به بخشی از یک کلاس بدون ساختن یک نمونه ( آبجکت ) از آن کلاس

راه حل : تعریف کلاس پراسیجر .

توضیح : بدون ساختن نمونه ای از یک کلاس عموما ممکن نیست از توانائی های موجود در آن کلاس استفاده کنیم . لذا با تعریف کلاس گونه فانکشنها و پراسیجرهای یک کلاس و با استفاده از نام کلاس میتوان از انها استفاده کرد .

مثال :



تعریف کلاس :

type
MyClass = class(TObject)
Private
MyClass_Value : Integer // یک متغیر برای کار داخلی کلاس
public
class function Value : Integer;
class procedure SetValue( v : Integer );
end;


پیاده سازی کلاس :

class function MyClass.Value : Integer;
begin
SharedValue:=MyClass_SharedValue
end;

class procedure MyClass.SetValue( v : Integer );
begin
MyClass_SharedValue:=v
end;


استفاده از کلاس بطور مستقیم :

a:=MyClass.Value*100;
MyClass.SetValue( a );






موفق باشید .

اینپرایز پاسخ تشریحی :roll: