[patch_done] ZDbcSqLiteResultSet -> TZSQLiteResultSet.Ope
Posted: 25.11.2008, 12:58
is:
Should be:
Now you can open table with unicode field:
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;