输入字符串和需要变换到的长度,函数自动补充空格达到规定长度

 输入字符串和需要变换到的长度,函数自动补充空格达到规定长度，这种情况是做数据库软件经常遇到的情况之一，我这里抛砖引玉，给大家提供一种简单的思路而已。

function SetLength(OldStr:string;amount:integer):string;
begin
  if length(trim(OldStr))<amount then
    result := trim(oldstr)+Addspace(amount-length(trim(oldstr)))
  else
    result := copy(oldstr,1,amount);
end;