TCombobox sortieren?

[SearchBot]

Hi,

ich habe einige Strings in eine Combobox geaddet. Jetzt möchte ich sie sortiert haben.

Also ganz einfach gedacht:

Delphi-Quellcode:

Combobox1.sort;

Die Combobox in FMX verlangt noch einen Parameter vom Type TFmxObjectSortCompare.
(Wiki zu "Sort": "Sortiert die untergeordneten Elemente in der Liste der untergeordneten Elemente mit der angegebenen Sortierprozedur.")

Sortierprozedur, aha.

Die Wiki erzählt mir zu diesem Typ:

Zitat:

Prozeduraler Typ für Funktionen, die zwei TFmxObject-Objekte als Parameter übernehmen und einen Integerwert zurückgeben.

TFmxObjectSortCompare wird intern von Sort verwendet.

Toll! Wenn es intern verwendet wird, warum muss ich es dann angeben?

Und wie mache ich es jetzt?

[himitsu]

Weil sie verwendet wird, mußt du sie übergeben. :wink:

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

[Stevie]

Delphi-Quellcode:

  ComboBox1.Sort(
    function (Left, Right: TFmxObject): Integer
    begin
      Result := string.Compare(TListBoxItem(Left).Text, TListBoxItem(Right).Text);
    end);

[himitsu]

Leider ist TComboBox.Items nur ein TStrings und auch intern leitet TComboBoxStrings davon ab, womit das TStringList.Sort, bzw. ComboBox.Items.Sort leider fehlt. (k.A. warum das nicht direkt in TStrings drin steckt)

StringList.Sort bringt selbst ein String-Compare mit und bei StringList.CustomSort kann man auch direkt z.B. AnsiSameStr übergeben, da die Signatur bereits passt.