TStringList CustomSort

[Unplugged]

schreibe dir doch zur Not eine eigene Sortierfunktion?

Alternativ könntest du auch nur die Namen in der Stringliste speichern. Wenn ich mich richtig erinnere, kannst du zusätzlich auch Objekte in einer Stringlist speichern, wo du dann unter anderem auch den Status speichern kannst.

Delphi-Quellcode:

type
  TStatus = class(TObject)
  private
    FRang: Byte
  public
    property Rang: Byte read FRang write FRang;
  end;

...

procedure CreateUser;
begin
  Users := TStringList.Create;
end;

procedure NewUser(Name: string; Rang: Byte)
var
  uState: TStatus;
begin
  uState := TStatus.Create;
  uState.Rang := Rang;
  Users.AddItem(Name, uState);
end;

procedure Sortieren;
begin
  Users.Sort;
end;

Ist nur nen symbolisches Beispiel, aber sollte in der Form machbar sein.