Buchstabenhäufigkeit

[Lisa.99]

Er zählt leider die Satzzeichen mit, wenn er die Buchstabenanzahl berechnen soll, aber das will ich nicht.

Delphi-Quellcode:

begin
 if not (key in [#65..#90, #97..#122, #8]) then
  key := #0;

 StringGrid1.Cells[0,0]:= 'Buchstabe';
 StringGrid1.Cells[1,0]:= 'Häufigkeit';

 for i := 0 to 26 do
 begin
   StringGrid1.Cells[0,i+1]:= char (i+65);
 end;
 text:= Edit1.Text;
 text:=stringreplace(text,' ','',[rfReplaceAll]);
 for n1 := 1 to length (text) do
    begin
    Buchstabe := text[n1];
    Buchstabe := Upcase (Buchstabe);
    Ordnungszahl:= Ord(Buchstabe);
    Index:= Ordnungszahl-64;
    if Index in [1..26] then
      begin
      anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
      anzahl := anzahl + 1;
      StringGrid1.Cells[1,Index] := inttostr(anzahl);
      end;
    end;
   Edit2.Text:= inttostr(n1-1);
end;

[Luckie]

Überlege dir doch mal wie du NUR die Buchstaben zählen würdest. Schritt für Schritt.

Code:

Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen kein Buchstabe, Zähler nicht erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
Zeichen Buchstabe Zähler um eins erhöhen
...

Das heißt, du "überprüfst" im Kopf, ohne dass du es bewusst wahrnimmst, ob du gerade einen Buchstaben zählst oder nicht. Das musst du jetzt in Code umsetzen:

Code:

wenn Buchstabe
  Zähler erhöhen
ansonsten 
  tue nichts

Da der "ansonsten"-Zweig leer ist, kann man ihn natürlich weglassen. Letztendlich läuft es darauf hinaus den Zähler nur hoch zu zählen, wenn ein Buchstabe Buchstaben vorliegt. Das kann man jetzt sprachtechnisch unterschiedlich lösen. Am einfachsten wäre der in-Operator:

Code:

Wenn Zeichen in Buchstaben-ASCII-Bereich, dann zähle hoch

[p80286]

Und warum zählst Du nicht alle Zeichen und gibst dann die Zählung der Buchstaben aus?
Ohne Mehraufwand wäre dann auch die Zählung der Satzzeichen, Umlaute oder was auch immer verfügbar.

Gruß
K-H

[Luckie]

Lass sie erst mal das eine Problem lösen. Optimieren kann sie dann immer noch, wenn sie es verstanden hat.

[Lisa.99]

Ich benutze doch den in Operator:
if Index in [1..26] then
begin
anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
anzahl := anzahl + 1;
StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;

Und dieser soll ja nur die Zeichen zählen, die in diesem Bereich liegen.
Muss ich den Bereich ändern in:
if Index in [#65...#90] then ?

[Luckie]

Probier es doch einfach aus. Und bitte setz deinen Code in Delphi Tags, dann ist er auch besser lesbar.

[EWeiss]

anzahl := anzahl + 1;
selbe wie
inc(anzahl);

anzahl := anzahl - 1;
selbe wie
dec(anzahl);

gruss

[nahpets]

Zitat von Lisa.99:

Ich benutze doch den in Operator:
if Index in [1..26] then
begin
anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
anzahl := anzahl + 1;
StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;

Und dieser soll ja nur die Zeichen zählen, die in diesem Bereich liegen.
Muss ich den Bereich ändern in:
if Index in [#65...#90] then ?

Ich bin mal so dreist und kommentiere Deinen Quelltext:

Delphi-Quellcode:

// mache von 1 bis 26 also 26 mal das Folgende:
if Index in [1..26] then
begin
  // Lese die Zeichenfolge aus
  // StringGrid1.Cells[1,Index]
  // und konvertiere sie zu einer Zahl, falls das nicht geht, gib' mir eine 0 zurück.
  anzahl := StrToIntDef(StringGrid1.Cells[1,Index],0);
  // Addiere zu dieser Zahl 1
  anzahl := anzahl + 1;
  // Schreibe das Ergebnis der Addition in de soeben ausgelesene Zelle zurück.
  StringGrid1.Cells[1,Index] := inttostr(anzahl);
end;

Hier wird also, wie mir scheint, zu 26 Zahlen im Stringgrid 1 addiert.
Sofern zu Beginn im StringGrid aber keine Zahlen stehen, sondern Texte, so wird in den Zellen der Text (beim ersten Aufruf) jeweils durch 1 ersetzt.

Weil:
Textumwandlung in eine Zahl nicht funktioniert,
der Rückgabewert in diesem Fall (2. Parameter von StrToIntDef) = 0 sein soll
und anschließend auf 0 1 addiert wird.

Was gänzlich fehlt: Eine Routine, die den ggfls. in StringGrid1.Cells[1,Index] enthaltenen Text in irgendeiner Form auswertet und als Ergebnis die Anzahl der dort enthaltenen Wörter liefert.

Werde mal versuchen einen Pseudoquelltext zu schreiben, der Dir eventuell als Anhaltspunkt für Veränderungen dienen könnte.
Dabei gehe ich davon aus, dass in jeder Zeile des StringGrids in der ersten Spalte ein Text (bestehend aus mehr oder weniger vielen Worten) steht und in der zweiten Spalte die Anzahl der Worte aus Spalte eins stehen soll.

Delphi-Quellcode:

function ZaehleWorteIn(Zeichenfolge : String) : Integer;
var
         i : Integer;
begin
  // Erstmal gehen wir von keinem Wort aus.
  Result := 0;
  // Entfernen führende und folgende Leerzeichen.
  // Außerdem hängen wir am Ende dann ein Leerzeichen an,
  // damit auch das letzte Wort gezählt wird.
  // Als Worttrennung wird hier ausschließlich das Leerzeichen genutzt.
  // Reicht das nicht oder werden Zeichenfolgen als Wort erkannt, die kein Wort sind,
  // so ist die Routine entsprechend anzupassen.
  Zeichenfolge := Trim(Zeichenfolge) + ' ';
  for i := 1 to Length(Zeichenfolge) do begin
    Case Zeichenfolge[i] of
      ' ' : Result := Result + 1;
    end;
  end;
end;

var
    Zeile : Integer;
    Zeichenfolge : String;
    Anzahl : Integer;
begin
  for Zeile := 1 to StringGrid1.RowCount - 1 do begin
    Zeichenfolge := StringGrid1.Cells[0,Zeile];
    Anzahl := ZaehleWorteIn(Zeichenfolge);
    StringGrid1.Cells[1,Zeile] := IntToStr(Anzahl);
  end; 
end;

Das ist jetzt nur hingedaddelt und nicht getestet.

[Luckie]

Hier geht es um die Buchstabenhäufigkeit und nicht um die Anzahl der Wörter. Die suchst sie in dem anderen Thread.