函数名称 Copy
函数原型
| 1 | function Copy ( Source : string; StartChar, Count : Integer ) : string; |
| 2 | function Copy ( Source : array; StartIndex, Count : Integer ) : array; |
函数功能 根据指定起始位置和数量,返回一个字符串的子串或者一个数组的子数组.
函数备注 第一个参数是一个字符串或一个动态数组，第二个参数是开始截取的索引序号，第三个参数是截取的元素的数量.
举例如下
1 var 2 s : string; 3 begin 4 s := ‘www.hhit.edu.cn‘; 5 s := Copy(s,5,4); // s = ‘hhit‘ 6 ShowMessage(s); 7 end;
1 var 2 intArray, intArray2: array of Integer; 3 I: Integer; 4 begin 5 SetLength(intArray, 7); 6 for I := Low(intArray) to High(intArray) do 7 begin 8 intArray[I] := I; 9 end; 10 11 intArray2 := Copy(intArray, 3, 3); // intArray2 包含 3 ，4，5 三个元素 12 13 for I in intArray2 do 14 begin 15 ShowMessage(IntToStr(I)); 16 end; 17 end;
原文：http://www.cnblogs.com/chinacodegear/p/3623331.html