< ![CDATA[
program FaqTableau2; 

{$APPTYPE CONSOLE} 

uses 
  SysUtils, 
  Classes; //TStringList 

Const Nbitem=10; 

type 
 MyArray = Array[0..Nbitem] of Integer; 

var 
 I :Integer; 
 Tableau :MyArray; 

begin 
 // Initialisation par boucle en connaissant la taille 
 // * A privilégier par rapport à l'appel d'un itérateur* 
 Writeln('Initialisation par boucle en connaissant la taille'); 
 for I:=0 to Nbitem do 
  begin 
   Tableau[I]:=I; 
   Write(I.ToString+':'+Tableau[I].ToString+' , '); 
  end; 
 Writeln;Writeln; 

  // Pour initialiser un tableau à zéro, similaire à Fillchar sous Win32 
 Writeln('Initialisation à zéro par Initialize'); 
   // * A privilégier par rapport à l'appel de Array.Clear* 
 Initialize(Tableau); 
 For I:=0 to Nbitem do 
  Write(I.ToString+':'+Tableau[I].ToString+' , '); 
 Writeln;Writeln; 

  // Initialisation via un itérateur 
 Writeln('Initialisation à 4 par itérateur'); 
 For I in Tableau do 
  begin 
   Tableau[I] := 4; 
   Write(I.ToString+':'+Tableau[I].ToString+' , '); 
  end; 
 Writeln;Writeln; 

  // Pour initialiser un tableau à 0 
 Writeln('Initialisation à zéro par Array.Clear'); 
 &Array.Clear(Tableau,0,Length(Tableau)); 
 for I:=0 to Nbitem do 
  Write(I.ToString+':'+Tableau[I].ToString+' , '); 
 Writeln;Writeln; 

  //Initialisation par boucle sans connaitre la taille 
 Writeln('Initialisation par boucle sans connaitre la taille'); 
 For I := 0 to Pred(Length(Tableau)) do 
  begin 
   Tableau[I] := I; 
   Write(I.ToString+':'+Tableau[I].ToString+' , '); 
  end; 
 readln; 
end.

Const Nbitem=10; 

type 
 MyArray = Array[0..Nbitem] of Integer; 

var 
 I :Integer; 
 Tableau :MyArray; 

begin 
 I:=System.Array(Tableau).Rank;
 Writeln(' I = '.I.ToString); 
end;