البابي والهادم في لغة ما من لغات البرمجة constructor و destructor

البابي والهادم في لغة ما من لغات البرمجة constructor و destructor

مثلا في دلفي
المثاال التالي يوضح كيف نعمل فئة توضح ذلك


person = class
private // محلي
inti1: integer; // الحقل الاول عدد صحيح
strs1: string; // الحقل الثاني
public /// عام
constructor Create(str1: string); // الباني
procedure setsem(i1: integer); // الهادم
function getsem():integer;
destructor Destroy;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ person }

constructor person.Create(str1: string);
begin
strs1 := str1; // اول قيمة يتم ارسالها
Dialogs.ShowMessage(strs1); // ظهورها في رسالة
end;

destructor person.Destroy;
begin
strs1:=''; // مسح القيمة
setsem(0); // جعل القيمة 0
beep; // صوت
end;

function person.getsem: integer;
begin
Result := inti1; // ارجاع القيمة المرسلة
end;

procedure person.setsem(i1: integer);
begin
inti1 := i1; // القيم مرسلة
end;

procedure TForm1.Button1Click(Sender: TObject);
var p1: person;
begin
/// القيمة التي ترسل عند انشاء الكائن
p1 := person.Create(' Create Object '); /// انشاء الكائن
try
p1.setsem(10); // ارسال قيمة
caption:=inttostr(p1.getsem);
finally
p1.Destroy;
end;

end;


ملاحظة:
private يتم الوصول اليه من الفئة فقط
public يتم الوصول اليه من الفئات المشتقة و التي يتم فيها نشاء الكائن