Buchstabenhäufigkeit

[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.