用wvsprintf() 代替。
var
buf:array[0..100] of char;
str:array[0..20] of char;
begin
strpcopy(str,'2');
wvsprintf(buf,'%020d',str);
caption:=buf;
end;
var
buf:array[0..100] of char;
str:array[0..20] of char;
begin
strpcopy(str,'2');
wvsprintf(buf,'%020d',str);
caption:=buf;
end;
str[0]:=#2;
str[1]:=#0;
str[2]:=#0;
str[3]:=#0;
wvsprintf(buf,'%020d',str);