var
Source,Dest: string;
begin
Source := '123456789';
Dest := '---------';
Move(Source[5], Dest[3], 4);
ShowMessage(Dest); {--5678---}
end;
System 单元下的公用函数目录
举例:
转载于:https://my.oschina.net/hermer/blog/320385