Zeoslib Portal

Posted: **27.07.2013, 18:54**

in ZDbcSqLiteUtils.pas

line 259

 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}

Posted: **27.07.2013, 19:19**

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. ):

Zeoslib Portal

Error in 7.0.4

Error in 7.0.4