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:

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

[Mokus]

[bitte_ vergessen] Bau eine weitere If abfrage ein.

mit "IndexOf" schausdt du doch, ob das object in der liste vorhanden ist.
if index >0
dann füge es nicht hinzu.
[/bitte _ vergessen]

[edit] du setzt den text auf st_w1.comma text.
d.h. du fügst den ganze text hinzu. nicht nur das einzelne Wort.
text := st_w1[i] müsste da noch hin, statt
text := st_w1-comma text.
das müsste es dann schon gewesen sein.
[/edit]

[DeddyH]

Stimmt genau, außerdem ist das Zuweisen des Memo.Text innerhalb der Schleife kontraproduktiv, das müsste dahinter, um das Programm nicht unnötig auszubremsen.

[Dyami]

Hat alles wunderbar geklappt, danke euch!