先人的DELPHI基础开发技巧
作者：Siny 文章来源：中国教师站cn-teacher 点击数： 更新时间：2007-4-22 16:01:22
Result := Point;
end;
2.LineLength：=SendMessage（memol．handle，EM—LINELENGTH，Cpos，0）；//行长
◇[DELPHI]读硬盘序列号
function GetDiskSerial(DiskChar: Char): string;
var
SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
result := "";
if GetVolumeInformation(PChar(diskchar+":"), Buffer, SizeOf(Buffer), SerialNum,
a, b, nil, 0) then
Result := IntToStr(SerialNum^);
end;
◇[INTERNET]CSS常用综合技巧
1。P:first-letter { font-size: 300%; float: left }//首字会比普通字体加大三倍。
2。<LINK REL=StyleSheet HREF="basics.css" TITLE="Contemporary">//连接一个外部样式表
3。嵌入一个样式表
<STYLE TYPE="text/css" MEDIA=screen>
<!--
@import url(http://www.htmlhelp.com/style.css);//外部导入一个样式表
@import url(/stylesheets/punk.css);//同上
BODY { background: url(foo.gif) red; color: black }
.punk { color: lime; background: #ff80c0 }//引用见5。
#wdg97 { font-size: larger }//引用见6。
-->
</STYLE>
4。<P STYLE="color: red; font-family: 'New Century Schoolbook', serif"> //内联样式
<SPAN STYLE="font-family: Arial">Arial</SPAN>//SPAN接受STYLE、CLASS和ID属性
<DIV CLASS=note><P>DIV可以包含段落、标题、表格甚至其它部分</P></DIV>
5。<H1 CLASS=punk>CLASS属性</H1>//定义见3。
6。<P ID=wdg97>ID属性</P>//定义见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:[<URLs> | 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
wit
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
相关专题：
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
