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.

[himitsu]

Zitat von Namenloser:

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.

Jain. Ja, es sind Referenztypen, aber es ist wie beim String, was ja auch ein Referenztyp ist, bzw. ein String (nicht ShortString oder WideString) ist sogar ein aufgemotztes array of char .
Und da ist es wie bei Integer und Co. ... man braucht das VAR.

[Namenloser]

Ok, du hast Recht, aber nur, weil SetLength im Code vorkommt. Eigentlich logisch, dabei wird ja neuer Speicher reserviert und dadurch kann sich der Zeiger ändern...

Aber ansonsten geht das:

Delphi-Quellcode:

type 
  TIntArray = array of integer;

procedure Foo(A: TIntArray);
begin
  A[0] := 2;
end;

var
  A: TIntArray;
begin
  SetLength(A, 1);
  A[0] := 1;
  WriteLn(A[0]); // 1
  Foo(A);
  WriteLn(A[0]); // 2
  ReadLn;
end.

[himitsu]

Es geht aber auch nur, weil die das CopyOnWrite bei diesen dynamischen Arrays "kaputt" ist.

Im Prinzip wird beim Entritt in diese Methode, da kein CONST, die Referenzzählung erhöht.
Beim Schreibzugriff auf das Feld müsste aber gemerkt werden, daß hier RefCount <> 1 ist und somit müsste vor dem Schreibzugriff eine Kopie erstellt werden, wo dann erst reingeschrieben wird.

Und ich hoffe immernoch, daß dieser Fehler, auch nach jahrzehnten, irgendwann mal repariert wird,
wobei ich jetzt nicht sagen kann, ob er das nicht schon wurde ... zumindestens in den Compilern für OSX, iOS und Android.

Delphi-Quellcode:

var
  A, B: TIntegerDynArray;
begin
  SetLength(A, 1);
  A[0] := 1;
  B := A;  // B := Copy(A);
  B[0] := 2;
  WriteLn(A[0], ' ', B[0]); // 2 2
  ReadLn;
end.

Mit dem Copy-Bugfix "1 2".

[himitsu]

*deleted*

[DelTurbo]

Also, das von DeddyH klappt soweit. Ich weiß leider nicht wie ich nun auf das Array zugreifen soll. So wie "früher" scheint es wohl nicht mehr zu gehen. Ich habe quellcode etwas gekürtz, da sonst die seite viel zu lange war und man die "richtigen/falschen" stellen suchen musste.

Ich habe das nun so gemacht:

Delphi-Quellcode:

interface

uses ........

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

    Mp3Infos    = array of TMp3Data;
   
    function GetFreeMP3DField(var ary: Mp3Infos):Integer; overload;
   
[snip]

implementation

[snip]
function GetFreeMP3DField(var ary: Mp3Infos):Integer; overload;
var
   i   :Integer;
begin
    if ary=nil then begin
      SetLength(ary,1);
    end else begin
     SetLength(ary,high(ary)+2);
   end;
    Result:=high(ary);
end;
[snip]

      for i:=low(Mp3Infos) to high(Mp3Infos) do begin  // H2135 FOR oder WHILE Schleife wird nicht durchlaufen - gelöscht
         if ( Mp3Infos[i].InUse ) then begin          // E2029 '(' erwartet, aber '[' gefunden
[snip]

Vorher stand einfach Mp3Infos:Array of TMp3Data; unter var.

Nochmals danke im voraus für eure hilfe.

[himitsu]

Zitat von DelTurbo:

Delphi-Quellcode:

      for i:=low(Mp3Infos) to high(Mp3Infos) do begin  // H2135 FOR oder WHILE Schleife wird nicht durchlaufen - gelöscht
         if ( Mp3Infos[i].InUse ) then begin          // E2029 '(' erwartet, aber '[' gefunden

Ähhhhhh, willst du nun den Typ oder die Variable durchlaufen?

(vielleicht wäre es direkt aufgefallen, wenn du Typen auch mit dem allseits anerkannten Prefix versiehst)

[DelTurbo]

Nicht nur durchlaufen. Auch etwas zuweisen. Sonst bräuchte ich das ja nicht. Ich will das array ja nicht nur vergrössern, sondern auch daten darin ablegen.