Sebelumnya, jenis pointer biasanya menggunakan pointer bertipe dan pointer tak bertipe.
Untuk pointer bertipe seperti :
<nama_variabel> : ^<tipe_data>;
Untuk pointer tak bertipe seperti :
<nama_variabel> : pointer;
Namun, kali ini kita membahas pointer tak bertipe, untuk lebih jelasnya silahkan coba program di bawah ini !
program pointer_tak_bertipe;
uses crt;
var ptr : pointer;
q : ^byte;
r : array[1..10] of byte;
x : byte;
begin
clrscr;
GetMem (ptr, 10);
q:=ptr;
for x:=1 to 10 do
begin
r[x] :=10-x;
q^ :=10-x;
inc(q);
end;
q:=ptr;
for x:=1 to 10 do
begin
write('r[ ', x ,' ] = ', r[x], '; ');
writeln('ptr^ ke-', x ,' = ', q^);
inc(q);
end;
readkey;
end.
===============================================================
untuk pointer bertipe akan dijelaskan di lain waktu ^_^
