Huhu,
Ich stehe vor einem kleine, hoffentlich lösbaren Problem. Ich möchte, dass mein Programm vollgendes macht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Button1Click(Sender: TObject);
var x,y : real;
begin
x:= 50;
y:= StrToInt(label1.Caption);
If Radiobutton1.Checked then
x := y / 2 ;
x := trunc(tip) ;
label1.Caption := FloatToStr(ergebnis) ;
If Radiobutton2.Checked then
x := y + (x*1/2);
x := trunc(tip);
label1.Caption := FloatToStr(tip);
end;
end. |
(das ist nicht mein Programm, wollte es nur zur verdeutlichung möglichst leicht machen)
----------
soo, bis dahin klappt alles wunderbar.
Jetzt mein Problem:
Ich möchte, dass er beim 2. "klick" nicht diese Rechung macht: y + (x*1/2); , sondern eine andere.
Mhh.. das ist echt schwer zu erklären. Ich versuchs noch leichter ->
1. Klick: 5+5
2. Klick: 5+8
3. Klick: 5+14
4. Klick: 5+345
etc.
geht das? Mit nur einem Button? Vielleicht habe ich auch grad ein Blackout, aber ich weiß zum verfluchen nicht wie ich deses vermeintlich leichte Problem lösen soll. Danke schonmal
Moderiert von 
Christian S.: Delphi-Tags hinzugefügt
