AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Stringlist; Häufigkeit einzelner Wörter
Thema durchsuchen
Ansicht
Themen-Optionen

Stringlist; Häufigkeit einzelner Wörter

Ein Thema von Mokus · begonnen am 24. Sep 2013 · letzter Beitrag vom 24. Sep 2013
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#1

AW: Stringlist; Häufigkeit einzelner Wörter

  Alt 24. Sep 2013, 08:10
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Mokus
Mokus

Registriert seit: 24. Sep 2013
165 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Stringlist; Häufigkeit einzelner Wörter

  Alt 24. Sep 2013, 08:47
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 )
Angehängte Grafiken
Dateityp: png falsche ausgabe.png (31,2 KB, 16x aufgerufen)
Markus
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#3

AW: Stringlist; Häufigkeit einzelner Wörter

  Alt 24. Sep 2013, 08:55
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
David Martens

Registriert seit: 29. Sep 2003
205 Beiträge
 
Delphi XE Enterprise
 
#4

AW: Stringlist; Häufigkeit einzelner Wörter

  Alt 24. Sep 2013, 09:29
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 Wortthen
    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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz