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