Dynaamisen taulukon salat

NUL tai sitä suurempi /*tarkista syntaksi*/

Tässä jonkinlainen esim. dynaamisen taulukon käytöstä Pascal:ssa.

Tämä esimerkki tehty niin että tyhjälle Form:lle on luotu Button- ja Label-komponentit.
Sitten Button-komponentille on generoitu OnClick tapahtuma jota on täydennetty.
(Uskoisin että tälläisen graafisen sovelluksen tekeminen on selvä asia. Jos ei niin
Aloita uusi keskusteluaihe siitä )

procedure inctau(var atau : array of integer);
var
i : integer;
begin
for i := low( atau ) to high( atau ) do
atau[ i ] := atau[ i ] 1;
end;

procedure TForm1.Button1Click( Sender: TObject );
var
i : integer;
tau : array of integer;
s : string;
begin
s := '';
SetLength( tau, 10 );
for i := 0 to 9 do
tau[ i ] := i;
inctau( tau );
SetLength( tau, 12 );
tau[ 10 ] := 10;
tau[ 11 ] := 11;
for i:= low( tau ) to high( tau ) do
s := s ' ' intTostr( tau[ i ] );
Label1.Caption := s;
end;