Code Umstellung von D7 auf D11.3

[MyRealName]

Ja, es wird initialisiert und man fragt Länge ab. Das wird dann als 2. Param ja über geben und er versucht dann, über die For-Schleife alle elemente zu lesen, aber angeblich gibt es nur 1 Element. Deswegen Fehler bei der Bereichsüberprüfung.

[Uwe Raabe]

Kannst du das auf ein Minimalbeispiel runterbrechen. So kompliziert sieht das ja erstmal nicht aus.

[Delphi.Narium]

bin mal ein bisserl naiv, könnte es denn mit demda funktionieren (hab' halt nur D7 und da geht das)?

Delphi-Quellcode:

type TMyColors = Array of TColor;

procedure Foo(const colors);
var
  i : Integer;
begin
  for i := low(tMyColors(Colors)) to high(tMyColors(colors)) do 
   tMyColors(Colors)[i] := clBlack;
end;

procedure DoIt;
var
  Colors : TMyColors;
begin
  SetLength(Colors,10);
  foo(Colors);
end;

[Kas Ob.]

Zitat von Delphi.Narium:

bin mal ein bisserl naiv, könnte es denn mit demda funktionieren (hab' halt nur D7 und da geht das)?

Delphi-Quellcode:

type TMyColors = Array of TColor;

procedure Foo(const colors);
var
  i : Integer;
begin
  for i := low(tMyColors(Colors)) to high(tMyColors(colors)) do 
   tMyColors(Colors)[i] := clBlack;
end;

procedure DoIt;
var
  Colors : TMyColors;
begin
  SetLength(Colors,10);
  foo(Colors);
end;

That is perfectly fine and will work, though very not recommended, because after all that, just declare the type, don't leave it untyped, and you will never have a problem with any compiler.