Delphi-Copy 函数

函数名称 Copy

所在单元 System

函数原型 

1	function Copy ( Source : string; StartChar, Count : Integer ) : string;
2	function Copy ( Source : array; StartIndex, Count : Integer ) : array;

函数功能 根据指定起始位置和数量,返回一个字符串的子串或者一个数组的子数组.                          

函数备注 第一个参数是一个字符串或一个动态数组，第二个参数是开始截取的索引序号，第三个参数是截取的元素的数量.

举例如下        

var
   s : string;
begin
   s := 'www.hhit.edu.cn';
   s := Copy(s,5,4); // s = 'hhit'
   ShowMessage(s);
end;

var
  intArray, intArray2: array of Integer;
  I: Integer;
begin
  SetLength(intArray, 7);
  for I := Low(intArray) to High(intArray) do
  begin
    intArray[I] := I;
  end;

  intArray2 := Copy(intArray, 3, 3); // intArray2 包含 3 ，4，5 三个元素

  for I in intArray2 do
  begin
    ShowMessage(IntToStr(I));
  end;
end;