Buchstabenhäufigkeit

[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