Startwerte bei Records einstellen.

[dominikkv]

Zitat:

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;

[snow]

ICh habs schon ohne vergrößern gelöst.

Es ging im prinzip nur um eine variable, die von -1 bis 254 ging. Mich hat geärgert, dass die am anfang auf 0 steht. Also hab ich das einfach verschoben...


hab jetz eine von 0..255 sprich ein Byte.

Trotzdem Danke

Gruß snow