如何在某字符串后加上适当长度的空格？

Question

有一列字符串，长度不一，我想在其后补充适当长度的空格，使其长度一致。
应用什么函数去处理？

Answer 1

自己写个吧，好象没有。右边补充字符
function RPad(s:string;len:integer;pad_char:char):string;
var
  i:integer;
begin
  result:=s;
  if length(s)>=len then exit;
  for i:=1 to length(s)-len do
    result:=result+pad_char;
end;

Answer 2

s:=s + StringOfChar(' ',ALen-Length(s));

Answer 3

应用StrUtils
s:=LeftString(s + DupeString(' ',20),20);
其中DupeString(' ',20)表示补充20个空格，
LeftString( s,20)表示去的左边20个长度的字符。