字符串函数大全(43) var C: Currency; begin CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); Edit2.Text := FormatCurr('', C); end; ///////End TryStrToCurr ━━━━━━━━━━━━━━━━━━━━━ 首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas 功能 返回将指针字符串Buffer转换成无类型变量Value 说明 ValueType指定无类型参数Value的类型 参考 <NULL> 例子 ///////Begin TextToFloat procedure TForm1.Button1Click(Sender: TObject); var E: Extended; begin CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, fvExtended); Edit2.Text := FormatFloat('', E); end; ///////End TextToFloat ━━━━━━━━━━━━━━━━━━━━━ 首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 功能 返回日期DateTime转换成字符串 说明 转换格式由系统变量ShortDateFormat控制 参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 例子 Edit1.Text := DateToStr(Date); ━━━━━━━━━━━━━━━━━━━━━ 首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 功能 返回时间DateTime转换成字符串
