var s: string; begin s := 'Delphi'; s := DupeString(s,3); ShowMessage(s); //DelphiDelphiDelphi end;StrUtils 单元下的公用函数目录
举例:
转载于:https://www.cnblogs.com/del/archive/2008/03/31/1131876.html