txt auslesen und zeichen zählen

[marabu]

Oder meinst du vielleicht eher sowas:

Delphi-Quellcode:

program cstat;

{$APPTYPE CONSOLE}

uses
  Classes,
  StrUtils,
  SysUtils;

type
  TCounterArray = array [byte] of integer;
var
  ca: TCounterArray;
  line: string;

procedure CountChars(s: string; var ca: TCounterArray);
var
  i: integer;
begin
  for i := 1 to Length(s) do
    Inc(ca[Ord(s[i])]);
end;

begin
  Assign(input, '');
  Reset(input);
  while not Eof do begin
    ReadLn(line);
    CountChars(line, ca);
  end;
  CloseFile(input);

  AssignFile(output, '');
  Rewrite(output);
  WriteLn('Zeichen,Vorkommen');
  for i := 32 to 255 do
    if ca[i] > 0 then
      WriteLn(Format('"%s",%d', [Chr(i), ca[i]]));
  CloseFile(output);
end.

Grüße vom marabu