Einzelne Buchstaben zählen und auflisten...

[DeddyH]

Zitat von negaH:

Delphi-Quellcode:

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;

Testtext ist der zu untersuchende String, den kannst Du durch ListBox.Items.Text ersetzen. Und statt dem Writeln kannst Du die Ergebnisse jeweils als Zeile in der 2. ListBox ausgeben.