********一个关于格式化自负串的小问题****

defaultlength := 10;
if length(tmpstr) < defaultlength then
begin
  i :=defaultlength - length(tmpstr);
  for j := 1 to i do
  begin
    tmpstr := tmpstr + ' ';
  end;
end;