Error in 7.0.4

[Coldzer0]

in ZDbcSqLiteUtils.pas

line 259

Code: Select all

 Error := String(StrPas(PlainDriver.ErrorString(ErrorCode))); 

in XE4 make some Error

System.SysUtils.pas(11512): Related method: function StrPas(const PAnsiChar): AnsiString;

Fix :

Code: Select all

    {$IFDEF DELPHI12_UP}
      Error := String(System.AnsiStrings.StrPas(PlainDriver.ErrorString(ErrorCode)));
    {$ELSE}
      Error := String(StrPas(PlainDriver.ErrorString(ErrorCode)));
    {$ENDIF}

[EgonHugeist]

Coldzer0,

thanks for the hint. Well 7.0.4 isn't 100% ready for XE4. Propose you download 7.1-Beta from SVN.

The best fix is simply to omit StrPas functions.. They are deprecated since D6. ):