Fehler:
im Projekt1.exe ist eine
Exception der Klasse EInvalidOP aufgetreten.Meldung:'Ungültige Gleitkommaoperation .....
habe auch mal F:=1 gesetzt ohne erfolg ..
Delphi-Quellcode:
var
a,b,c,f,d,g,h :Extended; //oder real
begin
f:=1;
a:= StrToFloat(Edit1.text);
b:= StrToFloat(Edit2.text);
d:= StrToFloat(Edit3.text);
c:=a*b;
f:=b*d;
g:=f-c;
h:=g*100 / f;
Edit4.Text:=FloatToStr(c)+' €';
Edit5.Text:=FloatToStr(f)+' €';
Edit6.Text:=FloatToStr(g)+' €';
Edit7.Text:=FloatToStr(h)+' %';
end;