移動內存塊move

var  Source,Dest: string;begin  Source := '123456789';  Dest   := '---------'; Move(Source[5], Dest[3], 4);  ShowMessage(Dest); {--5678---}end;