to audiotrack : array of integer sa deklaruje v Delphi. V pascali sa musi definovat ako array [0..0] of integer;
Vyzera to takto :
Kód:
program dyn_pole;
type TPole = ^Mpole;
Mpole = array [0..0] of Integer;
var pole : TPole;
n : Integer;
begin
GetMem(pole, SizeOf(Integer)*n); { n je pocet pozadovanych prvkov}
if (pole = nil) then begin { ak sa nenasla pamat, ukoncime program }
writeln('Nedostatok pamate .');
exit;
end;
pole^[2] := 5; { ku polu sa potom pristupuje takto }
free(pole); { uvolnime pamat pouzivanu polom }
end.
problem je asi ten, ze programator si musi strazit pretecenie (to znamena davat si pozor, aby si neukazoval na neexistujuci prvok)
Mimochodom zvaz pouzitie pola, pretoze ak chces velkost pola menit v zavislosti od dat (a casu), je vyhodnejsie pouzit linearny zoznam, pretoze je urcite lahsie najst pamat pre jednu bunku velkosti 8 B, ako pre pole o velkosti mozno 10 kB.