ورود

View Full Version : تعریف کلاس در دلفی و استفاده از آن



skmkh6056
جمعه 23 فروردین 1387, 11:21 صبح
با سلام
من هیچ اطلاعاتی در رابطه با تعریف و استفاده از کلاس ندارم. و چیزی هم نتونستم پیدا کنم. لطفا یه آدرسی که کامل برای یه مبتدی آموزش بده برام معرفی کنه یا اینکه یه جوری راهنماییم کنین. با تشکر و سپاس

babak_delphi
جمعه 23 فروردین 1387, 13:19 عصر
TMyClass = class
private
FMyPrivate_Var : Integer;
procedure MyPrivateProc;
protected
procedure MyProtectedProc;
public
MyPublic_Var : string;
constructor create;
procedure MyPublicProc(MyVar : integer);
end;



خوب تا اینجا یک کلاس تعریف کردید
حالا برای استفاده از اون باید اول یک متغیر از نوع اون کلاس تعریف کنید



var MyNewOBJ : TMyClass;


حالا باید اون رو create کنید



MyNewOBJ := TMyClass.Create;


برای Constractor هم یک کد می تونید بنویسید که کلاس رو Initial کنه
مثلا


constractor TMyClass.Create;
begin
FMyPrivate_Var := 10;
end;