Zeoslib Portal

Code: Select all

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

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