Dynamische Arrays (mal wieder)

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