[patch_done] CheckPostgreSQLError (add support unicode)
Posted: 30.11.2008, 19:27
Is
Should be
Code: Select all
ErrorMessage := Trim(StrPas(PlainDriver.GetErrorMessage(Handle)))
Code: Select all
{$IFDEF ZEOS_FULL_UNICODE}
ErrorMessage := Trim(UTF8ToUnicodeString(StrPas(PlainDriver.GetErrorMessage(Handle))))
{$ELSE}
ErrorMessage := Trim(StrPas(PlainDriver.GetErrorMessage(Handle)))
{$ENDIF}