Sortierung;

[Bjoerk]

Wenn du nicht die Objects der Stringlist nutzen willst (der Thread von vorhin, das warst du doch oder?) kannst du dir auch eine eigene Liste schreiben.

Zu Übungszwecken kann man das schön mit dyn. Arrays machen.

Delphi-Quellcode:

  TWord = record
    Value: string;
    KommtWieOftVor: integer;
    UndSonstNochWas: integer;
  end;

  TWordList = class
  private
    FItems: array of TWord;
  private
    function Get(Index: integer): TWord;
    procedure Put(Index: integer; const Value: TWord);
  public
    function Add(const Value: TWord): integer;
    procedure Insert(const Index: integer; const Value: TWord);
    procedure Delete(const Index: integer);
    function IndexOf(const Value: TWord): integer;
    procedure Assign(Value: TWordList);
    procedure Sort;
    property Items[Index: integer]: TWord read Get write Put; default;
  end;