Arsip: Array yang menyenagkan!

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