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,,); // s = 'hhit'
    ShowMessage(s);
 end;

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

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

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