unit  HiAsmUnit;

 interface 

 uses  kol,Share,Debug,Windows,SQLite3Api,hiSQLite_DB;

 type 
THiAsmClass =  class (TDebug)
 public 
dbHandle:THI_Event;
 procedure  addFunction( var  _Data:TData; idx:word);
 end ;

 implementation 

 procedure  myFunc(ctx:pointer; nArg:integer; args:ppvalue); cdecl;
 var  s: string ;
 begin 
s:=sqlite3_value_text(args^);
CharUpperBuff(@s[ 1 ],Length(s));
sqlite3_result_text(ctx,PChar(s),Length(s), 0 );
 end ;

 procedure  THiAsmClass.addFunction;
 var  dt:TData;
 begin 
dt := ReadData(_Data,dbHandle, nil );
 if  _IsObject(dt,SQLite_GUID)  then   begin 
sqlite3_create_function(ToObject(dt),PChar('UPPER'), 1 ,SQLITE_ANY, nil ,@myFunc, nil , nil );
 end ;
 end ;

 end .