OverType                                                      StrngTTT



Purpose   To combine two overlapping strings.

Returns   string;

Declaration    OverType(N:byte; StrS,StrT:string):string;

          N is the character position that the StrT (target) will be
          overlayed on the StrS (source).

Uses StrngTTT.

Remarks   If N is actually larger than the length of the source
          string, the source string is extended with spaces ' ' i.e.
          no problem.

          Any characters after the Nth position in StrS will be
          replaced by the characters in StrT.

          If N + length(StrT) is less than the original length of StrS
          then the last part of StrS will remain intact. (Phew!)

Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := OVERTYPE(5, 'BOB AINSBURY', 'TECHNOJOCK'));
               END.


The string TTT is assigned the value "Bob TechnoJock".