Struktur UnitStruktur pada unit terbagi menjadi tiga bagian, yaitu interface, implementation, dan initialization, pada contoh berikut ditunjukkan yaitu:view sourceprint?01.unit
InterfaceBagian ini berisi dari daftar unit yang digunakan, deklarasi konstanta maupun variabel (jika ada) dan prototipe prosedur dan fungsi. Prosedur dan fungsi di sini hanya dikenalkan saja, dan implementasinya akan ditulis di implementation. Contoh dari prototipe prosedur dan fungsi:view sourceprint?1.procedure Tukar(a, b: integer): integer;2.function Tambah(a, b: integer): integer;
Perhatikan: bagian ini harus selalu ada di setiap pembentukan sebuah unit
ImplementationAdalah bagian implementasi dari prototipe interface. Berikut ini contohnya:view sourceprint?01.procedure Tukar(var a, b: integer);02.var03. temp: integer;04.begin05. temp := a;06. a := b;07. b := temp;08.end;09. 10.function Tambah(a, b: integer): integer;11.begin12. Tambah := a + b;13.end.
InitializationBagian ini bersifat opsional. Bisa ditulis, bisa tidak.
Tidak ada komentar:
Posting Komentar