FastReport格式函數unicode錯誤

Question

我在Delphi 10.2上使用fastreport 5.4.6，但當顯示使用unicode參數的格式化函數時，fastreport有錯誤。這是錯誤

創建文本=備忘錄[格式（ '％s' 的，[ 'nghìnTY']）nghìnTY

它會顯示 「nghìnT'nghìnTY」

如何修理它。請幫幫我。

編輯 更改功能VariantToVarRec在FastReport中的fs_itools.pas

procedure VariantToVarRec(v: Variant; var ar: TVarRecArray); 
var 
... 
     varOleStr, varString: 
     begin 
//   ar[i].VType := vtString; 
//   New(ar[i].VString); 
//{$IFDEF Delphi12} 
//   ar[i].VString^ := AnsiString(v[i]); 
//{$ELSE} 
//   ar[i].VString^ := v[i]; 
//{$ENDIF} 
      ar[i].VType := vtUnicodeString; 
      ar[i].VString := pointer(UnicodeString(v[i])); 

     end; 
{$IFDEF Delphi12} 
     varUString: 
     begin 
      ar[i].VType := vtUnicodeString; 
      New(ar[i].VUnicodeString); 
      PUnicodeString(ar[i].VUnicodeString)^ := v[i]; 
     end; 
{$ENDIF} 
... 
end; 

變化

後[格式化（ '％s' 的，[ 'MOTnghìnTY']）]

將顯示「mộtnghìntỷ」。我不知道如果我改變功能，會發生什麼（我是德爾菲的新手）

Answer 1

固定。 FR 5.6.2工作正常。從5.6.2 fs_isysrtti.pas：

function FormatV(const Fmt: String; Args: Variant): String; 
var 
    ar: TVarRecArray; 
    sPtrList: TList; 
begin 
    VariantToVarRec(Args, ar, sPtrList); 
    Result := Format(Fmt, ar); 
    ClearVarRec(ar, sPtrList); 
end; 

fs_itools.pas從5.6.2：

procedure VariantToVarRec(v: Variant; var ar: TVarRecArray; var sPtrList: Tlist); 
    procedure ClearVarRec(var ar: TVarRecArray; var sPtrList: TList); 
     ... 
    procedure VariantToVarRec(v: Variant; var ar: TVarRecArray; var sPtrList: TList); 
    var 
     i: Integer; 
    {$IFDEF Delphi12} 
     pWStr: PWideString; 
    {$ELSE} 
     pAStr: PAnsiString; 
    {$ENDIF} 
    begin 
     SetLength(ar, VarArrayHighBound(v, 1) + 1); 

     sPtrList := TList.Create; 
     for i := 0 to VarArrayHighBound(v, 1) do 
    ... 
        varString: 
        begin 
         ar[i].VType := vtString; 
         New(ar[i].VString); 
      {$IFDEF Delphi12} 
         ar[i].VString^ := AnsiString(v[i]); 
      {$ELSE} 
         ar[i].VString^ := v[i]; 
      {$ENDIF} 
        end; 
        varOleStr: 
        begin 
      {$IFDEF Delphi12} 
         ar[i].VType := vtWideString; 
         New(pWStr); 
         sPtrList.Add(pWStr); 
         pWStr^ := WideString(v[i]); 
         ar[i].VWideString := PWideString(pWStr^); 
      {$ELSE} 
         ar[i].VType := vtAnsiString; 
         //New(ar[i].VAnsiString); 
         New(pAStr); 
         sPtrList.Add(pAStr); 
         pAStr^ := AnsiString(v[i]); 
         ar[i].VAnsiString := PAnsiString(pAStr^); 
      {$ENDIF} 
        end; 
      {$IFDEF Delphi12} 
        varUString: 
        begin 
         ar[i].VType := vtUnicodeString; 
         New(ar[i].VUnicodeString); 
         PUnicodeString(ar[i].VUnicodeString)^ := v[i]; 
        end; 
      {$ENDIF} 
        varVariant: 
        begin 
         ar[i].VType := vtVariant; 
         New(ar[i].VVariant); 
         ar[i].VVariant^ := v[i]; 
        end; 
       end; 
    ... 

procedure ClearVarRec(var ar: TVarRecArray; var sPtrList: TList); 
var 
    i: Integer; 
begin 
    for i := 0 to Length(ar) - 1 do 
    if ar[i].VType in [vtExtended, vtString, vtVariant {$IFDEF Delphi6}, vtInt64 {$ENDIF}] then 
     Dispose(ar[i].VExtended); 
    for i := 0 to sPtrList.Count - 1 do 
    Dispose(sPtrList[i]); 
    sPtrList.Free; 
    Finalize(ar); 
end;