Danke für deine schnelle Hilfe, ich habe nun probiert die Längen meiner Arrays nach einer anderen function zu setzen, welche mir die nötige Länge ermittelt, bekomme jedoch nun immer einen Error von einer ungültigen Zeigeroperation, aber was ist damit gemeint?
Habe meinen Code um folgendes erweitert:
Delphi-Quellcode:
function testLength(input: string): integer;
var rest: string;
counter: integer;
begin
input:= rest;
counter:= 0;
repeat
if pos(',', rest) <> 0 then
begin
rest:= copy(rest, pos(',', rest) + 1, length(rest));
counter:= counter + 1;
end;
if pos(',', rest) = 0 then
begin
rest:= '';
counter:= counter + 1;
end;
until rest = '';
result:= counter;
end;
Delphi-Quellcode:
setLength(unsorted, testLength(input));
setLength(sorted, testLength(input));