Object Oriented di delphi

OOP itu kepanjangan dari Object Oriented Programming, merupakan terobosan baru dalam pemrograman setelah pemrograman prosedural, pemrograman modular dan pemrograman abstraksi data.

Keuntungan dari OOP, antara lain :
– Reusable, kode yang diimplementasikan didalam class dapat digunakan kembali di aplikasi atau program lainnya.
– Extensible, kode yang sudah dibuat dapat kita rubah lagi implementasi fungsi-fungsinya sesuai dengan yang kita inginkan.
– Manageable, kode yang sudah dibuat lebih mudah untuk di maintain/manage. Misalnya kalau ada perubahan-perubahan business process maka yang perlu kita lakukan hanyalah merubah kode yang terdapat didalam class tersebut saja, tanpa harus membongkar semua kode aplikasi yang sudah dibuat dibuat.
Membuat Object di delphi
Misalkan kita mengasumsikan mahasiswa sebagai Objek , dimana mahasiswa ini secara umum mempunyai nama, alamat , dan informasi lainnya. mahasiswa juga mempunyai perilaku ataupun operasi. misalkan melakukan pendaftaran, mengisi pendaftaran , dan perilaku lainnya
, adapun contohnya adalah sebagai berikut:

//file buat new unit dengan file UMahasiswa.pas;
unit UMahasiswa;

interface

type
TMahasiswa = class
private
p_Nik : String;
p_Nama: String;
published
property nik : string
read p_Nik;
property nama : string
read p_Nama;
procedure SetNama(namaMhs : String);
function pendaftaran:Boolean;
constructor Create(nik : String);
end;
implementation
procedure TMahasiswa.SetNama(namaMhs : String);
begin
Self.p_Nama:=namaMhs;
end;

constructor TMahasiswa.Create(nik : String);
begin
Self.p_Nik := nik;
Self.p_Nama:='';
end;

function TMahasiswa.pendaftaran():Boolean;
begin
Result:=false;
if(Self.nama'') then
Result:=true
else
Result:=False;

end;

end.

cara menciptakan objek :

procedure TForm1.Button2Click(Sender: TObject);
var
MaBa:TMahasiswa;
NikCaMaba:string;
begin
NikCaMaba:='90112';
MaBa:=TMahasiswa.Create(NikCaMaba); // pembentuk
MaBa.SetNama('Caca'); // set properti dari objek
ShowMessage(' Mahasiswa Telah dibuat Nik Maba :'+MaBa.nik +' Nama:'+MaBa.nama);
if(MaBa.pendaftaran) then
ShowMessage('Mahasiswa Melakukan Pendaftaran') else
ShowMessage('Mahasiswa Belum Pendaftaran karena ada syarat yang belum dipenuhi');
MaBa.Destroy; // pemusnah
end;

download contoh code http://cid-4583f23bbe8b0f42.office.live.com/self.aspx/.Public/delphi/Contoh%5E_class.zip

2 thoughts on “Object Oriented di delphi

  1. Je says:

    siang,mas.
    saya sedang tugas akhir,
    saya ingin menanyakan apakah oop bisa diterapkan d pemrograman delphi?

    terimakasih untuk infonya🙂

    • Malem juga
      Pemerograman Delphi dapat diterapkan dengan Konsep OOP antara lain
      Abstraksi , encapsulation, polymorpism ,object, class , implement , override , method , properties ,constraint dan lain lain.
      Project nya yang Modular Dan Scalability nya mampu ke skala yang besar 😀
      TQ

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s