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 单元下的公用函数目录
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 单元下的公用函数目录