函数原型：Unit System
function Copy(S: string; Index, Count: Integer): string;
说明：
S : 字符串. Indexd : 从第几位开始拷贝. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串
返回值：
结果返回新字符串
Copy 函数,布布扣,bubuko.com
Copy 函数
原文：http://www.cnblogs.com/lp-blogs/p/3809549.html
