Cenadep.org

Oke. Pembahasan kita terakhir adalah dereferensi pointer untuk mengambil nilai yang ditunjuknya.

Pertanyaan, bila kita bebas melakukan casting terhadap variabel bertipe pointer untuk mengambil nilainya, dapatkah kita membuat saja tipe variabel baru yang sesuai dengan kebutuhan kita? Agar tidak usah ada casting lagi tiap kita melakukan dereferensi terhadap pointer?

Jawabannya, tentu saja.

Kita dapat membuat tipe variabel baru bertipe pointer dengan ukuran yang bebas. Contoh, kita akan membuat sebuah tipe data, berjenis pointer, dan data yang ditunjuknya seukuran Dword.

type

PDword = ^Dword;

Nah, kita telah memiliki tipe data baru. Sebuah tipe data berjenis pointer, data yang ditunjuk seukuran Dword, bernama PDword. Kita memberi nama dengan prefiks P agar kita mudah mengingat bahwa tipe data tersebut berjenis pointer. Tanda ^ di depan tipe data dasar (Dword) adalah penunjuk bahwa kita sedang mendeklarasikan sejenis pointer sebagai tipe data baru.

Sebuah contoh akan menjelaskan lebih jauh:

procedure TForm1.Button1Click(Sender: TObject);
type
  PDword = ^Dword;
var
  PointerDword: PDword;
  DwordBiasa1,
  DwordBiasa2:  Dword;
begin
  DwordBiasa1 := 16762;
  PointerDword := @DwordBiasa1;
  DwordBiasa2 := pointerDword^;
  ShowMessage(‘Nilai dereferensi: ‘+ IntToStr(DwordBiasa2));
  pointerDword^ := 4;
  ShowMessage(‘Nilai dereferensi: ‘+ IntToStr(DwordBiasa1));
end;

Lihat. Nilai DwordBiasa1 adalah 16762. Kita deklarasikan tipe data baru dengan nama PDword, sebagai tipe berjenis pointer, ukuran data yang ditunjuknya sebesar ukuran data Dword. Kita juga punya sebuah variabel PointerDword dengan tipe PDword tadi. variabel PointerDword ini kita tugaskan untuk menjukkan alamat variabel DwordBiasa1 di memori. Kemudian kita dereferensikan lagi ke variabel DwordBiasa2. Ternyata, tanpa perlu casting tipe data, kita sudah dapat mengambil nilai 16762 tadi.

Bagaimana dengan dua baris terakhir? Ingat, pointer, termasuk PDword tadi, hanya menunjukkan alamat sebuah data/variabel di memori. Bukan menunjukkan nilainya. Jika kita melakukan dereferensi dengan x:=p^, maka nilai pada memori yang ditunjuk oleh p di memori akan dimasukkan ke variabel x. Sebaliknya, bilai kita melakukan penugasan p^:=x, maka nilai di memori yang ditunjuk oleh p akan diisi dengan nilai x.

DwordBiasa1 := 16762;
PointerDword := @DwordBiasa1;
//……………………………
pointerDword^ := 4;

Pada kode di atas, DwordBiasa1 awalnya bernilai 16762. Kemudian kita mencatat alamat data DwordBiasa1 ke variabel PointerDword. Baris terakhir mengubah nilai di alamat tersebut (yang ditunjuk oleh PointerDword) menjadi 4. Ini berakibat variabel DwordBiasa1, yang berada di alamat tersebut, menjadi bernilai 4, bukan lagi 16762. Percaya?

Oke. Lanjut.

Kemudian perhatikan deklarasi tipe-tipe data yang tersedia di Delphi. Kebanyakan mereka dideklarasikan menggunakan cara kita:

PTipe = ^Tipe;

Dengan pembahasan ini, saya berharap kita sudah punya sebuah pengetahuan baru, bahwasannya pointer adalah sesuatu yang sangat bagus dalam memfasilitasi kita dalam menulis program. Meskipun terlihat begitu rumit dan bertele-tele, kita harus bersyukur bahwa pointer ada di dunia yang kita tinggali, dunia programming

Manfaat pointer tentu saja belum terasa sampai di sini. Kita masih akan melanjutkan dengan tipe-tipe data dasar lainnya, sebelum melanjutkan pembahasan sampai ke pemanfaatan pointer dan contoh-contoh implementasinya dalam kode.

Salam, Joko Rivai.

Pointer adalah sebuah tipe data yang berfungsi menunjukkan alamat di memori. Semua objek dalam Delphi yang diturunkan dari TObject adalah pointer. TForm, TStrings, TList, TDBGrid, semuanya pointer.

Oke. Saya mulai dengan sebuah contoh.

var
  p: Pointer;
  i, j: Integer;
begin
  i:=45;
  j:=0;
  p:=@i;
  j:=Integer(p^);
  ShowMessage(IntToStr(j));

Pertama, nilai j adalah 0, nilai i adalah 45. kemudian kita tugaskan p untuk menunjukkan alamat dari i di memori. Pada alamat tersebut terdapat nilai 45. Bilai alamat yang ditunjuk oleh p kita ambil isinya ke variabel j, maka j akan memiliki nilai 45 juga.

Kode di atas memiliki hasil:
 

Dengan demikian kita tahu bahwa:
p := @x adalah ekspresi menugaskan p untuk menunjukkan alamat dari x disebut referencing, dan
x:=p^ adalah mengambil data/nilai pada alamat yang ditunjukkan oleh p, disebut dereferencing.

Biasanya orang bingung dengan @, dan ^. Jangan khawatir, lama-lama semuanya akan terasa biasa saja

Mungkin Anda akan bertanya, apa maksudnya j:=integer(p^) ? Mudah saja, p adalah untyped pointer (pointer tak bertipe), sehingga akan membingungkan compiler berapa ukuran data/nilai yang ditunjuk oleh pointer tersebut. Mari membuat semua jelas: pointer berukuran 4 byte, tapi data/nilai di memori yang ditunjuknya tidak diketahui berapa ukurannya. Bisa jadi nilai itu adalah Char (1 byte), Integer (4 byte), Variant, atau lainnya.

Kita akan lihat alamat yang ditunjukkan oleh pointer dan mekanisme derefencing data pada alamat tersebut.

i:=45;
  p:=@i;
  ShowMessage(IntToStr( integer(p) ));

integer(p) merupakan casting/perubahan tipe dari pointer ke integer. Jadi alamat yang ditunjukkan oleh p dapat kita tampilkan dengan ShowMessage(IntToStr( integer(p) ));

Lantas, bagaimana mekanisme dereferencing?

Dengan memeriksa p, compiler tahu bahwa data yang akan direferensikan berada pada alamat 1244636 di memori. Tapi berapakah ukuran datanya? apakah cuma 1 byte atau sepanjang alamat 1244636 sampai akhir memori? Compiler takkan pernah tahu. Jadi kita harus mengarahkan compiler dengan:

j:=Integer(p^);

Kini compiler tahu bahwa kita akan mengambil data bertipe integer. Compiler tahu bahwa integer berukuran 4 byte. Dengan begitu, compiler akan mengambil data sebanyak 4 byte, dimulai dengan byte pertama pada alamat 1244636. Terakhir, compiler mengembalikan hasilnya, nilai 45.
 

Demikian halnya bila kita ingin mengambil nilai dengan ukuran yang berbeda. Katakan kita hanya mengambil 1 byte:

j:=Byte(p^);

Bila Anda jeli, Anda dapat melihat kenapa ada tipe data PByte, PInt64, PDword, dan lainnya. Deklarasi tipe-tipe tersebut adalah:

PByte = ^Byte;

PInt64 = ^Int64;

PDword = ^Dword;

Mereka dideklarasikan sebagai tipe pointer ke tipe data dasarnya. Maksudnya, agar compiler tahu bahwa ukuran data pada alamat yang ditunjuknya.
 

Anda lihat? Compiler kebingungan karena harus mengambil nilai yang tidak diketahui berapa ukurannya. Bagaimana jika kode di atas kita modifikasi:

Tidak ada masalah, kan?

Oke. Tulisan ini belum berakhir. Saya capek, maen Point Blank dulu. Nanti sambung lagi

Biar gak panjang, tulisan ini telah saya bagi dua. Lanjutannya di sini.

Di Delphi, hampir semua tipe data memiliki padanan bertipe pointer. Tipe-tipe pointer ini berguna pada penggunaan memori dalam skala besar secara dinamis. Misalnya pada pengaksesan file, linked-list.

Bila sebuah variabel bertipe integer dideklarasikan, maka compiler akan mengalokasikan memori sebesar 4 byte (32 bit) untuk variabel tersebut, terlepas dari apakah variabel tersebut digunakan atau tidak. Dengan pointer, memori hanya akan dialokasikan jika variabel bertipe pointer akan digunakan. Dengan demikian, kita dapat mengatur penggunaan memori secara fleksibel dan hemat. Bila belum perlu, memori tidak digunakan, sehingga dapat dialokasikan oleh variabel lain yang mungkin akan lebih dulu menggunakan memori.

Di bawah ini beberapa tipe pointer yang disediakan Delphi. Namun Anda dapat dengan bebas mendeklarasikan tipe pointer lainnya sesuai kebutuhan. Satu catatan mengenai penggunaan pointer, bila Anda mengalokasikan memori pada sebuah pointer, Anda bertanggungjawab untuk melepaskannya kembali. Bila tidak, memori tersebut tetap dicatat sebagai “sedang digunakan”, sehingga variabel bertipe pointer lainnya tidak mengalokasikan memori pada alamat yang ditunjuk oleh variabel bertipe pointer sebelumnya.

Sebenarnya pointer adalah berukuran 4 byte (32 bit), bertipe Dword. Semua tipe pointer lainnya adalah pointer. Hanyasannya, tipe pointer lainnya dideklarasikan secara khusus untuk memberitahu compiler ukuran satuan data pada alamat yang ditunjuk oleh pointer tersebut.

Berikut adalah tipe-tipe pointer yang telah disediakan Delphi. Selanjutnya, kita akan lihat tipe-tipe pointer yang user-defined dan contoh penggunaanya.

PAnsiChar
PAnsiChar adalah pointer yang menunjukkan alamat data bertipe AnsiChar. Harap diingat, meskipun AnsiChar berukuran 1 byte (8 bit), tetapi PAnsiChar berukuran 4 byte (32 bite), karena pada dasarnya, semua pointer berukuran 4 byte.

var
  p: PansiChar;
  a: AnsiChar;
begin
  ShowMessage(‘Ukuran AnsiChar: ‘+IntToStr(SizeOf(a)) +#13′Ukuran PansiChar: ‘+ IntToStr(SizeOf(p)));

Hasil kode di atas:
 

PAnsiString
Menunjukkan alamat AnsiString. AnsiString sendiri adalah sejenis pointer, sehingga PAnsiString jarang dugunakan. Anda mungkin ingin membaca tentang AnsiString untuk melihatnya lebih jauh.

PChar
Mirip dengan PAnsiChar. Meskipun pada versi Delphi terbaru, Char telah diperlakukan sebagai PWideChar (2 byte), bukan lagi AnsiChar (1 byte), tetap saja PChar berukuran 4 byte. Karena bagaimanapun, PChar adalah pointer. Penggunakan PChar biasanya dalam operasi string yang dibatasi dengan zero character, seperti yang digunakan di Windows dan biasanya digunakan dalam C/C++.

Pada kode-kode Windows API yang menggunakan string sebagai parameter/kembalian fungsi, maka tipe data inilah yang sering dipakai. Tinggal menetukan apakah PAnsiChar apabila fungsi tersebut menggunakan standar ANSI ataukah PWideChar jika Unicode.

PCurrency
Pointer ke tipe data Currency.

PDateTime
Pointer ke tipe DateTime.

PExtended
Pointer ke tipe Extended.

Pointer to an Int64 value.

Pointer
Defines a general use Pointer to any memory based data.

PShortString
Pointer ke tipe data ShortString.

PString
Pointer ke tipe String

PVariant
Pointer ke tipe

PWideChar
Mirip dengan PChar dan PAnsiChar.

PWideString
Pointer ke tipe WideString.

Lebih jauh dengan pointer, kita diskusikan di sini.

Currency
Bilangan pecahan dengan 4 digit di belakang koma. Biasanya digunakan dalam aplikasi-aplikasi finansial dan akuntansi. Bila sebuah angka dengan nilai desimal lebih panjang dari 4 digit, maka otomatis akan dibulatkan ke atas atau ke bawah sesuai nilai desimal tersebut. Pembulatan dilakukan sampai hanya 4 digit yang tertinggal di belakang koma. Presisi nilai desimal ini sebesar 53 bit, namun sangat tergantung pada presisi desimal yang didukung prosesor.

var
curA, curB : Currency;
begin
  curA := 123.456749;   // desimal dibulatkan menjadi 123.4567
  curB := 123.456750;   // desimal dibulatkan menjadi 123.4568

Double
Double merupakan tipe pecahan dengan 15 digit presisi dengan rentang 2.23 x 10^-308 sampai 1.79 x 10³⁰⁸
Tipe double menyeimbangkan presisi/kapasitas dan storage/performansi. Tipe ini merupakan tipe general purpose, paling presisi, juga paling cepat.

0.1234567890123456789 // akan dibulatkan ke 15 digit desimal: 0.123456789012346

Extended
Pecahan dengan rentang 3.37 x 10^-4932 sampai 1.18 x 10⁴⁹³². Paling presisi, sekaligus paling lambat dan paling banyak menggunakan memori. Presisi sampai 19 desimal di belakang koma.

Real
Merupakan versi obsolete. Digantikan oleh Double.

Real48
Merupakan versi obsolete. Digantikan oleh Extended.

Single
Pecahan paling kecil dengan presisi paling rendah. Namun merupakan yang paling baik performansinya.