StrToFloatDef

Question

� simples... estou programando em delphi 5, mas sei que existe a fun��o StrToFloatDef em vers�es posteriores, se alguem puder me passar como ela � escrita, muito provavelmente fica dentro do SysUtils assim como a StrToFloat.

[]�s

Kotho · Answer

[code:1:f18e1de8dd]function StrToFloatDef(const S: string;  const Default: Extended): Extended; overload;function StrToFloatDef(const S: string; const Default: Extended;  const FormatSettings: TFormatSettings): Extended; overload;[/code:1:f18e1de8dd][code:1:f18e1de8dd]function StrToFloatDef(const S: string; const Default: Extended): Extended;begin  if not TextToFloat(PChar(S), Result, fvExtended) then    Result := Default;end;function StrToFloatDef(const S: string; const Default: Extended;  const FormatSettings: TFormatSettings): Extended;begin  if not TextToFloat(PChar(S), Result, fvExtended, FormatSettings) then    Result := Default;end;[/code:1:f18e1de8dd]...

F�rum StrToFloatDef #282879