Hier der CODE
Habe es jedoch mit TryStrToFloat gemacht...sollte ja aber trotzdem gehen..
Also ich will herausfiltern wenn ein Buchstabe eingegeben wurde...das da net gerechnet wird...
Delphi-Quellcode:
procedure Tmain.cmdBerechnenClick(Sender: TObject);
var F,A,p:Real;
begin
F:=TryStrToFloat(txtF.Text);
A:=TryStrToFloat(txtA.Text);
If A=0 Then
//Ausgabe das Falsche Werte eingegeben wurden
txtp.text:='Falsche Werte'
Else
begin
//Weiterrechnen
p:=F/A;
txtp.Text:=FloatToStr(p);
end;
end;