listen generisches array

[Waldteufel]

Hi.

Zitat von loki:

Delphi-Quellcode:

package Puzzle is 
  
    type Orientation_Type     is ( North, East, South, West ); -- 0, 90, 180, 270 
    type Match_Neighbour_Type is ( Yes, No, Not_Applicable ); 
  
    type Element_Type is 
    record 
       Orientation           : Orientation_Type; 
       Arrow_Direction       : Oreintation_Type; 
       Match_Left_Neighbour  : Match_Neighbour_Type; 
       Match_Right_Neighbour : Match_Neighbour_Type; 
       Match_Upper_Neighbour : Match_Neighbour_Type; 
       Match_Lower_Neighbour : Match_Neighbour_Type;  
    end record; 
  
    type Board_Type is array ( 1..3, 1..3 ) of Element_Type; 
   
 end Puzzle;

Ein Feld kann mehrere Pfeile haben und die 4 Match_..._Neighbour kann man zusammenfassen, also

Delphi-Quellcode:

Arrow_Directions      : array (1..4) of Orientation_Type;
Match_Neighbour       : array (1..4) of Match_Neighbour_Type;