[일반/컴포넌트] StrToFloatDef

function StrToFloatDef(const S: string; Default: Extended): Extended;
var
  Value: Extended;
begin
  if TextToFloat(PChar(S), Value, fvExtended) then Result := Value
  else Result := Default;
end;