Zitat von
snow:
Die Records befinden sich in einem Dynamischen 2 dimensionalen Array, dessen größe erst zur laufzeit feststeht. Somit kann ich nicht auf die records zugreifen, weil sie noch gar nicht exestieren.
ich muss also die records mit der vergrößern-procedure verknüpfen.
aha!
du willst also das array beim vergrößern gleich mit Standartwerten füllen?
Dann kannst du dir ja eine eigene Methode schreiben...
Delphi-Quellcode:
type
TMyGleisArray: Array of TGleisElement;
{...}
procedure SetLengthDef(Ar: TMyGleisArray, l: Integer);
var
I, Start: Integer;
begin
Start := Length(Ar);
SetLength(Ar, l);
for I := Start to Pred(l) do
with Ar[I] do
begin
Gleiselement := 1;
Ausrichtung := normal;
Gleisstellung := gerade;
end;
end;