cs_neko
Messages postés135Date d'inscriptionjeudi 14 août 2003StatutMembreDernière intervention12 octobre 20061 10 nov. 2005 à 13:11
type Tableau1= Array of real;
Tableau2= Array of Tableau1;
Tableau3= Array of Tableau2;
var
i, j: integer,
Tab: Tableau3;
begin
SetLength(tab, length(Structure_Travee));
for i: =0 to Length(Structure_Travee) Do begin
SetLength(tab[i], length(Structure_Travee[i]));
for j:= 0 to length(Structure_Travee[i].Niveaux) do SetLength(tab[i,j], length(Structure_Travee[i].Niveaux));
end;