Welcome to Abdul Malik Ikhsan's Blog

Penggunaan class pada Delphi

Posted in Tutorial Delphi by samsonasik on October 2, 2007

Penggunaan class dalam delphi, hampir mirip dengan java, php, ataupun yang lainnya, hanya saja, constructor,procedure, maupun function semuanya dideklarasikan dulu, baru diisi, Kita coba ya … 🙂
Kita buka aplikasi borland delphinya :
Kita buat satu unit baru, sebagai kelas, klik file, new – > Unit -> simpan dengan nama umanusia.pas , sekarang, kita tuliskan kode programmnya :

Code:
unit umanusia;interface
type manusia = class
private
makan,minum,nama,alamat:String;
public
constructor manusia(ma:String;mi:String);
procedure setnama(n:String);
procedure setalamat(n:String);
function getnama:String;
function getalamat:String;
function getnyam:String;
end;
implementation
constructor manusia.manusia(ma:String;mi:String);
begin
makan:=ma;
minum:=mi;
end;
procedure manusia.setnama(n:String);
begin
nama:=n;
end;
procedure manusia.setalamat(n:String);
begin
alamat:=n;
end;
function manusia.getnama:String;
begin
result:=nama;
end;
function manusia.getalamat:String;
begin
result:=alamat;
end;
function manusia.getnyam:String;
begin
result:=makan+’ dan minum ‘+minum;
end;
end.

class.JPG
Kita sekarang bisa panggil di aplikasinya , misalkan ada form tampilkanmanusia, kita simpan dengan nama unit1, berikut kode programmnya

Code:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,umanusia,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
o:manusia;
implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
//konstruktor
o:=manusia.manusia(‘bakso’,’es teh’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
o.setnama(edit1.Text);
label1.caption:=o.getnama+’ sedang makan ‘+o.getnyam;
end;

end.

——————–

tampilkanclass.jpg

Advertisements

2 Responses

Subscribe to comments with RSS.

  1. ratri said, on April 28, 2008 at 10:07 am

    aslm…
    maaf…mau tanya boleh ya…
    tau gimana menghubungkan MBROLA dengan delphi?
    tolong ya…bingung banget neh…

  2. samsonasik said, on April 29, 2008 at 1:57 am

    kalau MBROLA saya belum pernah pakai, insya Allah nanti kalau ketemu, dikasih tahu 🙂


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

%d bloggers like this: