Jika dalam aplikasi yang dibuat menggunakan beberapa array, hal tersebut bisa jadi akan menyulitkan karenan sebagian besar rekan2 kita mengarahkan referensi array dengan penomoran.
Coba kita lihat kode berikut, cara dibawah ini adalah yang sering kita lakukan.
Fields[ 0 ].AsString := 'Dian Susastro'; Fields[ 1 ].AsInteger := 25; Fields[ 3 ].AsString := 'Ngibing';Coba bayangkan jika dalam ratusan baris sourcecode terus menerus menggunakan dan menghapalkan nomor, bukankah akan sulit sekali? Mari kita coba menggantinya dengan sejumlah konstanta.
const // TC = Table Clients (clients.dbf) sebagai contoh TC_NAMA = 0; TC_UMUR = 1; TC_HOBBY = 3; // ... bla bla bla kode-kode yang lain ... Fields[ TC_NAMA ].AsString := 'Dian Susastro'; Fields[ TC_UMUR ].AsInteger := 25; Fields[ TC_HOBBY ].AsString := 'Ngibing;'Dengan menggunakan penamaan seperti ini akan memudahka kita dalam meng-koding suatu aplikasi, tanpa perlu direpotkan dengan hapal menghapal nomor
Random Articles
- tickers: pentium counter
- Lazarus Release 2.2.4
- Mengenal OXYGENE – Pascal For .NET
- Selamat Menunaikan Ibadah Suci Ramadhan 1428 H, Mohon Maaf Lahir Bathin
- KSpoold Disinfector 1.0 - Freeware, OpenSource
- Form yang selalu berdampingan kemanapun perginya
- Pengumuman Pemenang Lomba Hack-Shareware Aplikasi Delphi
- Fungsi StringReplace dengan banyak Pattern
- Menghitung Selisih Waktu [billing]
- Mendeteksi Memory Leak (Memory Leak Detection)
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago