[patch_done] TZPostgreSQLResultSet.Open;

[mariuszekpl]

Is

Code: Select all

procedure TZPostgreSQLResultSet.Open;
...
      ColumnLabel := StrPas(FPlainDriver.GetFieldName(FQueryHandle, I));

Should be

Code: Select all

procedure TZPostgreSQLResultSet.Open;
...
    {$IFDEF ZEOS_FULL_UNICODE}
      ColumnLabel := UTF8ToUnicodeString(StrPas(FPlainDriver.GetFieldName(FQueryHandle, I)));
    {$ELSE}
      ColumnLabel := StrPas(FPlainDriver.GetFieldName(FQueryHandle, I));
    {$ENDIF}

In all databases with suport utf8 we can add UTF8ToUnicodeString function to decode Unicode field name

[mdaems]

SVN Rev. 533