字符串前补0

 format ('%0.5d', [13]);
    輸出為 00013
   

---

這個方法好！到沒想過還有這一招。

Funtion Get000(eNum,Count:Integer):String;
begin
    Result := format ('%0.*d', [Count,eNum]);
end;


我想给一个字符串前补0后符值给一个字符串变量，语句如下：

Delphi/Pascal code?

1 2	strtmp:=Format('%015.15s',[Trim(edit1.Text)]); showmessage(strtmp);

Format只有整数%d可以前面补0，其它没有用过
可以变通一下嘛，先补空格,再替换为0
var
str:string;
begin
str:=Format('%15s',[Trim(edit1.Text)]);
str:=StringReplace(str,' ','0',[rfReplaceAll]);
ShowMessage(str);



strtmp := StringOfChar('0', 4) + '1'; 
 showmessage(strtmp);//00001

formatFloat('#,#00.00',数字);
#在没有数字时显示为0