Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
name1:=LowerCase(Edit1.Text);
name2:=LowerCase(Edit2.Text);
showMessage(name1,name2);
zahl1:=1; // <-------------
for i:= 1 to length(name1) do
zahl1:= zahl1*zahlen[name1[i]];
zahl2:=1; // <-----------
for i:= 1 to length(name2) do
zahl2:= zahl2*zahlen[name2[i]];
zahl3 := zahl1 + zahl2;
zahl3 := zahl3 mod 100;
Edit3.Text := IntToStr(zahl3);
end;
einrücken nicht vergessen, macht den Code lesbarer,
zahl1 und zahl2 sind nicht initialisiert worden - daher wahrscheinlich 0
und ein Produkt mit 0 gibt 0.
Grüße
Klaus