Kryptoanalyse

**Kuhlifrumsdenteich**

Moin Moin,

haette da gern mal folgendes Problem.
Habe einen Text in einem Memofeld. Dieser Text wird mit folgenden Quellcode
bearbeitet und dadurch die Haeufigkeit der Buchstaben rausgefunden, welche zum
Abschluss in eine Listbox flattern.

Doch leider ist die Ausgabe in der Listbox etwas duemmlich, da der Quellcode
nicht ordnet. Will heissen, mein Programm soll nun noch den haeufigsten Buchstaben an die erste Stelle setzen.
Sprich: einfach geordnet (von gross nach klein) in der listbox darstellen.

Bis jetzt soweit gekommen:

zusammenfalten · markieren

Delphi-Quellcode:

			const

  Alphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

var  

  i, a: Integer;

begin  

  for i := 1 to Length(Alphabet) do begin

    a := Anzahl(Alphabet[i]);

    ListBox1.Items.Add(Format('"%s" = %d', [Alphabet[i], a]));

  end;

end;

Ueberlegung:
Vielleicht mit einem Array (2-dimensional) zaehlen und dann danach mit
einer for-Schleife gleich ordnen.
Vielleicht kann ja jemand helfen.
Danke!

Kryptoanalyse

Kryptoanalyse

Forumregeln