Copy 函数

函数原型：Unit System 

function Copy(S: string; Index, Count: Integer): string;

说明：

S : 字符串. Indexd : 从第几位开始拷贝，从1开始. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串

返回值：

结果返回新字符串

注：如果Count大于所给字符长度，那多拷贝Index位置以后所有字符