StrToIntDef の浮動小数点数版。
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;
Return index page