StrToIntDef と同じくデフォルトを持たせたい場合に
使用します。

function StrToFloatDef(Text: String; Value: Extended): Extended;
begin
  if not TextToFloat(PChar(Text), Result, fvExtended) then
    Result := Value;
end;

                           97/10/20(Mon) 10:17pm  STAR☆CAT(BYJ02333)

Original document by STAR☆CAT       氏 ID:(BYJ02333)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。