字符串函数大全

作者: 来源:网络文章时间:2005-12-13 22:39:05

字符串函数大全(42)       例子
      ///////Begin TryStrToFloat
      procedure TForm1.Button1Click(Sender: TObject);
      var
      E: Extended;
      begin
      CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);
      Edit2.Text := FormatFloat('', E);
      end;
      ///////End TryStrToFloat
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToCurr(const S: string): Currency; $[SysUtils.pas
      功能返回字符串S转换成货币数
      说明字符串非货币数表达时将引起异常
      参考 function SysUtils.TextToFloat
      例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToCurrDef(const S: string; const Default: Currency):
      Currency; $[SysUtils.pas
      功能返回字符串S转换成货币数
      说明字符串非货币数表达时则返回默认值Default
      参考 function SysUtils.TextToFloat
      例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToCurr(const S: string; out Value: Currency): Boolean;
      $[SysUtils.pas
      功能返回字符串S转换成货币数Value是否成功
      说明字符串非货币数表达时返回False并且Value将输出为不确定的值
      参考 function SysUtils.TextToFloat
      例子
      ///////Begin TryStrToCurr
      procedure TForm1.Button1Click(Sender: TObject);

共55页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] 8 :>

字符串函数大全相关文章：

字符串函数大全相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com