在Delphi中,哪一个字符处理函数可以,将一个字符串,用指定的字符,填充到指定的长度?

解决方案 »

  1.   

    function CopyStr( s:string;n:integer):string;
     //将字符串复制N次接连起来。
    var
      i,j,k:integer;
    begin
      result := '';
      if n<1 then exit;
      k :=length(s);
      SetLength(Result,k*n);
      for i := 0 to n-1 do
        for j := 1 to k do
          result[i*k+j] := s[j] ;
    end;
      

  2.   

    重复10个S
    StringOfChar('S', 10) -> 'SSSSSSSSSS'
      

  3.   

    StringOfChar不能够将一个字符串,用指定的字符,填充到指定的长度
    它只能够将一个字符,用指定的字符填充到指定的长度.
      

  4.   

    首部 function DupeString(const AText: string; ACount: Integer): string;
    功能 返回字符串AText的ACount个复本
    说明 当ACount为0时返回''
    参考 function System.SetLength
    例子 Edit3.Text := DupeString(Edit1.Text, 10);
      

  5.   

    首部 function DupeString(const AText: string; ACount: Integer): string;
    功能 返回字符串AText的ACount个复本
    说明 当ACount为0时返回''
    参考 function System.SetLength
    例子 Edit3.Text := DupeString(Edit1.Text, 10);
    ------------------------------------------------------
    uses StrUtils
      

  6.   

    还是考虑从copy/leftstr/rightstr入手吧
    比如要将'abcd'加到'1234'中的12后面:
    str1:='abcd';
    str2:=copy('1234',1,2)+str1+copy('1234',3,2);
    其中的位置可以用length来控制如果用后两者要uses StrUtils单元
      

  7.   

    procedure FillChar(var X; Count: Integer; Value: Byte);