Häufigkeit der Wörter zusammenfassen

**Dyami**

Hallo liebe Leute,

ich stehe hier vor einem kleinen Problem.
Ich möchte in der Ausgabe nicht 4 mal das gleiche Wort stehen haben, sondern nur 1-mal.
Es soll nicht stehen "Hallo, hallo, hallo, hallo: Das Wort Hallo gibt es 4 mal" sondern nur "Hallo: Das Wort Hallo gibt es 4 mal".

Das ist der Aufbau für Häufigkeit der Wörter ausgeben:

zusammenfalten · markieren

Delphi-Quellcode:

			  for i := 0 to st_w1.count - 1 do

  begin

    Text := st_w1.CommaText;

    zaehlen := 0;

    index := st_w2.IndexOf(st_w1[i]);

    if index < 0 then

    begin

      index := st_w2.Addobject(Text, TObject(zaehlen));

      zaehlen := integer(st_w2.Objects[index]);

      inc(zaehlen);

      st_w2.Objects[index] := TObject(zaehlen);

    end;

    Memo2.Text := st_w2.Text;

  end;

Bitte um Hilfe, danke!

Philipp

Häufigkeit der Wörter zusammenfassen

Häufigkeit der Wörter zusammenfassen

Forumregeln