Wenn man aber etwas anderes eingibt(Buchstaben, Alle Zeichen ausser ".") kommt die Meldung "Invalid Float".
Was muss man bei x eingeben, damit im Falle einer Flascheingabe ein Showmessagefenster kommt, dass sagt "Bitte eine Zahl eingeben"?
Hier der Code:
Code: Alles auswählen
procedure TForm1.BCalcClick(Sender: TObject);
var
rRad, rOb, rVol :real;
const
cPi = 3.14;
begin
if [b](x)[/b] then
begin
rRad :=StrtoFloat(EInput.text);
rOb :=4*cPi*rRad*rRad;
rVol :=4/3*cPi*rRad*rRad*rRad;
EOberflaeche.text :=FloattoStr(rOb);
EVolumen.text :=FloattoStr(rVol);
end
else
begin
Showmessage('Bitte eine Zahl eingeben!')
end;
end;