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