hallo ich soll von der schule aus einen kalorienrechner programmieren und habe den auch so gut wie fertig ^^(im anhang zum anguggen
)
ähmm...wenn man in das obere feld nichts eingibt und/oder keinen radiobutton auswählt soll ein warnhinweis erscheinen!!
(in einem neuen fenster) wie bekomm ich das hin??
hier mein code den ich bis jetzt habe ^^
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zahl1 : integer;
var bonus: integer;
begin
edit2.text := '0' ;
edit3.Text := '0' ;
zahl1 := StrToint (edit1.text);
edit2.text := intToStr (zahl1*24);
if RadioGroup1.ItemIndex = 0 then
bonus := StrToInt(Edit2.Text) div 3;
if RadioGroup1.ItemIndex = 1 then
bonus := StrToInt(Edit2.Text) * 2 div 3;
if RadioGroup1.ItemIndex = 2 then
bonus := StrToInt(Edit2.Text) ;
edit3.text := inttostr((strtoint(Edit3.text)*24)+ bonus);
Label4.Caption := Format('Sie benütigen am Tag %s Kilokalorien', [ergebnis]);
end;
end.
denkeschön jetzt schon mal
