class procedures

[Farhad.B.S]

سلام.
میخواستم بدونم فرق procedure هایی که در یک کلاس هست و با کلمه class آغاز میشه چه فرقی با procedureهای معمولی داره ؟
ممنون.

[DelphiAmateur]

دوست عزیز
در دلفی همه پروسیجر ها عضو کلاسی هستند،پروسیجر های که در برنامه های معمولی می سازیم ویا دلفی می سازد
(مثلprocedure TForm1.Button1Click(Sender: TObject); )
عضو کلاس TForm1 هستند.
در مورد دوم اگه منظورت پروسیجر هایی مثل اینه:
procedure YourClassName.YourProcedureName;
begin
{Do Some Actions You want}
end;
اینها پروسیجرهایی هستند که در کلاسی که خودمان تعریف می کنیم بکار می روند و برای احضار آن در کلاسهای دیگر و پروسیجر های عضو کلاسهای دیگر مثل:

procedure TForm1.Button1Click(Sender: TObject));
به این صورت عمل می کنیم:


procedure TForm1.Button1Click(Sender: TObject);
var
YourClass1 : YourClassName;
begin
YourClassName.YourProcedureName;
.;
.
.
.

end;

end.

امیدوارم جوابت رو گرفته باشی

[Farhad.B.S]

ممنون از پاسختون ولی منظور من Procedure هایی به این شکله :


Class Procedure MyProccname(param);
یا
Class Function MyFuncname(params) : type

[Inprise]

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

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

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

مثال :




تعریف کلاس :

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:

[مهرداد برنامه نویس]

دستتون درد نکنه