Zeoslib Portal

I add support unicode in TZWordState and TZTokenizer
Now you can add

SetCharacterState('п', 'Г', WordState);
SetWordChars('п', 'Г', True);

I found small BUG in function UnicodeToAnsi. When i use UnicodeToAnsi (with BUG) it result string without unicode chars. Only ???? Is {$IFDEF ZEOS_FULL_UNICODE} {** Converts Unicode strings to Ansi (Delphi 2009 Up) } function UnicodeToAnsi(const UnicodeString: string): AnsiString; begin result := An...

procedure TForm2.Button4Click(Sender: TObject); begin ZConnection1.Database := 'c:\dane-ŁŁŁĘĘĘĘ-ЫФЫФДЛДЛДЛДкенке.db'; ZConnection1.Connected := true; ZQuery1.SQL.Text:='drop table прапрпра3;' ; ZQuery1.ExecSQL; ZQuery1.SQL.Text:='create table прапрпра3(id integer NOT NULL PRIMARY KEY,daneЙЦЦУ varch...

4) function ConvertSQLiteTypeToSQLType return stUnicodeString for stString field

3) Add support unicode for TZSQLiteResultSet TZSQLiteResultSet = class(TZAbstractResultSet) ... ... public {$IFDEF ZEOS_FULL_UNICODE} function GetUnicodeString(ColumnIndex: Integer): WideString; override; {$ENDIF} {$IFDEF ZEOS_FULL_UNICODE} function TZSQLiteResultSet.GetUnicodeString(ColumnIndex: In...

1) Add new class for string field TZStringField = class (TWideStringField) private buf : PByte; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; class procedure CheckTypeSize(Value: Integer); override; function GetAsString: string; override; function GetAsVarian...

When I look in delphi 2009 in db.pas i see: TStringField = class(TField) protected function GetAsString: string; override; public property Value: AnsiString read GetAsAnsiString write SetAsAnsiString; And function GetAsString return GetAsAnsiString In default TStringField i can't see full unicode :(...

I to try write code compatible with all version delphi.
But i have only Delphi 2006 and can test code only with Delphi 2006.
I try install Lasarus in next week.

I can look after other databases

Support unicode in Ztable.TableName design editor

is: procedure TZSQLiteResultSet.Open; ... with ColumnInfo do begin ColumnLabel := StrPas(FieldName^); Should be: procedure TZSQLiteResultSet.Open; ... with ColumnInfo do begin {$IFDEF ZEOS_FULL_UNICODE} ColumnLabel := UTF8ToUnicodeString(StrPas(FieldName^)); {$ELSE} ColumnLabel := StrPas(FieldName^)...

is if ErrorMessage <> nil then begin Error := Trim(StrPas(ErrorMessage)); PlainDriver.FreeMem(ErrorMessage); end should be if ErrorMessage <> nil then begin {$IFDEF ZEOS_FULL_UNICODE} Error := trim(UTF8ToUnicodeString(ErrorMessage)); {$ELSE} Error := Trim(StrPas(ErrorMessage)); {$ENDIF} PlainDriver....

I fixed error in ZSqlMonitor

Delphi in a Unicode World:
http://dn.codegear.com/article/38437
http://dn.codegear.com/article/38498
http://dn.codegear.com/article/38693

http://dn.codegear.com/article/images/3 ... nicode.pdf

And i can open database (sqlite) with UNICODE name like this

ZConnection1.Database := 'c:\dane-ŁŁŁĘĘĘĘ-ЫФЫФДЛДЛДЛДкенке.db';
ZConnection1.Connected := true;

New version

Now I can update dataset, i fix errors in ZSqLiteToken.pas