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;
procedure Delete(
var S: String; {源字符串; 因为是 var 参数, 不可能是个常量}