Add(MainForm,10863989,322,231)
{
 Left=20
 Top=105
 Width=304
 Height=160
}
Add(SQLite_DB,2905158,448,231)
{
 FileName="elements\\delphi\\elements.db"
}
Add(SQLite_Query,15010514,490,336)
{
 SQL="select info from groups where id=1"
 link(onQuery,2972499:doCharset,[])
 link(dbHandle,13868055:Var3,[(496,282)])
}
Add(Hub,8653263,371,294)
{
 OutCount=4
 link(onEvent1,2905158:doOpen,[(417,300)(417,237)])
 link(onEvent2,11222037:addFunction,[])
 link(onEvent3,15010514:doQuery,[(422,314)(422,342)])
 link(onEvent4,2905158:doClose,[(425,321)(425,244)])
}
Add(Button,9962326,322,294)
{
 Left=25
 Top=35
 link(onClick,8653263:doEvent1,[])
}
Add(Edit,3942550,602,336)
{
 Left=110
 Top=35
 Width=120
 Font=[Microsoft Sans Serif,8,0,0,204]
 Text=""
}
Add(Charset,2972499,546,336)
{
 Type=7
 link(onCharset,3942550:doText,[])
}
Add(InlineCode,11222037,448,301)
{
 WorkPoints=#11:addFunction|
 DataPoints=#8:dbHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|52:uses kol,Share,Debug,Windows,SQLite3Api,hiSQLite_DB;|0:|4:type|28: THiAsmClass = class(TDebug)|9:   public|22:   dbHandle:THI_Event;|52:   procedure addFunction(var _Data:TData; idx:word);|5: end;|0:|14:implementation|0:|65:procedure myFunc(ctx:pointer; nArg:integer; args:ppvalue); cdecl;|13:var s:string;|5:begin|31:  s:=sqlite3_value_text(args^);|33:  CharUpperBuff(@s[1],Length(s));|48:  sqlite3_result_text(ctx,PChar(s),Length(s),0);|4:end;|0:|34:procedure THiAsmClass.addFunction;|13:var dt:TData;|5:begin|37:  dt := ReadData(_Data,dbHandle,nil);|41:  if _IsObject(dt,SQLite_GUID) then begin|90:    sqlite3_create_function(ToObject(dt),PChar('UPPER'),1,SQLITE_ANY,nil,@myFunc,nil,nil);|6:  end;|4:end;|0:|4:end.|
 link(dbHandle,13868055:Var2,[])
}
Add(GetDataEx,13868055,441,273)
{
 link(Data,2905158:dbHandle,[])
}