Sowas wie das folgende, bei dem jede Variable/Konstante des Typs TGleisElement die angegebenen Werte hat, geht
nicht, nur die Hawkeye gezeigt Variante funktioniert.
Delphi-Quellcode:
type TGAusrichtung = (normal,grad90,grad180,grad270);
type TGGleisstellung = (gerade, abzweig1, abzweig2, abzweig3);
{eigenes record deklaieren}
type
TGleisElement = record
Gleiselement: -1..254 = -1;
Ausrichtung : TGAusrichtung = normal;
Gleisstellung : TGGleisstellung = gerade;
end;