Stringlist; Häufigkeit einzelner Wörter

[David Martens]

Nur ein paar kleine Hinweise:

Bei XE2 würde ich nicht array of integer; benutzen, sonder eher TList<integer> oder noch besser

Delphi-Quellcode:

var
  Wortliste : TList<TPair<string, integer>>
begin
  Wortliste := TList<TPair<string, integer>>.Create;
...

  if Wortliste.Item[i].Key = 'Das Wort' then
    Inc(Wortliste.Item[i].Value)
  else
    Wortliste.Add(TPair<string, integer>.Create('Das Wort', 1));

Du kannst auch eine eigene Klasse bei TList angeben.

Auch würde ich dir empfehlen die Wörter vorher zu sortieren (Standartfunktion von TStrings) und dann einfach nur bis zum nächsten unterschiedlichen Wort. Dann mußt du nicht jedesmal die ganze Liste nach einem Wort zu durchsuchen.

David