Delphi-Copy 函数

函数名称 Copy

所在单元 System

函数原型 

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;

 

转载于:https://www.cnblogs.com/chinacodegear/p/3623331.html