随笔 - 2146  文章 - 97 评论 - 11774 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  万一  阅读(6645)  评论(8编辑  收藏