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
- Backup Data Tabel Paradox
- Mengandakan nama folder seperti virus
- Mencegah Flicker dan Mempercepat Operasi
- Meload data besar dalam dbgrid
- FreeVCS
- Melarang "Tutup" Aplikasi, kecuali shutdown/restart
- Dynamic ODBC untuk MySQL dan Ms Access
- Toggle Key Monitoring
- Mematikan Taskbar dan Tray Ikon
- PascalClass #3: Web Development with Free Pascal
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago