Nach Alphabet sortieren (ValueListEditor)

[Wormid]

Mal als billige alternative:

Delphi-Quellcode:

var SortList: TStringList;
begin
  SortList := TStringList.Create;
  with ValueListEditor1 do
  begin
    SortList.Assign(Strings);
    SortList.Sort;
    Strings.Assign(SortList);
  end;
  SortList.Free;
end;

Das sortiert die Einträge jetzt aufsteigend... für Absteigend müsste man das entweder rückwärts zurückkopieren (billige Version), oder aber man müsste mit CustomSort arbeiten (der korrekte Weg).

Gruß

Wormid