LiebesTester

[toredo]

Zitat von Alloc:

@toredo: Setz das doch mal um für die Nostalgiker unter uns

mfG, Chris

würd ich gern machen, aber ist mir zu schwer, ich habe ja auch erst am dienstag das erste mal was mit delphi gemacht^^

aber noch mals chnel zum code, weil den möcht ich fertigbringen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
name1:=LowerCase(Edit1.Text);
name2.Text:=LowerCase(Edit2.Text);
----------------------------------------
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;

nach dem makierten code kommt für zahl1 und zahl2 immer 0 raus, das versteh ich nicht richtig...


mfG toredo