function Copy( S: String; {字符串或动态数组} Index: Integer; {起始位置} Count: Integer {Copy 个数} ): String; {如果参数 S 是动态数组, 这里也应该返回动态数组} 1. 2. 3. 4. 5. 举例: //从字符串中提取 var ss,s: string; begin ss := 'CodeGear Delphi 2007'; s := Copy(ss,5,...