also, es sieht nu so aus:
Delphi-Quellcode:
function Test(Values: TIntDynArray; Len: Integer):TIntDynArray;
var i, index:integer;
begin
SetLength(Result,Len);
index:=0;
for i:=1 to Len do
begin
inc(index);
Result[index]:=i;
end;
end;
nu kommt am ende der function eine "Ungültige Zeigeroperation".
hier der aufruf:
Delphi-Quellcode:
var temp:TIntDynArray;
begin
SetLength(temp,ListBox1.Count);
for i:=0 to ListBox1.Count-1 do temp[i+1]:=strtoint(ListBox1.Items[i]);
temp:=test(temp,length(temp));
for i:=0 to ListBox1.Count-1 do ListBox2.Items.Add(inttostr(temp[i+1]));
end;