Dynamische Arrays (mal wieder)

[DelTurbo]

Hi,
ich arbeite mit Dynamischen Arrays. Um einen neuen "Slot" zu bekommen habe ich eine Funktion. Nun habe ich aber mehrer Dynamische Arrays. Leider alles verschieden Typen. Mal Integer, mal Strings, mal Records.

Ich dachte nun daran GetNextFreeField das Array zu übergeben. Aber man muss ja einen Typ angeben. z.b. GetNextFreeField(var ar:Array of Strings):Integer;
Damit kann ich ja dann wieder kein anderes Array vergrössern.

Nun zu miener Frage. Geht das überhaupt, das man z.b. nur GetNextFreeField(var ar:Array):Integer; irgendwie angeben kann? Also quasi ohne Typ.

Vielen dank im voraus

Delphi-Quellcode:

function GetNextFreeField:Integer;
var
   i         :Integer;
begin
    if KData=nil then begin
      SetLength(KData,1);
    end else begin
      SetLength(KData,high(KData)+2);
    end;
    Result:=high(KData);
end;