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;