Спасибо за наводку! Вроде разобрался!
Вот здесь есть пример с текстовым полем.
http://forum.sources.ru/index.php?showtopic=294492
Я лиш добавлю на всякий случай пример с блобовым полем
| Код |
Регистрируем нашу функцию
sqlite3_create_function(db.fDB, 'UPPER', 1, SQLITE_UTF8, nil, MyUpperFunc, nil, nil);
const
SQLITE_UTF8 = 1;
type
TFuncHandler=procedure(pCtx: pointer; nArgs: Integer; Args: PPChar); cdecl;
TFuncFinalizer=procedure(context:pointer); cdecl;
function sqlite3_create_function(db:pointer; zFunctionName:pchar; nArg:integer; eTextRep:integer; userData:pointer; xFunc, xStep:TFuncHandler; xFinal:TFuncFinalizer):integer; cdecl; external SQLITEDLL;
function sqlite3_value_blob(value: Pointer): Pointer; cdecl; external SQLiteDLL name 'sqlite3_value_blob';
function sqlite3_value_bytes(value: Pointer): integer; cdecl; external SQLiteDLL name 'sqlite3_value_bytes';
function sqlite3_value_type(value: pointer): integer; cdecl; external SQLiteDLL name 'sqlite3_value_type';
procedure sqlite3_result_blob(sqlite3_context: pointer; value: Pointer;
n: integer; destroy: pointer); cdecl; external SQLiteDLL name 'sqlite3_result_blob';
procedure sqlite3_result_null(sqlite3_context: pointer); cdecl; external SQLiteDLL name 'sqlite3_result_null';
var MyUpperBuf: String;
procedure MyUpperDisposeProc(ptr: pointer); cdecl;
begin
MyUpperBuf := '';
end;
procedure MyUpperFunc(pCtx: pointer; nArgs: Integer; Args: PPChar); cdecl;
var Buf: PChar;
begin
case sqlite3_value_type(Args^) of
SQLITE_NULL: sqlite3_result_null(pCtx);
SQLITE_BLOB:
begin
Buf := sqlite3_value_blob(Args^);
SetString(MyUpperBuf, Buf, sqlite3_value_bytes(Args^));
StrDecompress(MyUpperBuf);
CharUpperBuff(PChar(MyUpperBuf), Length(MyUpperBuf));
// возвращаем в UTF ! похоже сравнение идет ТОЛЬКО В UTF
MyUpperBuf := AnsiToUtf8(MyUpperBuf);
sqlite3_result_blob(pCtx, PChar(MyUpperBuf), Length(MyUpperBuf), @MyUpperDisposeProc)
end;
else
sqlite3_result_null(pCtx);
end;
end; |
запрос делаем чере UPPER приводя к UTF
| Код | where ' + 'UPPER(colname) like "%' + AnsiToUtf8(AnsiUpperCase(ComboBox1.Text)) + '%"')); |
ну и сортируем тоже через нашу функцию ORDER BY UPPER(colname)
пс. строки в базу пишем без кодировки, база не распухает от UTF! 8D |
чудесааа....
