Thema: Delphi TCombobox sortieren?

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.285 Beiträge
 
Delphi 12 Athens
 
#2

AW: TCombobox sortieren?

  Alt 13. Feb 2025, 19:20
Weil sie verwendet wird, mußt du sie übergeben.

Eigentlich sortiert dieses Sort nicht "explizit" die Items,
sondern Unterobjekte innerhalb eines FMX-Objektes,
aber zufällig sind die Items als Unterobjekt angelegt.

Delphi-Quellcode:
ComboBox1.Sort(function(Left, Right: TFmxObject): Integer
  begin
    Result := AnsiCompareStr(TListBoxItem(Left).Text, TListBoxItem(Right).Text);
  end);
aka
Delphi-Quellcode:
ComboBox1.Sort(function(Left, Right: TFmxObject): Integer
  begin
    if TListBoxItem(Left).Text = TListBoxItem(Right).Text then
      Result := 0
    else if TListBoxItem(Left).Text < TListBoxItem(Right).Text then
      Result := -1
    else
      Result := +1;
  end);
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat