delphiÓësqlite
from : http://zhyhero.googlepages.com/heartset
file:0 ǰÑÔ
±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
delphi°æ±¾:delphi2007 for win32 update3¡£ÈÎÒâ°²×°°æ±¾¼´¿É¡£
sqlite dll°æ±¾:3.5.3¡£Ä¿Ç°×îа汾µÄsqliteÒýÇæ¡£[ http://www.sqlite.org/
]
sqlite for delphi:simple sqlite 3.0 for delphi¡£Ä¿Ç°µÄ×îа汾µÄ·¢²¼ÈÕÆÚΪ27 August 2007£¬Ö§³Ösqlite dll°æ±¾3.4.2¡£¾¼òµ¥²âÊÔ£¬3.5.3Ò²ÊÇ¿ÉÒԵġ£×Ô´ødemo¡£[ http://www.itwriting.com/sqlitesimple.php
]
file:2 ×¼±¸¹¤×÷part2
н¨Ò»¸ö´°ÌåÓ¦ÓóÌÐò¹¤³Ì£¬²¢É趨±£´æµÄÎļþ¼Ð¡£½«simple sqlite 3.0 for delphi ÖеÄ
sqlite3.pas£¬sqlite3table.pas£¬sqlite3udf.pas¿½±´ÖÁ¹¤³ÌËùÔÚµÄÎļþ¼Ð¡£²¢ÔÚ¹¤³ÌÖÐÌí¼ÓÕâÈý¸öÎļþ¡£¿½±´
sqlite.dllµ½±àÒëÉú³ÉexeÎļþµÄÎļþ¼Ð¡£Õâ¸öÒª¿´¸öÈ˵ÄÉ趨¡£
file:3 ³õ²½²âÊÔ
ÒýÓÃSQLiteTable3.pasµ¥Ôª¡£
ÔÚ´°ÌåÉÏ´´½¨Ò»¸ö½ÐbtnVersionµÄ°´Å¥(Tbutton)¡£ÔÚbtnVersionµÄclickʼþÖÐдÈëÏÂÃæµÄ´úÂë¡£
procedure TfrmAbout.btnVersionClick(Sender: TObject);
var
SqliteDB:TSQLiteDatabase;
begin
SqliteDB:=TSQLiteDatabase.Create('');
showmessage('Sqlite dll version:'+SqliteDb.version);
SqliteDB.Free;
end;
±àÒëÔËÐУ¬³É¹¦µÄ»°£¬½«»áÏÔʾµ±Ç°µÄsqlite dllµÄ°æ±¾ºÅ£¬ÎÒµÄÊÇ3.5.3¡£
file:4 ¼òµ¥¹¤×÷ÔÀíÃèÊö
ÔÚsimple sqlite3.0 for delphiµÄ¼¸¸öÎļþÖУ¬Ö÷ÒªÓõ½Á½¸öÎļþ¡£·Ö±ðÊÇsqlite3.pas£¬sqlite3table.pas¡£
sqlite3.pasʵÏÖsqlite.dllµÄ½Ó¿ÚÍⲿ¶¨Òå¡£
sqlite3table.pas½øÐмòµ¥µÄ·ÃÎʺ¯Êý·â×°¡£
ÔÚdelphiÖУ¬Í¨¹ýsqlite3table.pasÀ´ÊµÏÖ¶ÔsqliteÊý¾Ý¿âµÄ¸÷ÖÖ·ÃÎÊ¡£
&nbs
Ïà¹ØÎĵµ£º
Delphi in a Unicode World Part II: New RTL Features and
Classes to Support Unicode
By: Nick
Hodges
ÔÎÄÁ´½Ó:http://dn.codegear.com/article/38498
Abstract: This article will cover the new features of the Tiburon
Runtime Library that will help handle Unicode strings.
//
& ......
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer; &nbs ......
½ñÌìÏîÄ¿×é·¢ÉúÒ»¸öÊÂÇé¾ÍÊÇ£¬ºǫ́aixÉ϶ԶàÓïÑÔÎı¾£¨Ó¢Óï+ºº×Ö£©»»ÐÐÎÊÌâ¸ã²»Ì«Çå³þ¡£
×îÔçǰ̨µÄ¶à×Ö·ûµÄ´úÂëÎÒ¼ì²éÁËһϣ¨°´ÕÕ0-128ÒÔÍâËãÖÐÎĵĴúÂ룩·¢ÏÖ²»Êǰ²È«µÄ´úÂë¡£
(delphi 7.0)
delphi°²È«µÄ»ìºÏ×Ö·ûµÄ²Ù×÷·½·¨ÊÇ£º
ÔÚstrsUtilsµ¥ÔªÖÐ
leftstr
MidStr
Rightstr
aixÏÂÊÇ£º ......
DelphiÖÐFormat×Ö·û´®ËµÃ÷
function Format(const Format: string; const Args: array of const):
string;
Format×Ö·û´®ËµÃ÷£º
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
¸ñʽ»¯×Ö·û´®±ØÐëÒÔ%¿ªÍ·
(2) [index ":"]
Ë÷ÒýÖ¸µÄÊÇArgs²ÎÊýÁбíÖÐÒªÏÔʾµÄÿһÏîµÄÐòºÅ¡£±ÈÈ磺ArgsÊÇ
......