Buchstabenhäufigkeit

[Lisa.99]

Hallo!
Ich sitze seit ca. 4 Wochen an einem Programm und komme wirklich nicht weiter.
Das erste Problem ist, dass bei den Buchstaben die im Text nicht vorhanden sind, die Null nicht ins String Grid geschrieben wird.
Wenn das läuft würde nur noch die Schleife fehlen, womit ich die Prozente berechnen kann der einzelnen Buchstaben um danach einen Vergleich anzustellen mit vorhandenen Prozentzahlen um die Sprache zu erkennen.
Ich weiß, dass es ganz schön viel ist, aber ich weiß wirklich nicht mehr weiter.
Danke schonmal im voraus!

Hier mein Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var  n1: integer;

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var text : string;
    i, anzahl, Index, Ordnungszahl, result, b, ergebnis : integer;
    Buchstabe, key : char;
begin
 if not (key in [#65..#90, #97..#122, #8]) then
  key := '0';

 StringGrid1.Cells[0,0]:= 'Buchstabe';
 StringGrid1.Cells[1,0]:= 'Häufigkeit';
 StringGrid1.Cells[2,0]:= 'Prozent';
 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;

procedure TForm1.Button2Click(Sender: TObject);
var n2, j1, i1, Bu, Er, A, B, C, D, E, F, G, H, I, J, K , L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, E1: integer;
begin
  {for j1 := 1 to StringGrid1.RowCount do
     begin
       if strtoint(StringGrid1.Cells[1,n2]) >= 1 then
        begin
          Bu:= strToint(StringGrid1.Cells[1,n2]);
          Er:= (Bu*100)/n1;
          StringGrid1.Cells[2,n2]:= inttostr(Er);
        end;
     end;}

  n1:= strtoint(Edit2.Text);
  A:= strtoint(StringGrid1.Cells[1,1]);
  if A >0 then
   begin
  E1:= (A*100)div n1;
  StringGrid1.Cells[2,1]:= inttostr(E1);
    end
  else
    begin
      E1:=0;
      StringGrid1.Cells[2,1]:= inttostr(E1);
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;


end.

[Klaus01]

Zitat:

Das erste Problem ist, dass bei den Buchstaben die im Text nicht vorhanden sind, die Null nicht ins String Grid geschrieben wird.

Du könntest die Zellen des StringGrids mit "0" vorbelegen.
Denn in der Schleife werden nicht vorhandene Buchstaben nicht erfasst.

Grüße
Klaus

[Jumpy]

Bezogen auf das, was du schon hast, würde ich einfach anfänglich in einer Schleife durch alle Buchstaben laufen und das String-Grid überall auf 0 setzen.


Wenn ich es aber neu/anders machen würde, würde ich mir zunächst eine Struktur schaffen, um darin für jeden Buchstaben die Anzahl zu speichern, also z.B. ein Array. Dann analysiere ich den Text und erhöhe im Array für jeden Buchstaben um 1, wenn der Buchstabe mal wieder kommt.
Erst danach, wenn der Text analysiert ist, gebe ich den ganzen Kram im StringGrid aus, dazu brauch ich dann nur eine Schleife über alle Buchstaben und kann dann Buchstabe, Anzahl und Prozent als Anzahl/Length(Text) ins StringGird schreiben.

[Luckie]

Ich würde für die Datenhaltung kein StringGrid nehmen, sondern ein zweidimensionales Array oder besser ein Array mit einem Record oder sogar Objekte in einer ObJectList.Weil morgen findest du einen Listview schicker oder eine andere GridKomponente. Dann trennst du auch die Ermittlung der Daten und brauchst nur noch die Liste in das Grid übertragen.

[rokli]

Hallo Lisa.99!

Schön, das Du da bist!

Deine Aufgabe könnte man so nach dem guten alten EVA Prinzip (am besten mit einem Array) zerlegen:

E wie Eingabe (durcharbeiten des Textes und Zählen der Buchstaben)
V wie Verarbeitung (berechnen der Prozente) und
A wie Ausgabe (in das Grid).

Dann hast Du am Ende 3 Prozeduren, die übersichtlich die einzelnen Arbeitsschritte enthalten. Und wenn was nicht funktionieren sollte, kannst Du gezielt nach dem Fehler suchen.

@Luckie: Sind das vielleicht schon Kanonen und Spatzen?

Gruß

[Luckie]

Ich habe aus der Kanone mal eine Zwille gemacht.

Quick and dirty ohne Klassen ohne Objektlisten:

Ermitteln der Häufigkeit:

Delphi-Quellcode:

unit Unit6;

interface

uses
  SysUtils;

type TCharRecord = record
    FChar: AnsiChar;
    FCharCnt: Cardinal;
end;

var
  CharRecordArray: array [1..26] of TCharRecord;

procedure CntCharOccurrence(Text: AnsiString);

implementation

procedure CntCharOccurrence(Text: AnsiString);
var
  i, j: Integer;
  MyOrdChar: Integer;
  s: AnsiString;
begin
  // Init array
  for j := 1 to 26 do
  begin
    CharRecordArray[j].FChar := Chr(j + 64);
    CharRecordArray[j].FCharCnt := 0;
  end;

  s := AnsiUpperCase(Text);
  for i := 1 to Length(s) do
  begin
    MyOrdChar := Ord(s[i]) - 64; // A = 1, B = 2, ...
    if (MyOrdChar in [1..26]) then
    begin
      CharRecordArray[MyOrdChar].FCharCnt := CharRecordArray[MyOrdChar].FCharCnt + 1;
    end;
  end;
end;

end.

Aufruf:

Delphi-Quellcode:

procedure TForm5.btn1Click(Sender: TObject);
var
  i: Integer;
  s: AnsiString;
begin
  s := '';
  CntCharOccurrence(mmo1.Text);
  for i := 1 to 26 do
  begin
    s := s + Format('%s: %d', [CharRecordArray[i].FChar, CharRecordArray[i].FCharCnt]) + #13#10;
  end;
  ShowMessage(s);
end;

Die Erweiterung um den prozentualen Anteil sollte jetzt kein Problem sein. Den Record um das entsprechende Feld erweitern und nach der Ermittlung der Häufigkeit noch mal in einer Schleife das Array durchgehen und den Prozentualen Anteil ermitteln.

[rokli]

Zwille ist cool!

[Luckie]

Hier die Erweiterung und ein paar Code Verschönerungen:

Delphi-Quellcode:

unit Unit6;

interface

uses
  SysUtils;

type TCharRecord = record
    FChar: AnsiChar;
    FCharCnt: Cardinal;
    FPercentage: Extended;
end;

var
  CharRecordArray: array [1..26] of TCharRecord;

procedure CntCharOccurrence(Text: AnsiString);

implementation

procedure CntCharOccurrence(Text: AnsiString);
var
  i: Integer;
  MyOrdChar: Integer;
  s: AnsiString;
  BaseValue: Integer;
  Percentage: Extended;
begin
  // Init array
  for i := Low(CharRecordArray) to High(CharRecordArray) do
  begin
    CharRecordArray[i].FChar := Chr(i + 64);
    CharRecordArray[i].FCharCnt := 0;
    CharRecordArray[i].FPercentage := 0;
  end;
  // calcualte occurence
  s := AnsiUpperCase(Text);
  s := StringReplace(s, ' ', '', [rfReplaceAll]);
  for i := 1 to Length(s) do
  begin
    MyOrdChar := Ord(s[i]) - 64; // A = 1, B = 2, ...
    if (MyOrdChar in [1..26]) then
    begin
      CharRecordArray[MyOrdChar].FCharCnt := CharRecordArray[MyOrdChar].FCharCnt + 1;
    end;
  end;
  // calculate percentage
  BaseValue := Length(s);
  for i := Low(CharRecordArray) to High(CharRecordArray) do
  begin
    Percentage := CharRecordArray[i].FCharCnt / BaseValue * 100;
    CharRecordArray[i].FPercentage := Percentage;
  end;
end;

end.

Delphi-Quellcode:

procedure TForm5.btn1Click(Sender: TObject);
var
  i: Integer;
  s: AnsiString;
begin
  s := '';
  CntCharOccurrence(mmo1.Text);
  for i := Low(CharRecordArray) to High(CharRecordArray) do
  begin
    s := s + Format('%s: %d' + #9 + '(%2.2f%%)', [CharRecordArray[i].FChar, CharRecordArray[i].FCharCnt, CharRecordArray[i].FPercentage]) + #13#10;
  end;
  ShowMessage(s);
end;

[rokli]

OT: Wer das wohl noch kennt, geschweige denn bauen kann... und damit schießen!

[p80286]

Solange Du Dich auf ANSI-Char beschränkst reicht auch

Delphi-Quellcode:

var
  cntarr:array[0..255] of cardinal;

const
  maxbuff = 4096;
  
var
  edat   : file;
  buffer : array [1..maxbuff] of byte;
  gelesen:integer;
  i      : integer;
begin
  fillchar(cntarr,#0,sizeof(cntarr));
  assignfile(edat,efile);
  reset(edat,1);
  repeat
    blockread(edat,buffer,maxbuff,gelesen);
    for i:=1 to gelesen do
      inc(cntarr[buffer[i]],1);
  until eof(edat) or application.terminated;
  closefile(edat);
end;

Gruß
K-H