Delphi 格式化输出 - Format 函数和 FmtStr 过程

中国星 發表於 2019-12-2 15:26:00

Delphi 格式化输出 - Format 函数和 FmtStr 过程

Delphi 格式化函数 Format 函数和 FmtStr 过程
单元：SysUtils
一、Format 函数
功能：返回按指定方式格式化一个数组常量的字符形式
函数原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">function Format(const Format: string; const Args: array of const): string;
begin
FmtStr(Result, Format, Args);
end;

function Format(const Format: string; const Args: array of const;
const FormatSettings: TFormatSettings): string;
begin
FmtStr(Result, Format, Args, FormatSettings);
end;</pre>
</div>
Format参数是一个格式字符串，用于格式化Args里面的值的。Args是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。 如以下例子：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('my name is %6s',['wind']);　　//返回my name is wind</pre>
</div>
Format里面可以写普通的字符串，比如'my name is',但有些格式指令字符具有特殊意义，比如"%6s"格式指令具有以下的形式：
<ul>
<li>"%" ["-"] ["." prec] type</li>
<li>"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型</li>
</ul>
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来格式化type类型的指令字符，可选。 
1、type类型的表示字符：
<ul>
<li>  d 十制数，表示一个整型值</li>
<li>  u 和d一样是整型值，但它是无符号的，如果它对应的值是负数，则返回一个2的32次方减去这个绝对值的数,如：
<ul>
<li>Format('this is %u',[－2]);    //返回：this is 4294967294</li>

</ul>

</li>
<li>  f 对应浮点数</li>
<li>  e 科学表示法，对应整型数和浮点数，比如：
<ul>
<li>Format('this is %e',[-2.22]);　　　//返回：this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小</li>

</ul>

</li>
<li>  g 这个只能对应浮点型，且它会将值中多余的数去掉,比如
<ul>
<li>Format('this is %g',);　　//返回：this is 2.2</li>

</ul>

</li>
<li>  n 只能对应浮点型，将值转化为号码的形式。
<ul>
<li>Format('this is %n',);　　//返回的是this is 4,552.22</li>
<li> 注意有两点，一、只表示到小数后两位,  二、即使小数没有被截断，它也不会像整数部分一样有逗号来分开</li>

</ul>

</li>
<li>  m 钱币类型，但关于货币类型有更好的格式化方法，这里只是简单的格式化,另外它只对应于浮点值
<ul>
<li>Format('this is %m',);　　//返回：this is ￥9,552.21</li>

</ul>

</li>
<li>  p 对应于指针类型，返回的值是指针的地址，以十六进制的形式来表示
<ul>
<li> 例如：</li>
<li>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">var
X:integer;
p:^integer;
begin
X:=99;
p:=@X;
Edit1.Text:=Format('this is %p',); //Edit1返回内容：this is 0012F548
end;</pre>
</div>
</li>
</ul>
</li>
</ul>
<ul>
<li>  s  对应字符串类型</li>
<li>  x  必须是一个整形值，以十六进制的形式返回,例如：
<ul>
<li> Edit1.Text:=Format('this is %X',);　　//返回：this is F</li>
</ul>
</li>
</ul>
 
2、格式化Type的指令：    
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %d %d',); //this is 12 13 第一个%d的索引是0，第二个%d是1，所以字符显示的时候是这样 this is 12 13
Format('this is %1:d %0:d',); //返回的字符串就变成this is 13 12
Format('%d %d %d %0:d %d', ) //返回1 2 3 1 2。
Format('%d %d %d %0:d %3:d', ) //返回的是1 2 3 1 4</pre>
</div>
 注意：索引不能超出Args中的个数，否则，会引起异常，例如：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %2:d %0:d',); //由于Args中只有12 13 两个数，所以Index只能是0或1，这里为2就错了指定将被格式化的值占的宽度</pre>
</div>
如果Width的值小于参数的长度，则没有效果，例如：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %4d',); //输出：this is 12
Format('this is %1d',); //输出：this is 12</pre>
</div>
 
3、["-"]  指定参数向左齐，和合在一起最可以看到效果：   Format('this is %-4d,yes',);   //输出是：this is 12 ,yes
 
4、["." prec] 指定精度，
  4.1 对于浮点数，效果最佳：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %.2f',); //输出 this is 1.12 （保留小数点后2位）
Format('this is %.7f',); //输出了 this is 1.1234000　（保留小数点后7位，不足填充0）</pre>
</div>
  4.2 对于整型数。如果prec比如整型的位数小，则没有效果反之比整形值的位数大，则会在整型值的前面以 0 补之
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %.7d',); //输出是：this is 0001234 </pre>
</div>
  4.3 对于字符型，刚好和整型值相反，如果prec比字符串型的长度大则没有效果，反之比字符串型的长度小，则会截断尾部的字符
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('this is %.2s',['1234']); //输出是 this is 12 {保留两位字符}
Format('this is %e',[-2.22]); //返回的是：this is -2.22000000000000E+000,
Format('this is %.2e',[-2.22]); //去掉多余的0</pre>
</div>
5、其他示例：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Format('x=%d', ); //'x=12' //最普通
Format('x=%3d', ); //'x= 12' //指定宽度
Format('x=%f', ); //'x=12.00' //浮点数
Format('x=%.3f', ); //'x=12.000' //指定小数
Format('x=%8.2f') // 'x= 12.00' ;
Format('x=%.*f', ); //'x=12.00000' //动态配置
Format('x=%.5d', ); //'x=00012' //前面补充0
Format('x=%.5x', ); //'x=0000C' //十六进制
Format('x=%1:d%0:d', ); //'x=1312' //使用索引
Format('x=%p', ); //'x=00000000' //指针
Format('x=%1.1e', ); //'x=1.2E+001' //科学记数法
Format('x=%%', []); //'x=%' //得到"%"
S := Format('%s%d', ); //S := S + StrToInt(I); //连接字符串
</pre>
</div>
 
二、FmtStr 过程 - 第一个参数返回格式化的结果
原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">procedure FmtStr(var Result: string; const Format: string;
const Args: array of const);
var
Len, BufLen: Integer;
Buffer: array of Char;
begin
BufLen := SizeOf(Buffer);
if Length(Format) < (sizeof(Buffer) - (sizeof(Buffer) div 4)) then
Len := FormatBuf(Buffer, sizeof(Buffer) - 1, Pointer(Format)^, Length(Format), Args)
else
begin
BufLen := Length(Format);
Len := BufLen;
end;
if Len >= BufLen - 1 then
begin
while Len >= BufLen - 1 do
begin
 Inc(BufLen, BufLen);
 Result := ''; // prevent copying of existing data, for speed
 SetLength(Result, BufLen);
 Len := FormatBuf(Pointer(Result)^, BufLen - 1, Pointer(Format)^,
 Length(Format), Args);
end;
SetLength(Result, Len);
end
else
SetString(Result, Buffer, Len);
end;

procedure FmtStr(var Result: string; const Format: string;
const Args: array of const; const FormatSettings: TFormatSettings);
var
Len, BufLen: Integer;
Buffer: array of Char;
begin
BufLen := SizeOf(Buffer);
if Length(Format) < (sizeof(Buffer) - (sizeof(Buffer) div 4)) then
Len := FormatBuf(Buffer, sizeof(Buffer) - 1, Pointer(Format)^, Length(Format),
 Args, FormatSettings)
else
begin
BufLen := Length(Format);
Len := BufLen;
end;
if Len >= BufLen - 1 then
begin
while Len >= BufLen - 1 do
begin
 Inc(BufLen, BufLen);
 Result := ''; // prevent copying of existing data, for speed
 SetLength(Result, BufLen);
 Len := FormatBuf(Pointer(Result)^, BufLen - 1, Pointer(Format)^,
 Length(Format), Args, FormatSettings);
end;
SetLength(Result, Len);
end
else
SetString(Result, Buffer, Len);
end;</pre>
</div>
格式指令形式："%" ["-"] ["." prec] type   以上 Format 函数都有说明，且Format 函数都是调用FmtStr 实现
FmtStr 示例：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">FmtStr(str,'this is %d %d',); //str = this is 12 13
Format('this is %d %d',); //this is 12 13
ShowMessage( Format('最大整数: %d', ) ); {最大整数: 2147483647}
ShowMessageFmt('最大整数: %d', );
</pre>
</div>
 
 
 
 
 创建时间：2019.12.02　　更新时间：2020.08.18、2020.11.06、2022.08.09
 来源：https://www.cnblogs.com/guorongtao/p/11970803.html

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/11970803.html

頁: [1]

琼殿技术论坛's Archiver

Delphi 格式化输出 - Format 函数 和 FmtStr 过程

Delphi 格式化输出 - Format 函数和 FmtStr 过程