Einzelne Buchstaben zählen und auflisten...

[negaH]

Delphi-Quellcode:

type
  TCharCounterTable = array[Char] of Cardinal;

function CountChars(const Text: String): TCharCounterTable;
var
  I: Integer;
begin
  FillChar(Result, SizeOf(Result), 0);
  for I := 1 to Length(Text) do
    Inc(Result[Text[I]]);
end;

procedure Test;
var
  Table: TCharCounterTable;
  C: Char;
begin
  Table := CountChars('Testtext');
  for C := #0 to #255 do
    if Table[C] > 0 then
      WriteLn(C, ' = ', Table[C]:4);
end;

TypCast per Ord() ist unnötig, der Index des Arrays kann als Char deklariert werden.

Gruß Hagen