hay,
kann es sein das wenn ich lowercase benutze immer 0 zurückkommt?
weil nach dem lowercase bekommt die variable imemr den wert 0.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
name1:=Edit1.Text;
name1:=Edit2.Text;
name1:=LowerCase(name1);
name2:=LowerCase(name1);
for i:= 1 to length(name1) do
zahl1:= zahl1*zahlen[name1[i]];
for i:= 1 to length(name2) do
zahl2:= zahl2*zahlen[name2[i]];
zahl3 := zahl1 + zahl2;
zahl3 := zahl3 mod 100;
Edit3.Text := IntToStr(zahl3);
end;
mfG toredo