第一章delphi基础知识
一、对象观察器
1、设置属性
1）窗体的主要属性
属性功能
ActiveControl该属性用于指出获得焦点的对角BorderIcon控制窗体的最大化、最小化及帮助按钮的显示Borderstrle控制窗体边框的形式
Color控制窗体的背景颜
Caption设定窗体的标题
KeyPreview控制窗体接收键盘信息
2）其它组件的主要属性
属性功能
div border属性Align确定对象的对齐方式
Caption确定对象的标题
Enabled确定对象是否可以活动
Font字体的设置
Height设置对象的高度
Hint设置提示信息
Left设置左上角的横坐标
Name设置对象的名字
PopMenu确定对象上的弹出式菜单
Visible确定对象的可见性
Width设置对象的宽度
2、添加事件
对象的主要事件
事件功能
OnChange对象发生改变时触发
OnClick单击鼠标左键时触发
OnDbClick双击鼠标左键时触发
OnDragDrop其他对象拖入此对象时触发OnDragOver其他对象拖动经过此对象时触发OnKeyDown按下键盘上某个键时触发OnMouseDown单击鼠标时触发
OnMouseMove鼠标拖动时触发
OnMouseUP松开鼠标键时触发
3、登录框所需源码
//name
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select*from ygxx where ygbm=:a'); adoquery1.Parameters.ParamByName('a').Value:=edit1.Text; adoquery1.Open;
if adoquery1.RecordCount>0then
begin
//password
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select*from ygxx where ygbm=:a and xm=:b');
adoquery1.Parameters.ParamByName('a').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('b').Value:=edit2.Text;
adoquery1.Open;
if adoquery1.RecordCount>0then
begin
form2.Color:=clActiveCaption;
form2.Show;
end
else
begin
showmessage('密码错误');
end;
end
else
begin
showmessage('用户不存在');
end;
end;
4、调整窗体的栅格
菜单TOOL—Environment Options选项下Designer调整数值即可5、代码浏览器快捷銉
Shift+Ctrl+E
6、项目管理器快捷键
Ctrl+Alt+F11
第2章Object Pascal程序设计语言
一、基本字符和符号
1、小例子注释的用法
procedure TForm1.FormCreate(Sender:TObject);
{$APPTYPE CONSOLE}//编译器指令这要增加否则下面的不运行begin
writeln('string1'+'string2');（*字符串1和字符串2*）
writeln;('按下<Enter>退出')
readln;//读取
end;
end.
2、常量与变量
1）常量
纯常量：Const
DATE=29;
PI=3.14;
类型常量：Const Identifer:type=value;
例子：Const Min:Integer=200;
2)变量
Var
Value,sum:Integer;(整数型)
*Line::String;(字符型)
3、运算符
语言中运算符的优先级
运算符优先级分类
@、not第一级单目运算符
*、/、div、mod、and、shl、shr、as第二级乘法运算符
+、-、or、xor第三级加法运算符
=、>、<、<>、<=、>=、in、is第四级关系运算符
1）算术运算符
运算符功能操作数类型结果类型举例
+两个数相加Integer，real Integer，real X+y
-两个数相减Integer，real Integer，real y-1
*两个数相乘Integer，real Integer，real P*interestRate /两个浮点数相除Integer，real real x/2
div两个整型数相除Integer Integer81div9
mod计算余数（取模）Integer Integer Y mod4
2)逻辑运算符
运算符功能操作数类型结果类型举例
Not按位取反Integer Integer Not x
And按位和Integer Integer X and Y
Or按位或Integer Integer X or Y
Xor按位异或Integer Integer X xor Y
Shl按位左移Integer Integer X shl2
shr按位右移Integer Integer X shr3
布尔运算符
运算符功能操作数类型结果类型举例
Not逻辑取反Boolean Boolean Not(C in myset)
And逻辑取和Boolean Boolean Done and(total>0)
Or逻辑或Boolean Boolean X or Y
Xor逻辑异或Boolean Boolean X xor Y
4)关系运算符
运算符功能结果数类型举例
=判断是否相等Boolean I=max
<>判断是否不相等Boolean X<>y
<；判断是否小于Boolean X<y
>判断是否大于Boolean x>y
<=判断是否小于等于Boolean X<=y
>=判断是否大于等于Boolean I>=1
二、语句
1、赋值语句
赋值语句的形式如下：
Variable:=expression;
赋值语句的左边是此赋值操作的数据变量，右边是一个数值或者表达式，中间用“：=”连接。例如：
X：=y+2;//将一个表达式的结果赋值给一个变量
Done：=（i>=1）and（i<100）；//将逻辑表达式的结果赋给一个变量
Hue：=(blue,succ(c))；//将一下子集赋给一个变量
Mystring[i]：=‘a’//给数组的一个元素赋值
2、复合语句
经常使用的复合语句是begin/end，例如：
Begin
A:=5;
C:=A*8/2;
Begin
End;
End;
3控制语句
1）IF语句
格式如下：
If expression then statement；或者If expression then statement1else statement2
例如：
If j<>0then begin result:=i/j;
Count:=count+1;
End
Else if count=last then
Done:=true
Else exit;
IF语句可以嵌套，当使用复合语句表达时，复合语句前后需加上begin…end。Else保留字前不能加“；”，而且，编译器会将else语句视为属于最靠近的if语句。必要时，须使用begin…end保留字来强迫else部分属于某一级的IF语句。
程序实例2体会下IF语句的应用
下为源码：
procedure TForm1.Button1Click(Sender:TObject); begin//第一个按钮
if checkbox1.Checked then
showmessage('第一个被选中');
end;
procedure TForm1.Button2Click(Sender:TObject); begin//第二个按钮
if checkbox2.Checked then
showmessage('第二个被选中')
else
showmessage('第二个没被选中');
end;
procedure TForm1.Button3Click(Sender:TObject); begin
if checkbox1.Checked and checkbox2.Checked then showmessage('一和二全被选中');
end;
procedure TForm1.Button4Click(Sender:TObject); begin
if checkbox1.Checked then
if checkbox2.Checked then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。