[patch_done] -> CheckSQLiteError (add support unicode)

[mariuszekpl]

is

Code: Select all

  if ErrorMessage <> nil then
  begin
    Error := Trim(StrPas(ErrorMessage));
    PlainDriver.FreeMem(ErrorMessage);
  end

should be

Code: Select all

  if ErrorMessage <> nil then
  begin
  {$IFDEF ZEOS_FULL_UNICODE}
    Error := trim(UTF8ToUnicodeString(ErrorMessage));
  {$ELSE}
    Error := Trim(StrPas(ErrorMessage));
  {$ENDIF}
    PlainDriver.FreeMem(ErrorMessage);
  end

[mdaems]

SVN Rev. 526.