1.Format 根据指定所需要的格式,格式化字符串。
原型:
function Format(
const Format:
string;
const Args:
array
of
const):
string;
例子:
var
s: string;
begin
//指令类型 type
s := Format( '最大整数是: %d; 最小整数是: %d', [MaxInt,Low(Integer)]);
//返回: 最大整数是: 2147483647; 最小整数是: -2147483648
{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 }
s := Format( '最大的无负号整数是: %u', [High(Cardinal)]);
//返回: 最大的无负号整数是: 4294967295
{ %u表示一个无负号整数 }
s := Format( '输入-2的结果是: %u', [-2]);
//返回: 输入-2的结果是: 4294967294
{ 如果对应 %u 的是个负数, 则返回: 无负号整数最大值 - 这个数的绝对值 + 1 }
s := Format( '%s! %s', ['你好','我是万一']);
//返回: 你好! 我是万一
{ %s 表示字符串 }
s := Format( '%f', [Pi]);
//返回: Pi的值是: 3.14
{ %f 表示浮点数, 保留或凑够两位小数点 }
s := Format( '%g', [01.2345000]);
//返回: 1.2345
{ %g 表示浮点数, 会去掉多余的 0 }
s := Format( '%n', [12345.6789]);
//返回: 12,345.68
{ %n 表示浮点数, 整数部分使用千位分隔符, 保留两位小数点 }
s := Format( '%m', [12345.6789]);
//返回: ¥12,345.68
{ %m 表示浮点数, 加货币记号, 转换结果取决于系统的地域设置 }
s := Format( '%e', [12345.6789]);
//返回: 1.23456789000000E+004
{ %e 用科学计数法表示整数或浮点数 }
s := Format( '%p', [@Self]);
//返回: 0012F5BC
{ %p 表示指针地址, 用十六进制表示 }
s := Format( '%x', [255]);
//返回: FF
{ %x 用十六进制表示一个整数 }
//Index
s := Format( '%s%s', ['万','一']);
s := Format( '%0:s%1:s', ['万','一']);
//返回: 万一
{ 上面两行的结果是一样的, 0: 对应数组中的第一个值; 1: 对应数组中的第二个值 }
s := Format( '%1:s%0:s', ['万','一']);
//返回: 一万
{ 翻转了一下顺序 }
s := Format( '%1:s%0:s%0:s%1:s', ['万','一']);
//返回: 一万万一
{ 反复使用 }
//Width 与对齐方式
s := Format( '%d,%8d,%d', [1,2,3]);
//返回: 1, 2,3
{ 给第二个值指定了8个字符的宽度, 缺少的用空格填充; 如果指定少了则无效 }
s := Format( '%d,%-8d,%d', [1,2,3]);
//返回: 1,2 ,3
{ - 表示左对齐, 默认是右对齐的; - 符号在 Width 前面、Index 后面 }
//指定精度 prec
s := Format( '%.9f', [Pi]);
//返回: 3.141592654
{ 指定小数点的位数, 取值范围1-9, 输入0也当1用 }
s := Format( '%.5d', [12]);
//返回: 00012
{ 这是给整数指定位数, 如果小了则无效 }
s := Format( '%.3s', ['Format']);
//返回: For
{ 给字符串指定位数, 如果大了则无效 }
s := Format( '%.3e', [123.456]);
//返回: 1.23E+002
{ 给科学计数法指定位数 }
//指令顺序:
{ "%" [index ":"] ["-"] [width] ["." prec] type }
ShowMessage(s);
end;
s: string;
begin
//指令类型 type
s := Format( '最大整数是: %d; 最小整数是: %d', [MaxInt,Low(Integer)]);
//返回: 最大整数是: 2147483647; 最小整数是: -2147483648
{ 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 }
s := Format( '最大的无负号整数是: %u', [High(Cardinal)]);
//返回: 最大的无负号整数是: 4294967295
{ %u表示一个无负号整数 }
s := Format( '输入-2的结果是: %u', [-2]);
//返回: 输入-2的结果是: 4294967294
{ 如果对应 %u 的是个负数, 则返回: 无负号整数最大值 - 这个数的绝对值 + 1 }
s := Format( '%s! %s', ['你好','我是万一']);
//返回: 你好! 我是万一
{ %s 表示字符串 }
s := Format( '%f', [Pi]);
//返回: Pi的值是: 3.14
{ %f 表示浮点数, 保留或凑够两位小数点 }
s := Format( '%g', [01.2345000]);
//返回: 1.2345
{ %g 表示浮点数, 会去掉多余的 0 }
s := Format( '%n', [12345.6789]);
//返回: 12,345.68
{ %n 表示浮点数, 整数部分使用千位分隔符, 保留两位小数点 }
s := Format( '%m', [12345.6789]);
//返回: ¥12,345.68
{ %m 表示浮点数, 加货币记号, 转换结果取决于系统的地域设置 }
s := Format( '%e', [12345.6789]);
//返回: 1.23456789000000E+004
{ %e 用科学计数法表示整数或浮点数 }
s := Format( '%p', [@Self]);
//返回: 0012F5BC
{ %p 表示指针地址, 用十六进制表示 }
s := Format( '%x', [255]);
//返回: FF
{ %x 用十六进制表示一个整数 }
//Index
s := Format( '%s%s', ['万','一']);
s := Format( '%0:s%1:s', ['万','一']);
//返回: 万一
{ 上面两行的结果是一样的, 0: 对应数组中的第一个值; 1: 对应数组中的第二个值 }
s := Format( '%1:s%0:s', ['万','一']);
//返回: 一万
{ 翻转了一下顺序 }
s := Format( '%1:s%0:s%0:s%1:s', ['万','一']);
//返回: 一万万一
{ 反复使用 }
//Width 与对齐方式
s := Format( '%d,%8d,%d', [1,2,3]);
//返回: 1, 2,3
{ 给第二个值指定了8个字符的宽度, 缺少的用空格填充; 如果指定少了则无效 }
s := Format( '%d,%-8d,%d', [1,2,3]);
//返回: 1,2 ,3
{ - 表示左对齐, 默认是右对齐的; - 符号在 Width 前面、Index 后面 }
//指定精度 prec
s := Format( '%.9f', [Pi]);
//返回: 3.141592654
{ 指定小数点的位数, 取值范围1-9, 输入0也当1用 }
s := Format( '%.5d', [12]);
//返回: 00012
{ 这是给整数指定位数, 如果小了则无效 }
s := Format( '%.3s', ['Format']);
//返回: For
{ 给字符串指定位数, 如果大了则无效 }
s := Format( '%.3e', [123.456]);
//返回: 1.23E+002
{ 给科学计数法指定位数 }
//指令顺序:
{ "%" [index ":"] ["-"] [width] ["." prec] type }
ShowMessage(s);
end;
2.FormatDateTime 格式化日期值
原型:
function FormatDateTime(
const Format:
string; DateTime: TDateTime):
string;
例子:
var
s: string;
begin
//FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间
s := FormatDateTime( 'c', Now); {返回: 2007-12-18 23:56:05}
{指令 c 表示用短格式显示日期与时间}
s := FormatDateTime( 'd', Now); {返回: 19}
s := FormatDateTime( 'd', StrToDateTime( '2008-1-1')); {返回: 1}
{d 表示日期}
s := FormatDateTime( 'dd', Now); {返回: 19}
s := FormatDateTime( 'dd', StrToDateTime( '2008-1-1')); {返回: 01}
{dd 表示双位日期}
s := FormatDateTime( 'ddd', Now); {返回: 星期三}
s := FormatDateTime( 'dddd', Now); {返回: 星期三}
{ddd 与 dddd 表示星期; 可能对不同的语种会有区别}
s := FormatDateTime( 'ddddd', Now); {返回: 2007-12-19}
{ddddd 五个 d 表示短格式日期}
s := FormatDateTime( 'dddddd', Now); {返回: 2007年12月19日}
{dddddd 六个 d 表示长格式日期}
s := FormatDateTime( 'e', Now); {返回: 7}
{e 表示年, 1位}
s := FormatDateTime( 'ee', Now); {返回: 07}
{ee 表示年, 2位}
s := FormatDateTime( 'eee', Now); {返回: 2007}
s := FormatDateTime( 'eeee', Now); {返回: 2007}
{eee 与 eeee 返回4位数年}
s := FormatDateTime( 'm', Now); {返回: 12}
{m 表示月, 1位}
s := FormatDateTime( 'mm', StrToDateTime( '2008-1-1')); {返回: 01}
{mm 表示月, 2位}
s := FormatDateTime( 'mmm', Now); {返回: 十二月}
s := FormatDateTime( 'mmmm', Now); {返回: 十二月}
{mmm 与 mmmm 表示长格式月}
s := FormatDateTime( 'y', Now); {返回: 07}
s := FormatDateTime( 'yy', Now); {返回: 07}
s := FormatDateTime( 'yyy', Now); {返回: 2007}
s := FormatDateTime( 'yyyy', Now); {返回: 2007}
{y yy yyy yyyy 表示年; 和 e 略有不同}
s := FormatDateTime( 't', Now); {返回: 0:21}
s := FormatDateTime( 'tt', Now); {返回: 0:22:13}
{t tt 表示时间}
s := FormatDateTime( 'ampm', Now); {返回: 上午}
s := FormatDateTime( 'tampm', Now); {返回: 0:24 上午}
{ampm 表示上午、下午}
s := FormatDateTime( 'h', StrToDateTime( '2007-12-30 9:58:06')); {返回: 9}
s := FormatDateTime( 'hh', StrToDateTime( '2007-12-30 9:58:06')); {返回: 09}
{h hh 表示时}
s := FormatDateTime( 'n', StrToDateTime( '2007-12-30 9:58:06')); {返回: 58}
s := FormatDateTime( 'nn', StrToDateTime( '2007-12-30 9:58:06')); {返回: 58}
{n nn 表示分}
s := FormatDateTime( 's', StrToDateTime( '2007-12-30 9:58:06')); {返回: 6}
s := FormatDateTime( 'ss', StrToDateTime( '2007-12-30 9:58:06')); {返回: 06}
{s ss 表示秒}
s := FormatDateTime( 'z', Now); {返回: 24}
s := FormatDateTime( 'zz', Now); {返回: 524}
s := FormatDateTime( 'zzz', Now); {返回: 524}
{z zz zzz 表示毫秒}
s := FormatDateTime( 'yy/mm/dd', Now); {返回: 07/12/19}
s := FormatDateTime( 'yy/mm/dd', Now); {返回: 07-12-19}
s := FormatDateTime( 'yy-mm-dd', Now); {返回: 07-12-19}
s := FormatDateTime( 'yy*mm*dd', Now); {返回: 07*12*19}
{使用分隔符, - 是默认的, / 是与 - 等效的, 假如我非要用 / 显示呢?}
s := FormatDateTime( 'yy"/"mm"/"dd', Now); {返回: 07/12/19}
s := FormatDateTime( '"当前时间是: "yyyy-m-d h:n:s:zz', Now);
{返回: 当前时间是: 2007-12-19 0:47:16:576}
{混入的字符串要包含在双引号中}
ShowMessage(s);
end;
s: string;
begin
//FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间
s := FormatDateTime( 'c', Now); {返回: 2007-12-18 23:56:05}
{指令 c 表示用短格式显示日期与时间}
s := FormatDateTime( 'd', Now); {返回: 19}
s := FormatDateTime( 'd', StrToDateTime( '2008-1-1')); {返回: 1}
{d 表示日期}
s := FormatDateTime( 'dd', Now); {返回: 19}
s := FormatDateTime( 'dd', StrToDateTime( '2008-1-1')); {返回: 01}
{dd 表示双位日期}
s := FormatDateTime( 'ddd', Now); {返回: 星期三}
s := FormatDateTime( 'dddd', Now); {返回: 星期三}
{ddd 与 dddd 表示星期; 可能对不同的语种会有区别}
s := FormatDateTime( 'ddddd', Now); {返回: 2007-12-19}
{ddddd 五个 d 表示短格式日期}
s := FormatDateTime( 'dddddd', Now); {返回: 2007年12月19日}
{dddddd 六个 d 表示长格式日期}
s := FormatDateTime( 'e', Now); {返回: 7}
{e 表示年, 1位}
s := FormatDateTime( 'ee', Now); {返回: 07}
{ee 表示年, 2位}
s := FormatDateTime( 'eee', Now); {返回: 2007}
s := FormatDateTime( 'eeee', Now); {返回: 2007}
{eee 与 eeee 返回4位数年}
s := FormatDateTime( 'm', Now); {返回: 12}
{m 表示月, 1位}
s := FormatDateTime( 'mm', StrToDateTime( '2008-1-1')); {返回: 01}
{mm 表示月, 2位}
s := FormatDateTime( 'mmm', Now); {返回: 十二月}
s := FormatDateTime( 'mmmm', Now); {返回: 十二月}
{mmm 与 mmmm 表示长格式月}
s := FormatDateTime( 'y', Now); {返回: 07}
s := FormatDateTime( 'yy', Now); {返回: 07}
s := FormatDateTime( 'yyy', Now); {返回: 2007}
s := FormatDateTime( 'yyyy', Now); {返回: 2007}
{y yy yyy yyyy 表示年; 和 e 略有不同}
s := FormatDateTime( 't', Now); {返回: 0:21}
s := FormatDateTime( 'tt', Now); {返回: 0:22:13}
{t tt 表示时间}
s := FormatDateTime( 'ampm', Now); {返回: 上午}
s := FormatDateTime( 'tampm', Now); {返回: 0:24 上午}
{ampm 表示上午、下午}
s := FormatDateTime( 'h', StrToDateTime( '2007-12-30 9:58:06')); {返回: 9}
s := FormatDateTime( 'hh', StrToDateTime( '2007-12-30 9:58:06')); {返回: 09}
{h hh 表示时}
s := FormatDateTime( 'n', StrToDateTime( '2007-12-30 9:58:06')); {返回: 58}
s := FormatDateTime( 'nn', StrToDateTime( '2007-12-30 9:58:06')); {返回: 58}
{n nn 表示分}
s := FormatDateTime( 's', StrToDateTime( '2007-12-30 9:58:06')); {返回: 6}
s := FormatDateTime( 'ss', StrToDateTime( '2007-12-30 9:58:06')); {返回: 06}
{s ss 表示秒}
s := FormatDateTime( 'z', Now); {返回: 24}
s := FormatDateTime( 'zz', Now); {返回: 524}
s := FormatDateTime( 'zzz', Now); {返回: 524}
{z zz zzz 表示毫秒}
s := FormatDateTime( 'yy/mm/dd', Now); {返回: 07/12/19}
s := FormatDateTime( 'yy/mm/dd', Now); {返回: 07-12-19}
s := FormatDateTime( 'yy-mm-dd', Now); {返回: 07-12-19}
s := FormatDateTime( 'yy*mm*dd', Now); {返回: 07*12*19}
{使用分隔符, - 是默认的, / 是与 - 等效的, 假如我非要用 / 显示呢?}
s := FormatDateTime( 'yy"/"mm"/"dd', Now); {返回: 07/12/19}
s := FormatDateTime( '"当前时间是: "yyyy-m-d h:n:s:zz', Now);
{返回: 当前时间是: 2007-12-19 0:47:16:576}
{混入的字符串要包含在双引号中}
ShowMessage(s);
end;
3.FormatFloat 格式化浮点数
原型:
function FormatFloat(
const Format:
string; Value: Extended):
string;
例子:
var
s: string;
begin
//FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended
s := FormatFloat( '###.###', 12. 3456);
//返回: 12.346
s := FormatFloat( '000.000', 12. 3456);
//返回: 012.346
s := FormatFloat( '#.###', 12. 3);
//返回: 12.3
s := FormatFloat( '0.000', 12. 3);
//返回: 12.300
s := FormatFloat( '#,#.#', 1234567);
//返回: 1,234,567
s := FormatFloat( '0,0.0', 1234567);
//返回: 1,234,567.0
s := FormatFloat( '0.00E+0', 1234567);
//返回: 1.23E+6
s := FormatFloat( '0.00E+00', 1234567);
//返回: 1.23E+06
//在科学计数法中使用 # 好像不合适?
ShowMessage(s);
end;
s: string;
begin
//FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended
s := FormatFloat( '###.###', 12. 3456);
//返回: 12.346
s := FormatFloat( '000.000', 12. 3456);
//返回: 012.346
s := FormatFloat( '#.###', 12. 3);
//返回: 12.3
s := FormatFloat( '0.000', 12. 3);
//返回: 12.300
s := FormatFloat( '#,#.#', 1234567);
//返回: 1,234,567
s := FormatFloat( '0,0.0', 1234567);
//返回: 1,234,567.0
s := FormatFloat( '0.00E+0', 1234567);
//返回: 1.23E+6
s := FormatFloat( '0.00E+00', 1234567);
//返回: 1.23E+06
//在科学计数法中使用 # 好像不合适?
ShowMessage(s);
end;