Thema: Delphi TStringList CustomSort

Einzelnen Beitrag anzeigen

Unplugged

Registriert seit: 14. Apr 2004
Ort: Leipzig
125 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: TStringList CustomSort

  Alt 17. Okt 2005, 09:33
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.
  Mit Zitat antworten Zitat