Delphi Move - 移动内存块

2010-02-19 11:10

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

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

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