Buchstabenhäufigkeit

[DeddyH]

Vielleicht denke ich zu simpel, aber würde es für Ansi nicht auch einfach so gehen (die nicht darstellbaren Zeichen habe ich bewusst nicht herausgefiltert)?

Delphi-Quellcode:

type
  TCharCounter = class
  private
    FCounts: array [AnsiChar] of Cardinal;
    FTotal: int64;
  public
    procedure ReadString(const s: AnsiString);
    function GetCount(c: AnsiChar): integer;
    function GetPercentage(c: AnsiChar): single;
    constructor Create;
  end;

constructor TCharCounter.Create;
begin
  FillChar(FCounts, SizeOf(FCounts), 0);
end;

function TCharCounter.GetCount(c: AnsiChar): integer;
begin
  Result := FCounts[c];
end;

function TCharCounter.GetPercentage(c: AnsiChar): single;
begin
  if FTotal = 0 then
    Result := 0
  else
    Result := GetCount(c) / FTotal * 100;
end;

procedure TCharCounter.ReadString(const s: AnsiString);
var
  i: Cardinal;
begin
  FTotal := 0;
  for i := Low(s) to High(s) do
    begin
      FCounts[s[i]] := FCounts[s[i]] + 1;
      inc(FTotal);
    end;
end;

[Jumpy]

Zitat von DeddyH:

FCounts[s[i]] := FCounts[s[i]] + 1;

Das scheint mir aber nicht richtig zu sein, oder?

[DeddyH]

Wieso nicht? Mal in Langform:

Delphi-Quellcode:

procedure TCharCounter.ReadString(const s: AnsiString);
var
  i: Cardinal;
  c: AnsiChar;
begin
  FTotal := 0;
  for i := Low(s) to High(s) do
    begin
      c := s[i];
      FCounts[c] := FCounts[c] + 1;
      inc(FTotal);
    end;
end;

[Luckie]

Und wie weißt du jetzt, wie häufig jeder einzelne Buchstabe vorkommt?

[DeddyH]

Die Anzahl steht je Zeichen im Array.

[edit] Nachtrag: Das Nullen des Arrays beim erneuten Einlesen habe ich noch vergessen.

Delphi-Quellcode:

procedure TCharCounter.ReadString(const s: AnsiString);
var
  i: Cardinal;
begin
  FTotal := 0;
  FillChar(FCounts, SizeOf(FCounts), 0);
  for i := Low(s) to High(s) do
    begin
      FCounts[s[i]] := FCounts[s[i]] + 1;
      inc(FTotal);
    end;
end;

[Jumpy]

Zitat von DeddyH:

Wieso nicht? Mal in Langform:

Irgendwie sehe ich den Trick nicht, wieso der Char der Index im Array ist? Ich steh da wohl auf der Leitung

[DeddyH]

Wenn Du je Zeichen die Anzahl ermitteln willst, bietet es sich doch an, das Zeichen dann auch als Index zu verwenden, oder?

[p80286]

Das ist keine Char-Table sondern eine Count-Table. also am Position $31 wir das Vorkommen von "1" gezählt.

Gruß
K-H