Immerhin kannst du ja zum Initialisieren einen konstanten Record benutzen:
Delphi-Quellcode:
procedure Setup;
const
Startwert : TGleisElement = (
GleisElement : -1;
Ausrichtung : normal;
Gleisstellung : gerade
);
var
Gleise : array of TGleisElement;
Index : Integer;
begin
SetLength (Gleise, 100);
for Index := Low(Gleise) to High(Gleise) do
Gleise[Index] := Startwert;
end;
Die lokale Array-Variable ist hier natürlich nur ein (sinnloses) Beispiel, du wirst stattdessen deine private Variable verwenden.
Gruß Hawkeye