delphi中有没有字符串用自身按指定的长度来填充生成新的字符串的函数

爱你没错

delphi中有没有字符串用自身按指定的长度来填充生成新的字符串的函数.像PB的fill函数.比如我有一个字符串'abc',调用一下函数fill('abc',8)就可以产生一个8个长度的字符串'abcabcab'

爱你没错

百度了一下貌似delphi没有这样的函数,自己写了一个,已经调试通过,共享出来
function TForm1.myFills(strIn:String;intLen:Integer):String;
var
  intL,intFor :Integer;
  strReturn :String;
begin
  for intFor:=1 to intLen do
    begin
      if intFor > Length(strIn) then
        begin
          if (intFor mod Length(strIn)) = 0 then
            intl:= Length(strIn)
          else
            intl:= (intfor mod Length(strIn));
        end
      else
        intL:=intFor;
      strReturn:=strReturn + MidStr(strIn,intL,1);
    end;
  Result:=strReturn;
end;