[patch_done] ZDbcSqLiteResultSet -> TZSQLiteResultSet.Ope

[mariuszekpl]

is:

Code: Select all

procedure TZSQLiteResultSet.Open; 
...

    with ColumnInfo do
    begin
      ColumnLabel := StrPas(FieldName^);

Should be:

Code: Select all

procedure TZSQLiteResultSet.Open; 
...

    with ColumnInfo do
    begin
  {$IFDEF ZEOS_FULL_UNICODE}
      ColumnLabel := UTF8ToUnicodeString(StrPas(FieldName^));
  {$ELSE}
      ColumnLabel := StrPas(FieldName^);
  {$ENDIF}

Now you can open table with unicode field:

Code: Select all

procedure TForm2.Button3Click(Sender: TObject);
begin
ZQuery1.SQL.Text:='create table прапрпра2(id integer,daneЙЦЦУ integer);' ;
ZQuery1.ExecSQL;
ZQuery1.SQL.Text:='select * from прапрпра2;' ;
zquery1.Open;

end;

[mdaems]

SVN Rev. 526.