So, endlich fertig und hoffentlich richtig
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Dauer, Alter :Word;
Praemie :Currency;
begin
Dauer := StrToInt( Edit1.Text );
Alter := StrToInt( Edit2.Text );
if ( Dauer < 10 )
and ( Dauer > 0 ) then
begin
Praemie := 100;
if ( Dauer > 3 ) then
Praemie := Praemie + ( 50 * ( Dauer - 3 ) );
end
else
begin
Praemie := Dauer * 60;
end;
if ( Alter >= 50 ) then
Praemie := Praemie + ( Praemie / 2 );
Edit3.Text := FloatToStr( Praemie );
end;
Eine Frage habe ich dann doch noch !
Wie kann ich dem Programm eigentlich sagen, dass er mir bei Zahlen unter 0 eine Fehlermeldung (ShowMessage oder sowas ;D) ausgeben soll? Also die 3 Edit Felder dürfen keine negativen Zahlen beinhalten und auch nicht vom Programm akzeptiert werden.