Dynamische Arrays (mal wieder)

[DeddyH]

Delphi-Quellcode:

type
  TMp3Data = record
    InUse :Boolean;
    Playing :Boolean;
    FName :String;
    Artist :String;
    Title :String;
    Dauer :Integer;
    BitRate :Integer;
  end;

  TTestArray = array of TMp3Data;

function AllocateNextFreeField(var Arr: TTestArray): integer;
begin
  SetLength(Arr, Length(Arr) + 1);
  Result := High(Arr);
end;

Klappt einwandfrei unter Delphi 7.

[himitsu]

Erstmal fehlte da ein VAR, denn das Array soll ja verändert werden.
function allocatenextfreefield(var a: Tintarray): Integer; overload;

Und das hat array of ... als Patrameter eine besondere Bedeutung, denn das definiert einen "speziellen" Array-Parameter, aber der ist hier nicht so wichtig.

Du brauchst erstmal einen VAR-Parameter und das ist sowieso nicht mit dem Array-parameter kompatibel.

Außerdem mußt du bei Parameter, auch für kompatible Typen sorgen, also der Array-Typ muß vorher definiert und überall verwendet werden, da diese Typen sonst nicht kompatibel sind, auch wenn sie "gleich aussehen".
Einzige Ausnahme ist die generische Variante via TArray<...> .

[Namenloser]

Zitat von himitsu:

Erstmal fehlte da ein VAR, denn das Array soll ja verändert werden.
function allocatenextfreefield(var a: Tintarray): Integer; overload;

Braucht man nicht unbedingt, da Arrays genau wie Objekte Referenztypen sind. Copy-On-Write wie bei Strings gibt es bei Arrays auch nicht. Somit wird immer das Original-Array modifiziert. Zumindest bin ich mir da zu 95% sicher.

Besser verständlich ist es aber mit var , da gebe ich dir recht.

@DelTurbo: Zeig mal deinen kompletten Code, also die Typendeklaration und deine Funktion. Eigentlich muss das funktionieren.