Konstruktor dan Destruktor (Delphi)

Dalam pembuatan objek atau kelas terdapat metode selain procedure dan function adalah Konstruktor dan Destruktor. Konstruktor digunakan untuk menginisialisasi objek, dipanggil pada saat objek diciptakan. Sedangkan destruktor biasanya setelah objek tidak digunakan lagi. Pembuatan konstruktor dengan menggunakan key word “Constructor” sedangkan dekonstruktor menggunakan “Destructor”.

 

Contoh :

Type
Titik = Objek
x,y,Warna : Integer;
constructor Inits
destructor done
procedure SetX(newx:Integer)
function GetX:Integer;
End;

Constructor Titik.Inits
Begin
X := 0;
Y := 0;
Warna := 1;
End;

Destructor Titik.Done
Begin
X := 0;
Y := 0;
Warna := 1;
End;

Procedure Titik.SetX(NewX:Integer)
Begin
X := NewX;
End;

Function Titik.GetX:Integer;
Begin
GetX := X;
End;

Var A : Titik;
Begin
A.Inits;
A.SetX(3);
Writeln(A.GetX);
A.Done;
End.

Sumber : http://omophorest.blogspot.com/2012/05/object-oriented-programming-oop.html