Wenn du dich noch nicht so auskennst mit Delphi (was ich nicht glauben kann, wenn ihr solche Aufgaben bekommt), dann würde ich empfehlen eine FOR-Schleife zu durchlaufen
Delphi-Quellcode:
for i:=1 to Length(memo1.text) do
begin
// memo1.text[i] -> damit bekommst du den Buchstaben raus an der jeweiligen Position,
// jetzt mit einer CASE-Anweisung gucken, welcher Buchstabe es ist
// und in verschieden Variablen zählen (immer um eins erhöhen)
end;
Danach kannst du "ganz in Ruhe" die Prozente ausrechnen, weil du ja die Absolut-Werte hast.
Entweder du nimmst 26 Integer-Variablen oder ein Array of Integer (was natürlich vie "sauberer" wäre)
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg