Delphi基础开发技巧(11)

[INTERNET]CSS常用综合技巧

1。P:first-letter { font-size: 300%; float: left }//首字会比普通字体加大三倍。

2。//连接一个外部样式表

3。嵌入一个样式表

4。 //内联样式

Arial//SPAN接受STYLE、CLASS和ID属性 DIV可以包含段落、标题、表格甚至其它部分

5。CLASS属性 //定义见3。

6。ID属性 //定义见3。

7。属性列表

字体风格:font-style: [normal | italic | oblique];

字体大小:font-size: [xx-small | x-small | small | medium | large | x-large | xx-large | larger | smaller | <长度> | <百分比>]

文本修饰:text-decoration:[ underline || overline || line-through || blink ]

文本转换:text-transform:[none | capitalize | uppercase | lowercase]

背景颜色:background-color:[<颜色> | transparent]

背景图象:background-image:[ | none]

行高:line-height: [normal | <数字> | <长度> | <百分比>]

边框样式:border-style: [ none | dotted | dashed | solid | double | groove | ridge | inset | outset ]

漂浮:float: [left | right | none]

8。长度单位

相对单位:

em (em,元素的字体的高度)

ex (x-height,字母 "x" 的高度)

px (像素,相对于屏幕的分辨率)

绝对长度:

in (英寸,1英寸=2.54厘米)

cm (厘米,1厘米=10毫米)

mm (米)

pt (点,1点=1/72英寸)

pc (帕,1帕=12点)

[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;