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

爱你没错 发表于 2015-8-9 17:10:42

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

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

爱你没错 发表于 2015-8-9 20:00:29

百度了一下貌似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;

查看完整版本: delphi中有没有字符串用自身按指定的长度来填充生成新的字符串的函数