举例:
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  万一  阅读(7174)  评论(8编辑  收藏  举报