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.