Zitat:
zahl := zahlen['e'] * zahlen['m'] * zahlen['i'] * zahlen['l'];
also damit mein ich, dass das wort so zerlegt wird.
Delphi-Quellcode:
for i:= 1 to length(name) do
zahl:= zahl*zahlen[name[i]];
Aus der
Unit SysUtils
name:=lowercase(name)
Grüße
Klaus