Ein 'Hallo' an Popov und alle Delphianer hier.
Da bin ich wieder. Ich habe mal einige Vorschläge versucht umzusetzen und bin gescheitert.
Popov, Deine 'Listboxsortieren' Routine hängt an folgendem Problem:
EStringlistError:"Listenindex überschreitet das Maximum 199'".
Also von 400 Einträgen ist das ungefähr die Hälfte und das Problem hängt hier:
Delphi-Quellcode:
procedure TForm1.LBSortieren(LB: TListBox); // QuickSort
type
TData = class
Datum: TDateTime;
DatumStr: String;
end;
...
procedure QuickSort(LB: TListBox; iLo, iHi: Integer);
var
Lo, Hi: Integer;
DataM, DataT: TData;
StrT: String;
begin
....
....
DataM := TData(LB.Items.Objects[(Lo + Hi) div 2]); <- gibt 199 und den Fehler!
....
Ich komme da nicht dahinter warum hier ein StringListFehler sein soll !?!?