Semua class di dalam Delphi adalah turunan dari TObject. Jadi definisi tipe class seperti
1 | TGambar=class |
Memiliki arti yang sama dengan
1 | TGambar=class(TObject) |
Constructor dan destructor Constructor adalah method khusus yang berguna untuk pembuatan obyek. Biasanya constructor diberi nama Create. Pembuatan obyek yang sudah biasa kita lakukan adalah pemanggilan terhadap constructor yang telah didefinisikan di dalam TObject.…
Sebenarnya untuk mendapatkan sebuah obyek tidak harus dilakukan kepada variabel dengan tipe yang sama dengan obyeknya, akan tetapi bisa dilakukan kepada variabel dengan tipe leluhur obyeknya. Sebagai contoh, untuk mendapatkan obyek dengan tipe TLingkaran, maka kita tidak hanya dapat menerapkan kepada variabel Lingkaran yang bertipe TLingkaran saja, tetapi kita juga dapat menerapkan kepada variabel Gambar…
Perhatikan contoh program berikut dan hasilnya jika dijalankan.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | program Turunan2; {$APPTYPE CONSOLE} type TPoint=record X,Y:integer; end; TGambar=class Posisi:TPoint; procedure GambarObyek; end; TLingkaran=class(TGambar) Jari2:integer; procedure GambarObyek; end; TKotak=class(TGambar) Panjang:integer; Lebar:integer; procedure GambarObyek; end; procedure TGambar.GambarObyek; begin Writeln('Menggambar obyek'); end; procedure TLingkaran.GambarObyek; begin Writeln('Menggambar lingkaran'); end; procedure TKotak.GambarObyek; begin Writeln('Menggambar kotak'); end; var Gambar:TGambar; Lingkaran:TLingkaran; Kotak:TKotak; begin //membuat obyek Gambar:=TGambar.Create; Lingkaran:=TLingkaran.Create; Kotak:=TKotak.Create; //memanggil method Gambar.GambarObyek; Lingkaran.GambarObyek; Kotak.GambarObyek; //membuang obyek Gambar.Free; Lingkaran.Free; Kotak.Free; Writeln('Tekan Enter'); Readln; end. |
Jika program dijalankan hasilnya akan tampak sebagai berikut:
1 2 3 4 | Menggambar obyek Menggambar lingkaran Menggambar kotak Tekan Enter |
Dari contoh di atas terlihat bahwa method GambarObject antara TGambar, TLingkaran, dan TKotak memiliki aksi yang berbeda-beda.
Class monyet memiliki batasan-batasan seperti punya dua tangan, dua kaki, dua mata, dua lubang hidung, dua telinga, suka makan, tidak bisa berbicara, bisa membuat orang tertawa, dan lain-lain. Thole adalah obyek dari class monyet. Oleh karena itu Thole juga memiliki dua tangan, dua kaki, dua mata, dua lubang hidung, dua telinga, suka makan, tidak bisa…
Sebenarnya object merupakan tipe yang hanya digunakan sebagai kompatibilitas dengan versi-versi awal. Untuk versi yang lebih baru sebaiknya menggunakan class. Akan tetapi tipe class selalu merupakan pointer. Jadi deklarasi terhadap variabel dengan tipe class hanya menyediakan pointer untuk obyeknya, tidak sekaligus membuat obyeknya. Sedangkan untuk membuat obyek dengan tipe class tidak dilakukan dengan new(NamaObyek) tetapi…
Tipe object merupakan tipe data yang mengubah teknik pemrograman secara besar-besaran. Dengan adanya tipe object, kita bisa memperlakukan program seperti obyek pada kehidupan nyata. Bahkan tipe obyek juga bisa memiliki keturunan seperti kita. Akan tetapi kelebihan dari tipe obyek ini akan lebih terasa kemudahannya hanya jika kita menggunakan tipe pointer untuk berhubungan dengan obyek-obyeknya. Oleh…
Kebanyakan pemrogram pemula selalu ingin cepat-cepat membuat program dengan tampilan bagus. Mereka kurang menyukai keindahan yang terjadi behind the scene. Jika Anda termasuk orang yang cepat bosan dan lebih menyukai tampilan luar, maka Anda boleh melompati bagian ini dan langsung ke bagian VCL. Anda bisa kembali lagi ke bagian ini jika sudah merasa perlu untuk…
Kita sudah membuat program yang disa digunakan untuk bekerja dengan program-program lain menggunakan redireksi input dan output serta penggunaan pipe. Jika, kita kembali lagi pada perintah dir, kita melihat bahwa keluaran perintah ini bisa berubah sesuai dengan parameter yang diberikan. Kita juga bisa membuat program yang membaca parameter untuk membuat aksi yang berbeda tergantung pada…
Encrypt adalah istilah untuk merubah data menjadi data yang rahasia. Sedangkan decrypt adalah mengembalikan data rahasia tersebut menjadi data aslinya. Cara yang paling sederhana untuk membuat program enkrip adalah dengan menggeser data dengan faktor tertentu. Kita bisa menggeser dengan cara menambah atau mengurangi nilai ordinal datanya, bisa juga dengan memutar data dalam kode binernya. Jika…
Kita akan membuat sebuah aplikasi yang akan mengubah file text sehingga isinya berubah menjadi Upper Case (semuanya dalam huruf kapital). Programnya adalah sebagai berikut:
1 2 3 4 5 6 7 8 9 10 11 | program Upper; {$APPTYPE CONSOLE} var c:char; begin while not EOF do begin read(c); if(c>='a')and(c<='z')then c:=Char(ord(c)-32); write(c); end; end. |
Program tersebut akan membaca karakter demi karakter dari masukannya, kemudian jika karakter yang dibaca merupakan huruf biasa (a-z) maka karakter tersebut akan diubah menjadi huruf kapital. Nilai ordinal untuk huruf a…
