Italian community of Lazarus and Free Pascal

PMiaStruttura = ^MiaStruttura;
MiaStruttura = Record
                 MioDato    : Integer; 
                 Successivo : PMiaStrutturra;
               End; 

Type
  TMioArray = Array Of Integer;

Var
  Vettore : TMioArray;

Var
  Contatore : Integer;

// ---------------------------------------
// Inizializzazione numero elementi
// ---------------------------------------
Contatore := 0;

// ---------------------------------------
// Ciclo di inserimento
// ---------------------------------------
Repeat
  // ---------------------------------------
  // Incremento del numero degli elementi
  // ---------------------------------------
  Inc(Contatore);
  
  // ---------------------------------------
  // Ridimensionamento vettore
  // ---------------------------------------
  SetLength(Vettore, Contatore);
  
  // ---------------------------------------
  // Inserimento dato
  // ---------------------------------------
  Vettore[Contatore-1] := Random(10);
  
Until {Ripete fino all'ultimo inserimento}

// ---------------------------------------
// Inizializzazione contatore
// ---------------------------------------
Contatore := 10;

// ---------------------------------------
// Dimensionamento vettore
// ---------------------------------------
SetLength(Vettore, Contatore);

// ---------------------------------------
// Inserimento dati
// ---------------------------------------
For I := 1 To Contatore Do Vettore[I-1] := Random(10);

// ---------------------------------------
// Esempio di lettura
// ---------------------------------------
For I := 1 To Contatore Do WriteLn(Vettore[I-1])

// ---------------------------------------
// Shift degli elementi superiori al 5°
// ---------------------------------------
For I := 5 To Contatore-1 Do Vettore[I-1] := Vettore[I-1+1];

// ---------------------------------------
// Decremento numero di elementi
// ---------------------------------------
Dec(Contatore);

// ---------------------------------------
// Ridimenzionamento vettore
// ---------------------------------------
SetLength(Vettore, Contatore);

// ---------------------------------------
// Controllo sulla fine degli elementi
// ---------------------------------------
If Contatore = 0
Then
  // ---------------------------------------
  // Distruzione vettore se terminati
  // ---------------------------------------
  Finalize(Vettore)
Else
  // ---------------------------------------
  // Ridimensionamento se Contatore > 0
  // ---------------------------------------
  SetLength(Vettore, Contatore);

// ---------------------------------------
// Ciclo di inserimento
// ---------------------------------------
Repeat 
  // ---------------------------------------
  // Ridimensionamento vettore
  // ---------------------------------------
  If High(Vettore) < 0 Then SetLength(Vettore, 1)
                       Else SetLength(Vettore, High(Vettore)+2); 
  
  // ---------------------------------------
  // Inserimento dato
  // ---------------------------------------
  Vettore[High(Vettore)] := Random(10);
  
Until {Ripete fino all'ultimo inserimento}


// ---------------------------------------
// Esempio di lettura
// ---------------------------------------
For I := Low(Vettore) To High(Vettore) Do WriteLn(Vettore[I])


// ---------------------------------------
// Eliminazione di un elemento
// ---------------------------------------

// ---------------------------------------
// Shift degli elementi superiori 
// ---------------------------------------
For I := da_togliere To High(Vettore)-1 Do Vettore[I] := Vettore[I+1];

// ---------------------------------------
// Ridimenzionamento vettore
// ---------------------------------------
If High(Vettore) = 0 Then Finalize(Vettore)
                     Else SetLength(Vettore, High(Vettore));