格式化文本，动态添加空格

function formatStr(const srcStr: string;Leng:integer): string;
var
  i, iLen: integer;
begin
  //先把原字符串赋值给返回字符串Result
  Result:= srcStr;
  //计算相差多少空格
  iLen:= Leng - Length(srcStr);
  //在返回字符串后，补齐空格
  for i:= 1 to iLen do
  begin
    Result:= Result + ‘ ‘;
  end;
end;

本文出自 “随笔” 博客，请务必保留此出处http://amcto111.blog.51cto.com/351775/1533603