程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi格式化輸出函數(1): Format

Delphi格式化輸出函數(1): Format

編輯:Delphi

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved