1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 s:string; 4 i,j,k:integer; 5 arr:Array of array of array of string; 6 lst:TStringList; 7 begin 8 lst:=TStringlist.Create; 9 setLength(arr,10,10,10); 10 for i := low(arr) to High(arr) do begin 11 s:=''; 12 for j := low(arr[i]) to High(arr[i]) do begin 13 for k := low(arr[i][j]) to High(arr[i][j]) do begin 14 arr[i][j][k]:=intToStr(k)+intToStr(j)+intToStr(i); 15 s:=s+' '+arr[i,j,k]; 16 end; 17 end; 18 lst.Add(s); 19 end; 20 21 for j:=0 to lst.Count-1 do 22 memo1.Lines.Add(lst[J]); 23 24 lst.free; 25 end;