随笔 - 2146  文章 - 97 评论 - 11761 trackbacks - 253

procedure Delete(
  var S: String;  {源字符串; 因为是 var 参数, 不可能是个常量}
  Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 }
  Count: Integer  {要删除的字数}
);

举例:
var
  s: string;
begin
  s := 'Delphi 2007';
  Delete(s, 2, 4);
  ShowMessage(s); {Di 2007}
end;

System 单元下的公用函数目录

posted on 2008-03-25 23:03 万一 阅读(...) 评论(...) 编辑 收藏