delphi 字符长度不够，使用指定字符进行填充补齐函数

uses StrUtils;

//str: 原字符

//key: 插入字符

//left：左补齐

function FilledwithStr(str: string; key: string; len: integer; left: boolean): string;
var
  tmp: string;
begin
  tmp := DupeString(key, len);
  //tmp+str
  if left then  result := rightstr((tmp + str), len)
  else result := leftstr((str+tmp), len);  //str+tmp
end;
函数功能：字符长度不够，使用指定字符进行填充补齐，返回结果
参数说明：

str: 原字符

key: 填充字符

left：左补齐