TCombobox sortieren?

[himitsu]

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);