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