Gemeinsamer Array-typ?

[Waldteufel]

Hi.

Delphi-Quellcode:

function aufruecken(x : variant, wieviel : integer = 1) : variant;
var
  i : integer;
  y : variant;
begin
  y := VarArrayCreate([0, length(x) + wieviel], VarType(x));
  for i := length(x) + wieviel downto 1 do
    y[i] := x[i - wieviel];
end;

So müsste es gehen...