━━━━━━━━━━━━━━━━━━━━━     
首部     function   DupeString(const   AText:   string;   ACount:   Integer):   string;   $[StrUtils.pas 
功能     返回字符串AText的ACount个复本 
说明     当ACount为0时返回 ' ' 
参考     function   System.SetLength 
例子     Edit3.Text   :=   DupeString(Edit1.Text,   SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━     

//Demo 
//.... 
uses   StrUtils;   //for   Delphi6 
//.... 
DupeString(#32,   1);   //like   Space(1) 
//....

 

posted on 2012-12-25 11:45  幻劫  阅读(219)  评论(0编辑  收藏  举报