Startwerte bei Records einstellen.

[Hawkeye219]

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