Hallo black_,
ersetze Deine Zuweisung StrToFloat(txt) durch eine Funktion:
Code:
function Str2Float(wert : string) : double;
begin
try
Result := StrToFloat(wert);
except
Result := 0;
end;
end;
//Nutzung
....
u := Str2Float(Edit20.text);
o := Str2Float(Edit40.text);
Nicht getestet, sollte aber in etwa so funktionieren.
mfg
eddy