Constructor ها در پاسکال شی‌گرا

Constructor ها در پاسکال شی‌گرا

به متدی که باعث ایجاد یک نمونه جدید از کلاس میگردد Constructor گفته میشود
Constructor  در لغت به معنای سازنده است و در عمل نیز برای همین منظور استفاده میشود
تعجب کرده اید ؟! اگر با رکوردها کار کرده باشید نباید تعجب کنید
همان طور که تعریف یک رکورد باعث ایجاد یک نمونه از ان در حافظه نمیشود
در مورد کلاس نیز این موضوع صادق است
برای درک بهتر به تعریف رکورد زیر توجه کنید

type
 TSudent = record
         Name : string[20];
         Family : string[30];
end;

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

type
 TCar = class
 private
 started : Boolean;
 Speed   : Byte;
 Procedure StartEngine;
 Procedure StopEngine;
Public
 Procedure Start;
 Procedure ShutDown;
 function GetSpeed : Byte;
end;

توجه داشته باشید مواردی که در قسمت Type معرفی میشوند
باعث تخصیص حافظه نخواهد شد
لذا با توجه به این که رکورد و کلاس در قسمت Type معرفی می شوند
حافظه ای به آن ها تخصیص داده نمیشود

ایجاد نمونه ای ازیک کلاس نیاز به حافظه دارد
وظیفه متد Constructor این است که حافظه مورد نیاز کلاس را تخصیص داده متغییرهای مربوط به کلاس را مقداردهی اولیه میکند و یا هر وظیفه دیگری را که برای شروع به کار مورد نیاز شد انجام میدهد

در مثال قبلی ما فاقد Constructor بود
در صورتی که یک کلاس فاقد Constructor باشد شما میتوانید از متد Constructor مربوط به جد اصلی کلاس استفاده کنید
تعجب کرده اید ؟! باید بدانید که در پاسکال شی‌گرا تمامیکلاس ها از TObject  منشعب میشوند
و در حقیقت TObject یک کلاس است و متدهای اساسی مثل ساختن و تخریب اشیا را شامل میشود
و جد اصلی تمامی کلاس هاست
کلاس TObject شامل یک Constructor با نام Create است
لذا در صورتی که یک کلاس فاقد Constructor باشد
میتواند از متد Create استفاده کند
توجه داشته باشید که در رابطه با وراثت در ادامه توضیحات کاملی ارایه خواهد شد

لازم به ذکر است که در مورد کلاس های ساده استفاده از Constructor مربوط به جد اصلی کلاس روش معقولانه‌ای است
شمامی توایند Constructor ویژه خود را به وجود آورده و نام آن را نیز به دلخواه تعیین کنید
اما برای تعریف آن باید از کلمه کلیدی Constructor استفاده کنید
برای مثال در تعریف کلاس بعد از Constructor نیز استفاده شده است

type
 TCar = class
 Private
  Started : Boolean;
  Speed   : Byte;
  procedure StartEngine;
  procedure StopEngine;
 public
  procedure Start;
  procedure ShutDown;
  function GetSpeed : Byte;
  constructor Create;
end;

توجه داشته باشید که Constructor متد ویژه‌ای است که میتواند دارای نوع بازگشتی باشد
چرا ؟ برای این که Constructor نمیتواند مقدار دهی را بازگرداند
در صورتی که شما درتعریف Constructor  از نوع بازگشتی استفاده کنید کامپایلر ازشما ایراد خواهد گرفت
یک کلاس میتواند شامل بیش ازیک Constructor  باشد
این امر از دو طریق مسیر است
روش اول این است که هر Constructor  از نام متفاوتی استفاده کند.

type
 TCar = class
 Private
  Started : Boolean;
  Speed   : Byte;
  procedure StartEngine;
  procedure StopEngine;
 public
  procedure Start;
  procedure ShutDown;
  function GetSpeed : Byte;
  constructor Create;
  constructor CreateModel(Model : string);
end;

روش دوم این است که با استفاده از تکنیک Method Overloading این کار را انجام دهید

در رابطه با Method Overloading در پست های اینده توضیحات کاملی ارایه داده خواهد شد
برای مثال در تعریف زیر از دو Constructor  با اسامی یکسان استفاده شده است

type
 TCar = class
 Private
  Started : Boolean;
  Speed   : Byte;
  procedure StartEngine;
  procedure StopEngine;
 public
  procedure Start;
  procedure ShutDown;
  function GetSpeed : Byte;
  constructor Create;Overload;
  constructor Create(Model : Sttring); overload;
end;

شاید این پرسش به ذهن شما خطور کرده باشد
که داشتن چند Constructor چه مزیتی دارد ؟
پاسخ این است که با استفاده از چندین Constructor میتوانید با روش های مختلفی یک کلاس را به وجود اورید
برای مثال یک کلاس میتواند شامل دو Constructor   باشد که یکی فاقد پارامتر و دیگری دارای پارامتر باشد
و با استفاده از پارامترها اقدام به مقدار دهی اولیه فیلدها کند
برای مثال این کلاس را در نظر بگیرد

type
 TMyRect = class
 Private
  Left  : Integer;
  Top   : Integer;
  Right   : Integer;
  Bottom   : Integer;
 public
  function GetWidth : Integer;
  function GetHeight : Integer;
  procedure SetRect (Aleft, Atop, Aright, Abottom : Integer);
end;

همان طور که مشاهده میکنید کلاس فوق برای ترسیم مستطیل به وجود آمده است
و شامل دو Constructor است
فرض کنید پیاده سازی اولین Constructor آن به صورت زیر باشد

constructor TMyRect.Create;
begin
 inherited Creat;
 Left   := 0;
 Top    := 0;
 Right  := 0;
 Bottom := 0;
end;

پیادسازی Constructor  آن به این صورت باشد

Constructor TmyRect.CreateVal(ALeft,Atop,ARight,ABottom: integer);

begin
 integerited Create;
  Left     : ALeft;
  Top      : ATop;
  Right    : ARight;
  Bottom   : ABottom;
end;

اولین Constructor به سادگی تمامی  فیلدها را با صفر مقداردهی میکند
اما دومینConstructor فیلدهای کلاس را با توجه به پارامترهای ارسال شده مقداردهی میکند
توجه داشته باشید که متغییرهای درون لیست پارامترها برای Constructor حکم متغییرهای محلی را دارند
و در دلفی مرسوم است که اسامی متغییرهای پارامتر ها را با پیشوند A مشخص میکنند
حتما ازدیدن کلمه کلیدی integerited کمی جا خورده اید
زیاد تعجب نکنید زیرا در رابطه با وراثت و کلمه کلیدی integerited در ادامه به طور کامل شرح خواهم داد

حتما خسته شده اید و میخواهید سریع تر بدانید که چگونه میتوانید
نمونه ای از یک کلاس را به وجود آوردید؟
من هم مثل شما عجله دارم که اصل موضوع را مطرح کنم
لذا به کد زیر توجه کنید

var
 Rect1 : TMyRect;
 Rect2 : TMyRect;
begin
 Rect1 : TMyRect.Create;
 Rect2 : TMyRect.CreateVal(0, 0, 100, 100);
end;

کد فوق باعث ایجاد دو نمونه ( یا به طور عامیانه دو شی ) از کلاس TMyRect خواهد شد
اولین عبارت درون بلوک کد فوق از Create و دومین CreateVal استفاده کرده است
توجه داشته باشید که هر دو نمونه از تخصیص حافظه پویا استفاده کرده‌اند
حتما با توجه به مطالب قبلی وب سایت سوال خواهید کرد
که در این عبارات از تابع AllocMem خبری نیست
پس چگونه به صورت پویا از خافظه استفاده شده است؟!
پاسخ این است که در زبان پاسکال شی‌گرا حافظه مربوط به کلاس ها همیشه به صورت پویا تخصیص می یابد
ودر مثال قبلی متغییر های Rect1 و Rect2 اشاره گرهایی به کلاس TMyRect هستند
اشاره به این نکته ضروری است که درمثال قبلی اقدام به آزاد کردن حافظه مربوط به نمونه‌ها نکردیه‌ایم
لذا حافظه مربوطه بلااستفاده خواهد ماند

در پست های بعدی در این مورد بحث خواهیم کرد