Stringlist; Häufigkeit einzelner Wörter

[DeddyH]

Hallo und Willkommen in der DP ,

eine Möglichkeit, die mir spontan so einfällt: eine zweite Stringliste erzeugen. Bei jedem neuen Wort prüfst Du dann, ob dieses bereits enthalten ist. Wenn ja, zählst Du die Anzahl hoch, wenn nicht, Neueintrag mit Anzahl 1. Für die Anzahl ließe sich die Objects-Property der Liste missbrauchen. Aus der Lameng getippt:

Delphi-Quellcode:

procedure TIrgendwas.CountWord(const NewWord: string);
var
  idx, CurrentCount: integer;
begin
  CurrentCount := 0;
  idx := CountList.IndexOf(NewWord);
  if idx < 0 then
    idx := CountList.AddObject(NewWord, TObject(CurrentCount));
  CurrentCount := integer(CountList.Objects[idx]);
  inc(CurrentCount)
  CountList.Objects[idx] := TObject(CurrentCount);
end;

[Mokus]

Hier noch mal der Delphi anfänger


Auschnitt 1)

Delphi-Quellcode:

  st_woerter := tstringlist.create;
  st_woerter2 := tstringlist.create;
  setlength(a_speicher, 2);
  st_woerter.CommaText := Memo1.text;
  s_test := st_woerter.CommaText;

Uschnitt 2)

Delphi-Quellcode:

for a := 0 to st_woerter.Count - 1 do
  begin

    I := 0;
    I := st_woerter2.IndexOf(st_woerter[a]);
    showmessage(inttostr(I));
    if I < 0 then
    begin
      index := st_woerter2.AddObject(s_test, TObject(I));
      I := integer(st_woerter2.Objects[index]);
      inc(I);
      st_woerter2.Objects[index] := TObject(I);
    end;
  end;

  Memo2.text := st_woerter2.text;

For schleife weil er ja jedes einzelnes Abgespeichertes Wort kontrollieren soll.
Sonst ist das die gleiche, andere Variablen ok, syntax wie von @DeddyH: ;
nun fällt mir hier aber ja die zähl variable als auch speichert er jedes wort in der stringlist 2 ?!

bitte um Fehler meldung.
( am besten erstmal nur hinweise, fehler suche hilft beim Lernen )

[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