Buchstabenhäufigkeit

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

[rokli]

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

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

[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

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

[Sherlock]

OT: Ist der TB nicht was feines?


Sherlock
- der wieder stänkert, obwohl das Jahrespensum doch bereits erfüllt schien...mea culpa.