var s: string; begin s := 'Delphi'; s := DupeString(s,3); ShowMessage(s); //DelphiDelphiDelphi end;StrUtils 单元下的公用函数目录
StrUtils.DupeString 反复字符串
举例: