delphi 长度相同的字符串，长度不同的话，前面用空格代替（DupeString）

function SameStr(Str: String; Len: Integer): String;

var

  m:string;

begin

   if Len >= Length(Str) then

   begin

     m := StrUtils.DupeString(' ', len-length(str));

     Result:=m+str;

   end

   else

   Result:=str;

end;

StrUtils.DupeString反复字符串

 

下面是对DupeString和StringOfChar的比较

StringOfChar 是反复 "字符" 成 "字符串" 的函数;

DupeString 是反复 "字符串" 成 "新字符串" 的函数;

StringOfChar 来自 System 单元, 可以直接使用;

DupeString 来自 StrUtils 单元, 使用时需要 uses StrUtils;

如果仅仅是反复 "字符", 当然应该用 StringOfChar , 它是用汇编代码实现的, 速度会稍好一些.

例子

uses StrUtils; {DupeString 来自这个单元}

procedure TForm1.FormCreate(Sender: TObject);
var
str: string;
begin
str := System.StringOfChar('A', 5);
ShowMessage(str);                       {AAAAA}

str := StrUtils.DupeString('A', 5);
ShowMessage(str);                      {AAAAA}

str := StrUtils.DupeString('ABC', 5);
ShowMessage(str);                      {ABCABCABCABCABC}
end;

转载于:https://www.cnblogs.com/gezi888/archive/2010/07/08/1773298.html