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}