Dynamische Arrays beginnen
immer mit dem Index 0! Da dein Array
laenge lang ist, knallt es natürlich am Ende von
Delphi-Quellcode:
for i:=1 to laenge do
begin
a[i]:=strtoint(form1.memo1.lines[i-1]);
end;
(Btw: geniale Einrückung
).
Also muss es
Delphi-Quellcode:
for i:=1 to laenge do
begin
a[i-1]:=strtoint(form1.memo1.lines[i-1]);
end;
oder gleich
Delphi-Quellcode:
for i:=0 to laenge-1 do
begin
a[i]:=strtoint(form1.memo1.lines[i]);
end;
heißen.
[edit]Ja, in der "bubble"-Prozedur genauso