Format格式化

Question

format函数可否做如此格式话把一个数字字符串格式化为8位，数字左边为0如 数字字符串 ： ‘1234’
   格式化以后为: ‘00001234’Format('%?????',['1234'])?

Answer 1

if length(strin)<8 then
   strin:=copy('00000000', 1, 8-length(strin))+strin;

Answer 2

delphi 6 提供 rightstr()函数 
uses StrUtils ; 单元 rightstr('00000000'+'1234',8) 结果= '00001234'

Answer 3

看看這個自寫的函數:
//其中Len1為格式化長度,str為格式化字串,strkey為補充字符串
如:你上述需求可寫為:
  gettext(8,'12345','A');返回的就是'1234AAA'.
function gettext(len1:integer;str,strkey:string):string;
var i:integer;
    str1:string;
begin
 str1:=str;
 while length(str1)<len1 do
  begin
   application.ProcessMessages;
   str1:=str1+strkey;
  end;
result:=str1;
end;