delphi字符串大全(5)

━━━━━━━━━━━━━━━━━━━━━

首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符形式

说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 \索引 \宽度] [\摘要] 类型 Format('x=%d', [12]); //'x=12' //最普通 Format('x==', [12]); //'x= 12' //指定宽度 Format('x=%f', [12.0]); //'x=12.00' //浮点数

Format('x=%.3f', [12.0]); //'x=12.000' //指定小数

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' //使用索引 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); //连接字符串 参考 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

功能 按指定方式格式化一个数组常量的字符形式返回 说明 <参见Format>

参考 function SysUtils.FormatBuf;function System.Length;function System.SetLength 例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符指针形式 说明 如果Buffer和Format其中只要有一个为nil则返回nil 参考 function SysUtils.FormatBuf 例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[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

功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 说明 参考

例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas

功能 返回按指定方式格式化一个数组常量的多字节字符形式 说明

参考 procedure SysUtils.WideFmtStr 例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas

功能 按指定方式格式化一个数组常量的多字节字符形式返回 说明

参考 function SysUtils.WideFormatBuf 例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas

功能 返回按指定方式格式化一个数组常量到缓冲区Buffer中 说明 参考

例子 <参见Format>

━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas 功能 返回浮点数Value转换成字符串

说明 当浮点数大等于1E15将采用科学记数法 参考 function SysUtils.FloatToText 例子 Edit1.Text := FloatToStr(Now);

━━━━━━━━━━━━━━━━━━━━━

首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas 功能 返回货币数Value转换成字符串 说明 货币数只保留四位小数

参考 function SysUtils.FloatToText 例子 Edit1.Text := CurrToStr(Now);

━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 功能 返回浮点数Value转换成货币数

说明 如果浮点数Value超出范围则将触发异常

参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); ━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas

功能 返回浮点数以指定格式转换成字符串 说明 Precision指定精度;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);

Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value, SpinEdit2.Value);

Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value, SpinEdit2.Value); end;

///////End FloatToStrF

━━━━━━━━━━━━━━━━━━━━━

首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils.pas

功能 返回货币类型以指定格式转换成字符串 说明 Digits指定小数宽度

参考 function SysUtils.FloatToText 例子

///////Begin CurrToStrF

procedure TForm1.Button1Click(Sender: TObject); begin

Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value);

Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value);

Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value);

Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value);

Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value); end;

///////End CurrToStrF

━━━━━━━━━━━━━━━━━━━━━

首部 function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas 功能 返回浮点数以指定格式转换成指针字符串的内存大小 说明 Precision指定精度;Digits指定小数宽度 参考 例子

///////Begin FloatToText

procedure TForm1.Button1Click(Sender: TObject);

var

vBuffer: array[0..255] of Char; E: Extended; begin

E := StrToFloatDef(Edit1.Text, 0);

SpinEdit3.Value := FloatToText(vBuffer, E,

fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); end;

///////End FloatToText(

━━━━━━━━━━━━━━━━━━━━━

首部 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的类型 参考 例子

///////Begin FloatToTextFmt

procedure TForm1.Button1Click(Sender: TObject); var

vBuffer: array[0..255] of Char; E: Extended; begin

E := 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 SysUtils.TextToFloat 例子

///////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); var