Delphi6函数大全

功能按指定方式格式化一个数组常量的多字节字符形式返回
说明<NULL>
参考function SysUtils.WideFormatBuf
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
功能返回浮点数Value转换成货币数
说明如果浮点数Value超出范围则将触发异常
参考const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
例子Edit1.Text := CurrToStr(FloatToCurr(Now));
━━━━━━━━━━━━━━━━━━━━━
参考proceduer SysUtils.FmtStr
例子Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
━━━━━━━━━━━━━━━━━━━━━
首部procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas
end;
///////End FloatToStrF
说明当浮点数大等于1E15将采用科学记数法
参考function SysUtils.FloatToText
例子Edit1.Text := FloatToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部function CurrToStr(Value: Currency): string; $[SysUtils.pas
Format('x=%p', [nil]); //'x=00000000' //指针
Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法
Format('x=%%', []); //'x=%' //得到"%"
S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串
功能返回按指定方式格式化一个数组常量的字符指针形式
说明如果Buffer和Format其中只要有一个为nil则返回nil
参考function SysUtils.FormatBuf
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
Delphi6
【时间:2007-11-7 |人气:23 |收藏本文】【字体：大中小】
首部procedure StrDispose(Str: PChar); $[SysUtils.pas
功能释放指针字符串Str内存资源
说明如果Str为nil则不作任何处理;并且释放空间大小信息
参考function System.Dec;function System.SizeOf;function System.FreeMem
功能返回按指定方式格式化一个数组常量的多字节字符形式
说明<NULL>
参考procedure SysUtils.WideFmtStr
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas
功能按指定方式格式化一个数组常量的字符形式返回
说明<参见Format>
参考function SysUtils.FormatBuf;function System.Length;function System.SetLength
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffFixed, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明<NULL>
参考<NULL>
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function FloatToStr(Value: Extended): string; $[SysUtils.pas
功能返回浮点数Value转换成字符串
例子<参见StrNew>
━━━━━━━━━━━━━━━━━━━━━
首部function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas
功能返回按指定方式格式化一个数组常量的字符形式
说明这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解
"%" [索引":"] ["-"] [宽度] ["."摘要]类型
Format('x=%d', [12]); //'x=12' //最普通
Format('x=%3d', [12]); //'x= 12' //指定宽度
Format('x=%f', [12.0]); //'x=12.00' //浮点数
Format('x=%.3f', [12.0]); //'x=12.000' //指定小数
ffNumber, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
首部function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas
度;Digits指定小数宽度
参考function SysUtils.FloatToText
例子
///////Begin FloatToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffExponent, SpinEdit1.Value, SpinEdit2.Value);
Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置
Format('x=%.5d', [12]); //'x=00012' //前面补充0
Format('x=%.5x', [12]); //'x=0000C' //十六进制
Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明<NULL>
参考<NULL>
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas
功能返回货币数Value转换成字符串
说明货币数只保留四位小数
参考function SysUtils.FloatToText
例子Edit1.Text := CurrToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
功能返回按指定方式和长度格式化一个数组常量的字符指针形式
说明StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1';
参考function SysUtils.FormatBuf
例子<参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas