Stringlist; Häufigkeit einzelner Wörter

[Klaus01]

Guten Morgen,

bevor Du ein Wort zur StringList addierst kann Du mit TStringList.IndexOf nachschauen ob dieses Wort
schon in der StringList vorhanden ist. Wenn es vorhanden ist, erhöhst Du den Zähler für dieses Wort um eins.
Wenn das Wort nach nicht vorhanden ist, fügst Du es zu StringList hinzu und setzt den Zähler für das Wort auf 1.

Grüße
Klaus

[Mokus]

und der Zähler wird ein array, der sich mit jeden neuen wort um einen erhöht...
Das ist eine nette information.

Sollte es noch weiter Fragen geben meld ich mich wieder.

Dank dir Klaus.

[Blup]

Mal ein anderer Ansatz ohne Countlist.

Delphi-Quellcode:

{
Trennung von Funktion und Oberfläche:
Damit die Funktion überall verwendet werden kann,
werden die Daten und Objekte anonym über Parameter übergeben.
}
procedure GibAnzahlWoerterAus(AList: TStrings; const AText: String);
var
  st_woerter: TStringlist;
  i, n, nGesamt: Integer;
begin
  st_woerter := TStringlist.Create;
  try
    st_woerter.CommaText := Memo1.text;

    {Leerzeichen am Anfang und Ende der Wörter entfernen}
    for i := 0 to st_woerter.Count - 1 do
      st_woerter[i] := Trim(st_woerter[i]);  
    {sortieren}
    st_woerter.Sort;

    sWort1  := '';
    n       := 0;
    nGesamt := 0;
    for i := 0 to st_woerter.Count do
    begin
      if i < st_woerter.Count then
        sWort2 := st_woerter[i]
      else
        sWort2 := '';
      {Wort ist unverändert -> Anzahl erhöhen}
      if sWort1 = sWort2 then
        Inc(n)
      else 
      begin
        {altes Wort + Anzahl ausgeben, Gesamtsumme anpassen}
        if sWort1 <> '' then
        begin
          AList.Add(IntToStr(n) + 'x ' + sWort1);
          Inc(nGesamt, n);
        end;
        {neues Wort merken und Zähler neu starten}
        sWort1 := sWort2;
        n      := 1;
      end;
    end;
    AList.Add('In diesem Text sind es insgesamt ' + IntToStr(nGesamt) + ' Wörter.');
  finally
    {Objekte die man erzeugt, muss man auch freigeben}
    st_woerter.Free;
  end;
end;

{
In der Ereignisbehandlung werden die konkreten Objekten an die Funktion übergeben,
aber in der Regel wird nur minimale Funktionalität implementiert. 
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Lines.Clear;
  GibAnzahlWoerterAus(Memo2.Lines, Memo1.Text);
end;

[Mokus]

so;
ein letzte frage hätte ich noch ;

per index of kan ich ja sehen, ob in einer stringlist ein folgender string schon inhalten ist.
kann ich mir in einer if abfrage ausgeben welchen index dieses wort in der liste hat ?

gibt doch bestimmt ein befehl dafür, den ich noch nicht kenn :p

[DeddyH]

Genau diesen Index gibt IndexOf ja zurück.

[Mokus]

denk fehler;
dachte index of gibt aus wie oft es in der liste vorhanden ist;
aber index, klar.
sorry für unnötige frage >.<