Dynamische Arrays (mal wieder)

[DelTurbo]

Zitat von namenloser:

Delphi-Quellcode:

function allocatenextfreefield(a: Tintarray): Integer; overload;
begin
  setlength(a, length(a)+1);
  result := high(a);
end; 

function allocatenextfreefield(a: Tfloatarray): Integer; overload;
begin
  setlength(a, length(a)+1);
  result := high(a);
end;

̀function allocatenextfreefield(a: Tstringarray): Integer; overload;
begin
  setlength(a, length(a)+1);
  result := high(a);
end; 

...

(nebenbei, den code kannst du abkürzen, wie du hier siehst)

Hi, leider klappt es nicht. Bei der zeile SetLength bekomme ich E2008 Inkompatible Typen zurück. Auch wenn ich folgendes versuche.

function allocatenextfreefield(a: array of Tintarray): Integer; overload;

Ich versuche es mit folgendem Typ.

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