System.Copy - 从字符串或数组中复制
System.Copy - 从字符串或数组中复制
涂孟超 发表于3年前
System.Copy - 从字符串或数组中复制
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

function Copy(
  S: String;      {字符串或动态数组}
  Index: Integer; {起始位置}
  Count: Integer  {Copy 个数}
): String;        {如果参数 S 是动态数组, 这里也应该返回动态数组}

 
 
 
 
 

 

 

  
举例:
//从字符串中提取
var
  ss,s: string;
begin
  ss := 'CodeGear Delphi 2007';
  s := Copy(ss,5,4);
  ShowMessage(s);   {Gear}
end;

 
 
 
 
 

 

 

  
//从静态字符数组中截取字符串 var arr: array[0..25] of Char; s: string; i: Integer; begin {给 arr 装入 26 个大写字母} for i := Low(arr) to High(arr) do arr[i] := Chr(i+65); {提取} s := Copy(arr, 1, 3); ShowMessage(s); {ABC} end;
//从动态数组到动态数组 var arr1,arr2 : array of Integer; i: Integer; begin {设定数组大小} SetLength(arr1, 10); {给数组赋值} for i := Low(arr1) to High(arr1) do arr1[i] := i; {执行 Copy; 注意: 之前没有给 arr2 设置大小, 就是设置了, 在这里也会被重置!} arr2 := Copy(arr1, 0, 3); for i in arr2 do ShowMessage(IntToStr(i)); {会分别显示: 0、1、2} end;
//关于起始位置(仅对字符串, 动态数组另当别论) const ss = 'ABCDEFG'; var s: string; begin s := Copy(ss, 1, 3); ShowMessage(s); {ABC} s := Copy(ss, 0, 3); ShowMessage(s); {ABC} s := Copy(ss, -1, 3); ShowMessage(s); {ABC} s := Copy(ss, -100, 3); ShowMessage(s); {ABC} end;
//关于 Copy 个数 const ss = 'ABCDEFG'; var s: string; begin s := Copy(ss, 2, 6); ShowMessage(s); {BCDEFG} s := Copy(ss, 2, Length(ss)); ShowMessage(s); {BCDEFG} s := Copy(ss, 2, MaxInt); ShowMessage(s); {BCDEFG} end;
System 单元下的公用函数目录

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: