Zitat von
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...
Danke... aber es sollte eigentlich eine array-variable übergeben und bearbeitet werden. Es sollte keins neu erstellt werden, das bringt mir reichlich wenig