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