Zitat von
Satty67:
Das liegt daran, das Deine ListBox1 auch leer ist! Dabei darfst Du Dich nicht von der Anzeige täuschen lassen...
Delphi-Quellcode:
procedure TForm1.RandomizeArrays;
var i:integer;
begin
randomize;
Listbox1.Clear;
for i:= 0 to (400-1) do
begin
Listbox1.items[i]:= DatetoStr(Random(42000)); // Riesen Fehler
end;
Label1.Caption:= inttostr(i)+' '+'Zufallsdatums erzeugt!';
end;
Du beschreibst Listbox Items, die gar nicht da sind (keine Ahnung warum da noch nicht der Fehler kommt). Damit bleibt ListBox1.Items.Count auch auf -1, was später zum Fehler führt.
Bau Deine Zufalls-Liste so auf
Listbox1.items.add(DatetoStr(Random(42000)));
€: das wäre dann auch die Stelle, wo Dein Code von toms Beispiel abweicht
Satty67, Du hast recht.
Menno, ich hatte die Zufallsdatums also garnicht in die Listbox aufgenommen.
Mit 'Items.add' gehts.
Aber noch was:
Ich habe vor diesen letzten Versuchen mit QuickSort, ectra, die im hiesigen Forumthread beschriebenen 'ShellSort'- und 'BubbleSort' Routinen probiert und die funktionieren eben auch mit 'Listbox1.items[i].
Ist das nicht merkwürdig?