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 三個元素 12 
  for I in intArray2 do
  begin
    ShowMessage(IntToStr(I));
  end;
end;