procedure ExtractHeaderFields(Separators,_WhiteSpace: TSysCharSet; Content: PChar;
  Strings: TStrings; Decode: Boolean; StripQuotes: Boolean = False);
{$ENDIF NEXTGEN}
var
  Head,Tail: PChar;
  EOS,InQuote,LeadQuote: Boolean;
  QuoteChar: Char;
  ExtractedField: string;
{$IFNDEF NEXTGEN}
  WhiteSpaceWithCRLF: TSysCharSet;
  SeparatorsWithCRLF: TSysCharSet;
{$ENDIF !NEXTGEN}

  function DoStripQuotes(const S: string): string;
  var
    I: Integer;
    InStripQuote: Boolean;
    StripQuoteChar: Char;
  begin
    Result := S;
    InStripQuote := False;
    StripQuoteChar := #0;
    if StripQuotes then
    begin
      for I := Result.Length - 1 downto 0 do
        if Result.Chars[I].IsInArray(['''','"']) then
          if InStripQuote and (StripQuoteChar = Result.Chars[I]) then
          begin
            Result.Remove(I,1);
            InStripQuote := False;
          end
          else if not InStripQuote then
          begin
            StripQuoteChar := Result.Chars[I];
            InStripQuote := True;
            Result.Remove(I,1);
          end
    end;
  end;

当我使用TPageProducer时,我看到这个被调用,我可以看到我的好源代码字符串进入上面的ExtractHeaderFields例程,然后进入’DoStripQuotes’函数.进入DoStripQuotes并观察’Result’表明它不会改变,即使调用Result.Remove(剥离引号)也是如此.当我将这个’DoStripQuotes’例程带到一个简单的测试应用程序时,它不会编译,告诉我’Result.anything’是不允许的.我假设那个结果,虽然它被定义为’string’,但必须是Web.HTTPProd上下文中的另一种类型的字符串.

所以我想到这可能与我听说过的“不变的字符串”有关.我读到了这个SO question,虽然我得到了要点,但我可以提供更实用的建议.

具体来说,我想回答以下问题：

>如果允许使用符号Result.Length,那么’string’是什么类型的’结果’？
>有没有一种方法可以告诉编译器为单元使用’XE3’兼容性？ (这可能让我看到问题的起源).我试过{$ZEROBASEDSTRINGS ON} / OFF但这似乎导致更多的混乱,我不知道我在做什么！

谢谢你的帮助.

稍后编辑：如下面接受的答案中所述,这是VCL单元Web.HTTPApp.pas中的一个错误,它应该在2645行的两个地方读取“Result：= Result.Remove(I,1)”而不是“结果”.删除(1,1)”