随笔 - 2146  文章 - 97 评论 - 11759 trackbacks - 253

举例:
var
  Source,Dest: string;
begin
  Source := '123456789';
  Dest   := '---------';

  Move(Source[5], Dest[3], 4);

  ShowMessage(Dest); {--5678---}
end;

System 单元下的公用函数目录

posted on 2008-03-27 23:18 万一 阅读(...) 评论(...) 编辑 收藏