Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
28. Jun 2009
Und wieso nicht per CustomSort?uses math;
function ListCompare(List: TStringList; Item1,Item2: integer): integer;
begin
Result := Sign(integer(List.Objects) - integer(List.Objects));
end;
procedure TfrmMain.Button1Click(Sender: TObject);
var List: TStringlist;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
28. Jun 2009
Und wieso wird Heikos Vorschlag mit CustomSort ignoriert? Das ist doch genau für solche Fälle vorgesehen und verwendet intern einen Quicksort.