| sourcehunter hat folgendes geschrieben: |
| Wenn die Listbox sortiert hast, dann kannst du diese von unten auslesen und in eine andere wieder von oben einschreiben, dann hast du die Sortierung umgekehrt. |
Na dann viel Spass beim Programmieren. Komplizierter geht es ja kaum
.
Wenn du sehr viele Items in deiner ListBox hast, dann kommst du wohl nicht drumrum die deine Sortprozedur selber zu schreiben (
QUICKSORT DELPHI). Wenn es auch etwas "langsamer" geht, dann kannst du folgendes benutzen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure SortDesc(const ListBox: TListBox);
function Compare(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -CompareText(List.Strings[Index1], List.Strings[Index2]);
end;
var
SL: TStringList;
begin
SL := TStringList.Create;
with SL do begin
try
AddStrings(ListBox.Items);
CustomSort(@Compare);
ListBox.Items.BeginUpdate;
ListBox.Clear;
ListBox.Items.AddStrings(SL);
ListBox.Items.EndUpdate;
finally
SL.Free;
end;
end;
end; |
Gruß Hape!
