Delphi6函数大全4.doc

Delphi6函数大全4-SysUtils.pas 首部 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas功能 返回浮点数类型以指定格式字符串Format转换成字符串说明 FormatFloat(,.00, 1234567890) = 1,234,567,890.00参考 function SysUtils.FloatToTextFmt例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));━━━━━━━━━━━━━━━━━━━━━首部 function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas功能 返回货币类型以指定格式字符串Format转换成字符串说明 FormatCurr(,.00, 1234567890) = 1,234,567,890.00参考 function SysUtils.FloatToTextFmt例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));━━━━━━━━━━━━━━━━━━━━━首部 function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas功能 返回浮点数以指定格式字符串Format转换成指针字符串的内存大小说明 ValueType指定无类型参数Value的类型参考 NULL例子///////Begin FloatToTextFmtprocedure TForm1.Button1Click(Sender: TObject);varvBuffer: array[0..255] of Char;E: Extended;beginE := StrToFloatDef(Edit1.Text, 0);SpinEdit1.Value := FloatToTextFmt(vBuffer, E,fvExtended, PChar(Edit2.Text));Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);end;///////End FloatToTextFmt━━━━━━━━━━━━━━━━━━━━━首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas功能 返回字符串S转换成浮点数说明 字符串非浮点数表达时将引起异常参考 function SysUtils.TextToFloat例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end;━━━━━━━━━━━━━━━━━━━━━首部 function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas功能 返回字符串S转换成浮点数说明 字符串非浮点数表达时则返回默认值Default参考 function SysUtils.TextToFloat例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;━━━━━━━━━━━━━━━━━━━━━首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas功能 返回字符串S转换成浮点数Value是否成功说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值参考 function S