Hubungan Pointer dan Integer

Hubungan Pointer dan Integer
Selasa, 13 Oktober 09 - oleh : edy

Berikut ini contoh mengakses type data pointer dan integer

procedure TForm1.Button1Click(Sender: TObject);

var
X, Y: Integer; // X dan Y adalah variabel Integer
P: ^Integer; // P menunjuk ke Integer
begin
x:= 17; // menetapkan nilai X
P:= @X; // assign alamat dari X ke P
Y:= P^; // dereference P; assign hasilnya ke Y
showmessage(inttostr(y));
end;