说明：  delphi字符串操作函数一览 删除子字符串过程 [调用格式]：Delete( str, m, n ); [功能]：在字符串str 中删除从第m个字符开始长度为n的子字符串。 [说明]： 如果m大于str 的长度，则不删除任何字符； 如果从第m 个字符开始到str 的末尾不足n个字符，则删除其间的所有字符； 如果n小于等于0，则不删除任何字符。 插入子字符串过程 [调用格式]：Insert( str1, str, k ); [功能]：将字符串str1插入到字符串str 中的第k个字符处。
(function _R(S:string;L:integer):string; var R:string; begin R:=''; if (S<>'') and (L<Length(S)) and (L>0) then begin R:=COPY(S,(Length(S)-L+1),L); end; if L>=Length(S) then R:=S; Result:=R; end; function _CutL(S:string;L:integer):string; var R:string; begin R:=''; if (S<>'') and (L<=Length(S)) and (L>0) then begin R:=_R(S,(Length(S)-L)); end; if L=0 then R:=S; Result:=R; end;)