Stringlist; Häufigkeit einzelner Wörter

[DeddyH]

Du hast da Dinge vermischt, die getrennt gehören. Meine Routine war dazu gedacht, dass Du ihr jedes Wort aus Deiner Liste übergibst, sie zählt dann selbstständig. Mit der Schleifenvariablen kannst Du ja an der Stelle nichts anfangen. Also etwa so:

Delphi-Quellcode:

CountList := TStringlist.Create;
for a := 0 to st_woerter.Count - 1 do
  CountWord(st_woerter[a]);

Wenn ich keinen Denkfehler gemacht habe, sollten anschließend alle Wörter in CountList enthalten sein und die jeweilige Anzahl als TObject in ihren Objects.

[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