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;