Free Pascal-ban Pointer elemeket tartalmazó tömböt miként töltök fel, illetve konstansként hogy adom meg az elemeit és miként hivatkozom az elemekre? (bővebben lent a program).

Innen: [link]

Ez:

program exPointers;

const MAX = 3;

type

iptr = ^integer;

var

arr: array [1..MAX] of integer = (10, 100, 200);

i: integer;

parray: array[1..MAX] of iptr;

begin

(* let us assign the addresses to parray *)

for i:= 1 to MAX do

parray[i] := @arr[i];

(* let us print the values using the pointer array *)

for i:=1 to MAX do

writeln(' Value of arr[', i, '] = ' , parray[i]^ );

end.

Nem kell tömb, bárhol lehet az a szám:

program Mutatok;

const MAX = 4;

type

iptr = ^integer;

var i, j, i1, i2, i3, i4: integer;

parray: array[1..MAX] of iptr;

temp : iptr;

begin

i1 := 100;

i2 := 200;

i3 := 50;

i4 := 10;

parray[1] := @i1;

parray[2] := @i2;

parray[3] := @i3;

parray[4] := @i4;

Write(#10#13, 'Szamok: :');

for i := 1 to MAX do

Write(parray[i]^:5);

for i := MAX downto 1 do

begin

for j := 1 to i do

begin

if parray[j]^ > parray[j + 1]^ then

begin

temp := parray[j];

parray[j] := parray[j+1];

parray[j+1] := temp;

end;

end;

end;

Write(#10#13, 'Szamok rendezve: :');

for i := 1 to MAX do

Write(parray[i]^:5);

ReadLn;

end.

Talán így a példával érthetőbb.