مسئله : دسترسی به بخشی از یک کلاس بدون ساختن یک نمونه ( آبجکت ) از آن کلاس
راه حل : تعریف کلاس پراسیجر .
توضیح : بدون ساختن نمونه ای از یک کلاس عموما ممکن نیست از توانائی های موجود در آن کلاس استفاده کنیم . لذا با تعریف کلاس گونه فانکشنها و پراسیجرهای یک کلاس و با استفاده از نام کلاس میتوان از انها استفاده کرد .
مثال :
تعریف کلاس :
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: