Zitat von
Hallo_Thomas:
Delphi-Quellcode:
procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
SetLength(Wertigkeit,aEnd);
for y := aStart to aEnd do
Wertigkeit[y]:=0;
end;
1) Array-Grenzen verletzt: setlength(Array,länge) Zugriff immer nur von Array[0] bis Array[länge
-1]!
[edit] zu langsam.. Musste aber auch schon um 5 heute raus..[/edit]