Variable Übergabeparameter

[xZise]

So Endlich bin ich mal dazu gekommen, aber es funktioniert nicht :

Delphi-Quellcode:

procedure Insert(const AData; AArray : array of const; const AIndex : Cardinal);
var
  i: Cardinal;
begin
  if (AIndex <= Length(AArray)) then
  begin
    SetLength(AArray, Length(AArray) + 1);
    for i := High(AArray) downto AIndex + 1 do
      AArray[i] := AArray[i - 1];
    AArray[AIndex] := AData;
  end;
end;

Zitat:

Inkompatible Typen
Inkompatible Typen: 'TVarRec' und 'procedure, untyped pointer or untyped parameter'