Buchstabenhäufigkeit

[Luckie]

Meine IDE kann noch kein Unicode, deswegen habe ich explizit den Datentyp AnsiString genommen, damit es zu keinen Problemen mit neueren IDE's und Compilern kommt.

[Lisa.99]

Danke für eure schnellen Antworten.
Verstehe leider viele Quelltexte nicht. In der Schule lernen wir nur wenig und es kann passieren, dass ich das erklären muss. Will auch verstehen, wieso ich das so machen muss.
Wie bekomme ich es hin, mein string grid auf null zu setzen?
Bin ein Mädchen

[Jumpy]

Wenn's nur um das grüne geht, da zählst du zu weit:

for j1 := 1 to StringGrid1.RowCount-1 do

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