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…
Turunan bisa memiliki method yang berbeda aksinya dengan leluhurnya
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 punya keturunan yang mewarisi sifat-sifatnya
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…
Apakah Class itu?
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 pointer
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…
Object atau Class
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…
ParamStr dan ParamCount
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 dan Decrypt
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…
Program “Upper”
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…
Selingan
Mungkin ada sebagian pembaca yang berpikir untuk apa membuat aplikasi console di era GUI (program dengan antarmuka grafis). Untuk sebagian besar aplikasi, mungkin aplikasi console memang kurang atau bahkan tidak disukai oleh pengguna. Akan tetapi perlu diingat bahwa tidak semua aplikasi berhubungan dengan pengguna berupa manusia. Banyak aplikasi yang lebih banyak digunakan oleh aplikasi lain.…