Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Buchstabenhäufigkeit

   
    by DeddyH, 14. Feb 2017
  Wenn Du je Zeichen die Anzahl ermitteln willst, bietet es sich doch an, das Zeichen dann auch als Index zu verwenden, oder?
• Forum: Programmieren allgemein

  AW: Buchstabenhäufigkeit

   
    by DeddyH, 14. Feb 2017
  Die Anzahl steht je Zeichen im Array.
  
  Nachtrag: Das Nullen des Arrays beim erneuten Einlesen habe ich noch vergessen.
  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
• Forum: Programmieren allgemein

  AW: Buchstabenhäufigkeit

   
    by DeddyH, 14. Feb 2017
  Wieso nicht? Mal in Langform:
  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;
• Forum: Programmieren allgemein

  AW: Buchstabenhäufigkeit

   
    by DeddyH, 13. Feb 2017
  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)?
  type
  TCharCounter = class
  private
  FCounts: array of Cardinal;
  FTotal: int64;
  public
  procedure ReadString(const s: AnsiString);
  function GetCount(c: AnsiChar): integer;
  function GetPercentage(c: AnsiChar):...