学步园

举例:

---

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

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

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

System 单元下的公用函数目录

---