Code Umstellung von D7 auf D11.3

[dummzeuch]

Zitat von MyRealName:

Hallo,

wir stellen gerade ältere Anwendungen um, die compilieren unter D7 und laufen seit Jahren reibungslos.
Nun unter D11.3 kriegen wir Bereichsüberschreitungen im folgenden Fall:

Man hat ein Array, 32 Einträge, es ist als Array of TColor definiert.
Jetzt wird das untypisiert übergeben, zum so

Code:

const TMyColors: Array of TColor;

procedure Foo(const Colors; Count: Integer)
begin
  For i := 0 To Pred(Count) Do
    TMyColors(Colors)[i] := clBlack;
end;

Der erste Eintrag geht noch, beim nächsten crasht es. Wir haben es jetzt so gelöst, das wir das jetzt mal typisiert übergeben, aber es wäre interessant zu wissen, warum es nicht mehr geht.

Wie sieht denn die Initialisierung von Colors aus? Ist das überhaupt ein Array mit der Länge Count?

[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.