让FS支持中文变量

修改fs_iparser.pas单元

 

function TfsParser.Ident: String;

begin

  if FSkipSpace then

    SkipSpaces;

{$IFDEF Delphi12}

  if (CharInSet(FText[FPosition], FIdentifierCharset - ['0'..'9']))

    or ((FText[FPosition] >= Char($007F)) and (FText[FPosition] <= Char($FFFF))) then

  begin

    while CharInSet(FText[FPosition], FIdentifierCharset)

      or ((FText[FPosition] >= Char($007F)) and (FText[FPosition] <= Char($FFFF))) do

{$ELSE}

  if (FText[FPosition] in FIdentifierCharset) and not (FText[FPosition] in ['0'..'9'])

       or ((FText[FPosition] >= Char($007F)) and (FText[FPosition] <= Char($FFFF))) then

  begin

    while (FText[FPosition] in FIdentifierCharset)

        or ((FText[FPosition] >= Char($007F)) and (FText[FPosition] <= Char($FFFF))) do

{$ENDIF}

      Inc(FPosition);

    Result := Copy(FText, FLastPosition, FPosition - FLastPosition);

  end

  else

    Result := '';

end;