Ich schreibe gerade ein Programm, bei dem man einen Start- und Endwert festlegen kann(per Edit- Eingabe)
und die Grundrechenart aussucht und das Programm rechnet alle folgenden Zahlen dieser Reihe mit der jeweiligen
Methode zusammen. Bei + und - klappt das schon, aber bei * gibt er mir immer 0 aus!
Ich habe den Fehler schon gesucht, aber bin erfolglos geblieben, vielleicht findet ihr ihn ja!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.Button3Click(Sender: TObject);
begin
start:=StrToInt(Edit1.Text);
ende:=StrToInt(Edit2.Text);
zaehler:=start;
Timer3.Enabled:=true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
If zaehler>ende then
begin
Timer3.Enabled:=false;
Label1.Caption:='Das Ergebnis ist '+IntToStr(summe);
end
else
summe:=summe*zaehler;
zaehler:=zaehler+1;
Label2.Caption:=IntToStr(summe);
end; |
