◇[DELPHI]VCL制作簡要步驟

　　1.創(chuàng)建部件屬性方法事件

　　(建立庫單元,繼承為新的類型,添加屬性、方法、事件,注冊部件,建立包文件)

　　2.消息處理

　　3.異常處理

　　4.部件可視

　　◇[DELPHI]動(dòng)態(tài)連接庫的裝載

　　靜態(tài)裝載:procedure name;external ''lib.dll'';

　　動(dòng)態(tài)裝載:var handle:Thandle;

　　handle:=loadlibrary(''lib.dll'');

　　if handle<>0 then

　　begin

　　{dosomething}

　　freelibrary(handle);

　　end;

　　◇[DELPHI]指針變量和地址

　　var x,y:integer;p:^integer;//指向INTEGER變量的指針

　　x:=10;//變量賦值

　　p:=@x;//變量x的地址

　　y:=p^;//為Y賦值指針P

　　@@procedure//返回過程變量的內(nèi)存地址

　　◇[DELPHI]判斷字符是漢字的一個(gè)字符

　　ByteType(''你好haha嗎'',1) = mbLeadByte//是第一個(gè)字符

　　ByteType(''你好haha嗎'',2) = mbTrailByte//是第二個(gè)字符

　　ByteType(''你好haha嗎'',5) = mbSingleByte//不是中文字符

　　◇[DELPHI]memo的定位操作

　　memo1.lines.delete(0)//刪除第1行

　　memo1.selstart:=10//定位10字節(jié)處

　　◇[DELPHI]獲得雙字節(jié)字符內(nèi)碼

　　function getit(s: string): integer;

　　begin

　　Result := byte(s[1]) * $100 + byte(s[2]);

　　end;

　　使用:getit(''計(jì)'')//$bcc6 即十進(jìn)制 48326

　　◇[DELPHI]調(diào)用ADD數(shù)據(jù)存儲(chǔ)過程

　　存儲(chǔ)過程如下:

　　create procedure addrecord(

　　record1 varchar(10)

　　record2 varchar(20)

　　)

　　as

　　begin

　　insert into tablename (field1,field2) values(:record1,:record2)

　　end

　　執(zhí)行存儲(chǔ)過程:

　　EXECUTE procedure addrecord("urrecord1","urrecord2")

　　◇[DELPHI]將文件存到blob字段中

　　function blobcontenttostring(const filename: string):string;

　　begin

　　with tfilestream.create(filename,fmopenread) do

　　try

　　setlength(Result,size);

　　read(Pointer(Result)^,size);

　　finally

　　free;

　　end;

　　end;

　　//保存字段

　　begin

　　if (opendialog1.execute) then

　　begin

　　sFileName:=OpenDialog1.FileName;

　　adotable1.edit;

　　adotable1.fieldbyname(''visio'').asstring:=Blobcontenttostring(FileName);

　　adotable1.post;

　　end;