不可能像你说的这样.
给你贴一个别人写的函数,觉得很不错.
function setlen(TmpStr:string;TmpChr:char;TmpLen:integer;const TmpFlag:integer):string;
begin
case Tmpflag of
0: Result := StringOfChar(TmpChr,TmpLen-Length(TmpStr)) + TmpStr;
1: Result := TmpStr + StringOfChar(TmpChr,TmpLen-Length(TmpStr));
end;
end;
s:=setlen('1','0',4,0);