Hier hab ich auch nur Delphi 5, aber man kann doch StrToIntDef auf Float anpassen:
Delphi-Quellcode:
function StrToFloatDef(const S: string; Default: Extended): Extended;
var
E: Integer;
begin
Val(S, Result, E);
if E <> 0 then Result := Default;
end;
Ich möchte fast wetten, dass das Original auch nicht viel anders aussieht.