anchor.diff:      Inc(i);
     until False;
   end;
  -
  -function SEscapeForPython(const Str: string): string;
  -const
  -  Decode: array[0..3] of TStringReplacePart =
  -    (
  -      (SFrom: '"'; STo: '\"'),
  -      (SFrom: #10; STo: '\n'),
  -      (SFrom: #13; STo: '\r'),
  -      (SFrom: #9; STo: '\t')
  -    );
  -begin
  -  Result:= SReplaceParts(Str, Decode);
  -end;
  +*)
   
   function SStringToPythonString(const Str: string; AndQuote: boolean=true): string;
   var
  
positive.code:       Str: string;
      end;
  function SRegexFindParts(const ARegex, AStr: string; out AParts: TRegexParts): boolean;
  
  function SEscapeForPython(const Str: string): string;
  function SStringToPythonString(const Str: string; AndQuote: boolean=true): string;
  
  procedure SLoadStringsFromFile(cfg: TJsonConfig; const path: string; List: TStrings; MaxItems: integer);
  
negative.code:   ATSynEdit_RegExpr,
    ec_RegExpr;
  
  {
  type
    TStringReplacePart = record
      SFrom, STo: string;
    end;
  }
  
  function STextWholeWordSelection(const S: UnicodeString; OffsetBegin, OffsetEnd: integer;
    const ANonWordChars: UnicodeString): boolean;
  