anchor.diff:      Integer;
   
   
  +
  +
   /// <summary>
   ///   ǷpvStartͷ
   /// </summary>
  
positive.code: /// <param name="p"> Դ(ַ)ʼλ, ƥɹpvChars״γλ, 򲻻ƶ</param>
  function LeftUntil(var p: PChar; pvChars: TSysCharSet; var vLeftStr: string):
      Integer; overload;
  
  
  /// <summary>
  
negative.code:   l := Length(s);
    SetLength(lvStr, l);
    times := 0;
    {$IFDEF MSWINDOWS}
    for i := 1 to l do
    {$ELSE}
    for i := Low(s) to high(s) do
    {$ENDIF}
    begin
      if not CharInSet(s[i], pvCharSets) then
      begin
  