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 nomorRandom Articles
- TINGGALKAN TURBO PASCAL!
- Random Password text
- Pascal Indonesia Reborn
- Check MySQL Service on Our PC
- komponen TMyDateEdit
- Thxvidfwin sebuah component video sederhana
- Seleksi baris DBGrid menggunakan event OnMouseMove
- Menjalankan Aplikasi trial untuk 1 kali jalan
- Membuat sendiri UDF library bag.3
- virus restart pc jika ada kata2 tertentu, delphi bisa bgt
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago