技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]VCL制作简要步骤

　　1.创建部件属性方法事件

　　(建立库单元,继承为新的类型,添加属性、方法、事件,注册部件,建立包文件)

　　2.消息处理

　　3.异常处理

　　4.部件可视

　　◇[DELPHI]动态连接库的装载

　　静态装载:procedure name;external ''lib.dll'';

　　动态装载: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//返回过程变量的内存地址

　　◇[DELPHI]判断字符是汉字的一个字符

　　ByteType(''你好haha吗'',1) = mbLeadByte//是第一个字符

　　ByteType(''你好haha吗'',2) = mbTrailByte//是第二个字符

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

　　◇[DELPHI]memo的定位操作

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

　　memo1.selstart:=10//定位10字节处

　　◇[DELPHI]获得双字节字符内码

　　function getit(s: string): integer;

　　begin

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

　　end;

　　使用:getit(''计'')//$bcc6 即十进制 48326

　　◇[DELPHI]调用ADD数据存储过程

　　存储过程如下:

　　create procedure addrecord(

　　record1 varchar(10)

　　record2 varchar(20)

　　)

　　as

　　begin

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

　　end

　　执行存储过程:

　　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;