delphi 反复和反转字符串

delphi 反复和反转字符串
StrUtils.DupeString - 反复字符串
举例:

var
 s: string;
begin
 s := 'Delphi';
 s := DupeString(s,3);
 ShowMessage(s);  //DelphiDelphiDelphi
end;

StrUtils.ReverseString - 翻转字符串
举例:
var
 ss,s: string;
begin
 ss := 'Delphi';
 s := ReverseString(ss);
 ShowMessage(s);  {ihpleD}
end;