🚀 go-pugleaf

In article <s2qpaAAJUIc0EwPB@merlyn.demon.co.uk> of Mon, 17 Nov 1997
17:55:21 in comp.lang.pascal.borland, Dr John Stockton
<jrs@merlyn.demon.co.uk> wrote:
>...   I have given a little thought to the Delete routine (for
>string-handling).
> ...

Today's routine is nicer and a bit faster than yesterday's :-

  procedure Remove(var S : string ; Index, Count : Integer) ;
  { JRS's faster replacement for Sys.DELETE }
  var Tmp : integer ;
  begin
    if (Count<=0) or (Index<=0) or (Index>Length(S)) then EXIT ;
    Tmp := Length(S)-Index+1 { Maximum Removable } ;
    if Count>=Tmp then Count := Tmp else
      Move(S[Index+Count], S[Index], Tmp-Count) ;
    Dec(S[0], Count) end {Remove} ;

>The current test program should be in 
>        http://www.merlyn.demon.co.uk/programs/del_timr.pas
>by the time you read this - and may change at any time.

Changed; new code, more tests.
 
-- 
John Stockton, Surrey, UK.    jrs@merlyn.demon.co.uk    Turnpike v1.12    MIME.
  Web URL: http://www.merlyn.demon.co.uk/ - FAQqish topics, acronyms and links.
  Correct 4-line sig separator is as above, a line comprising "-- " (SoRFC1036)
  Before a reply, quote with ">" / "> ", known to good news readers (SoRFC1036)