Fix for Unicode bug is here

Anu de Deus

After months of wait, and 3 completely unanswered support tickets, I decided to fix this bug myself, and I'm posting the fix here.
Bug: http://www.fast-report.com/en/forum/index....amp;#entry19941

Unfortunately only users with the Professional license will be able to apply this.
For all the other users (standard license), I suggest putting some pressure on FastReports to apply this in the next versions.

FREE FOR USE, USE AT YOUR OWN RISK. Enjoy

fs_interpreter.pas

procedure TfsVariable.SetValue(const Value: Variant);
begin
  if not FIsReadOnly then
    case FTyp of
      fvtInt: FValue := VarAsType(Value, varInteger);
      fvtBool: FValue := VarAsType(Value, varBoolean);
      fvtFloat: FValue := VarAsType(Value, varDouble);
      fvtString:
{$IFDEF Delphi12}
      begin
          if VarIsType(Value, varUString) then
            FValue := VarAsType(Value, varUString)
          else
            FValue := VarAsType(Value, varString);
      end
{$ELSE}
      FValue := VarAsType(Value, varString);
{$ENDIF}
    else
      FValue := Value;
    end;
end;

Anu de Deus

I just realised that maybe fs_iinterpreter.pas might be available to Standard users as well, but I can't be sure as I don't intend to revert to that version anymore.
Those willing to try it, see if you can change fs_iinterpreter.pas, recompile and replace the existing dcu in the \LibD14 folder (or equivalent)