SetLenght mit einem Array als var Parameter

[Rabenrecht]

Folgendes:

Delphi-Quellcode:

Procedure myProc(var Arr : Array of whatever);
begin
  [...]
  SetLength(Arr, irgendnezahl);
  [...]
end;

Da spuckt mir Delphi eine "Inkompatible Typen" Meldung beim Kompilieren aus.

Habe beim Rumprobieren, was da eigentlich den Fehler verursacht, herausgefunden, dass die Übergabe des Array als Referenz (also als Var Parameter) das Problem ist.

Frage 1: Warum ist das so?
Kann mir da keinen zwingenden technischen Grund denken.

Frage 2: Kann man das irgendwie umgehen?


Die dynamische Veränderung der Größe des Arrays zur Laufzeit ist sinnvoll, da die Frage, ob und wenn ja wie viele Daten, die das Array aufnehmen soll, erst zur Laufzeit beantwortet werden kann.

Die Auslagerung der Logik nach myProc ist auch sinnvoll, da sie an unterschiedlichen Stellen in unterschiedlichen Kontexten gebraucht wird.
Will nicht heißen, dass ich den Code nicht grundlegend umstellen könnte, aber eigentlich wärs mir lieber, wenn das so, wie es jetzt im Wesentlichen ist, funktionieren würde


Nachtrag:

var oder nicht var macht keinen Unterschied.
Allein die Tatsache, dass das Array als Parameter übergeben wird, ist wohl ein Problem ... was mich noch verwirrter als vorher zurücklässt.

[Der schöne Günther]

Zitat von Rabenrecht:

Frage 1: Warum ist das so?

Weil der Compiler anscheinend nicht schlau genug ist zu sehen dass der Typ deiner Variable und der Typ deines Parameters der gleiche ist. Das "Array of" scheint zwei mal inline einen neuen Typ zu generieren. So zumindest hat man mir das mal erklärt.

Zitat von Rabenrecht:

Kann man das irgendwie umgehen?

Delphi-Quellcode:

type
   TWhatever = type Integer;
const
   someSpookyNumer = 42;
var
   myArray: TArray<TWhatEver>; // statt "array of TWhatEver"

procedure p(var data: TArray<TWhatever>);  // statt "array of TWhatEver"
begin
   SetLength(data, someSpookyNumer);
end;

begin
   p(myArray);
end.

[Rabenrecht]

Ok, mit TArray<Type> anstatt Array of Type gibt zumindest der Kompiler Ruhe

[gammatester]

Zum Warum: In Procedure myProc(var Arr : Array of whatever) ist ein Arr ein Open Array und kein dynamisches Array siehe http://docwiki.embarcadero.com/RADSt...ray_Parameters

[haentschman]

Hallöle...

Alternativ wäre auch eine TList<Whatever> oder TObjectlistList<Whatever> als Parameter, ohne Größeneinstellung, denkbar.

PS: Im Eingangspost steht Delphi 5? Ist das korrekt?

[Uwe Raabe]

Zitat von haentschman:

PS: Im Eingangspost steht Delphi 5? Ist das korrekt?

Das ist leider immer noch der unsägliche Standardwert. Ich hätte da auch lieber ein <nicht angegeben> - das führt zu wesentlich weniger Verwirrung.

[p80286]

da fallen mir doch uralte Sünden ein?
wie wäre es mit:

Delphi-Quellcode:

type
  Tmyarray : Array of whatever;

Procedure myProc(var Arr : TMyArray);

Gruß
K-H

[Stevie]

Zitat von p80286:

da fallen mir doch uralte Sünden ein?
wie wäre es mit:

Delphi-Quellcode:

type
  Tmyarray : Array of whatever;

Procedure myProc(var Arr : TMyArray);

Gruß
K-H

Wenn, dann bitte so wie Günther oben schrieb, alles andere führt nur wieder zu Typinkompatibilitäten.

[himitsu]

Delphi-Quellcode:

type
  Tmyarray : Array of whatever;

Hier muß immer dieser Typ verwendet werden ... nochmal irgendwo ein Array of whatever ist mit diesem Typen und mit TArray<whatever> nicht kompatibel.

Der Generic TArray<whatever> ist unterander kompatibel, egal wie oft man das irgendwo deklariert.


Wegen soeinem Mist ist TArray<Byte> , was oft verwendet wird, mit dem TBytes nicht kompatibel und man kann diese Byte-Arrays oftmals in vielen vorhandenen Funktionen verwenden, weil einige mit TArray<> und Andere mit TBytes deklatiert wurden, aber Emba einfach seit Jahren nicht auf die Bugreports reagiert, wo man darum bittet den Typen TBytes als TArray<Byte> zu deklarieren.

[TiGü]

Zitat von himitsu:

...aber Emba einfach seit Jahren nicht auf die Bugreports reagiert, wo man darum bittet den Typen TBytes als TArray<Byte> zu deklarieren.

Vielleicht weil das schon vor Jahren passiert ist?
Siehe bspw. Delphi XE6, Unit System.SysUtils, Zeile 137:

Delphi-Quellcode:

type

  TBytes = TArray<Byte>;