Rabu, 08 Agustus 2007

Menggunakan Tag Property Sebagai Reference

tulisan ini hanya test... selengkapnya menyusul

Tahu kan tag property yang ada di klas TComponent ? Semua komponen di Delphi pasti memiliki property ini. Property ini bertipe longint sehingga memiliki jangkauan ... mmm... berapa ya ? :p
Selain dapat digunakan untuk menyimpan data integer sebenarnya tag property dapat digunakan untuk menyimpan sebuah referensi obyek. Jadi kita dapat menulis kode seperti ini:

var
comp: TLabel;
begin
comp := suatufungsi(btTombol.Tag);
comp.caption := 'TEST...';
end;

Dengan dapat menggunakan property tag untuk menyimpan sebuah referensi tentu penggunaan tag ini jadi lebih fleksibel kan...
Tetapi bagaimana caranya...?
Pada intinya bahwa kita melihat data yang tersimpan dalam property tag ini sbagai data bit saja... Karena nanti ini berisi sebuah alamat di memory jadi nilainya kita abaikan.. yang penting isinya menunjuk ke arah yang benar...
Sebuah data longint akan menempati 4 byte = 64 bit sama dengan jumlah byte/bit yang digunakan oleh data referensi/pointer.
Bagaimana caranya mengubah sebuah referensi menjadi longint dan sebaliknya - merubah longint menjadi sebuah referensi ... ?

Di Delphi memang tidak disediakan fungsi seperti