Delph导读.doc

Delphi学习笔录
词汇学习
ShowMessage(str:String);//输出信息框，str必须是字符类型
IntToStr(str：String)//字符型转数字型，str必须是数字字符
FormCreate(Sender:TObject)//初始时窗口就执行的代码，一般用来初始化变量；
GetTextLen函数：计算文本的字符串长度。

基础学习
一、Pascal 语言精义
一、数据类型
Pascal所支持的数据类型
数据类型
简单类型
字符串类型
结构化类型
指针类型
过程类型
变体类型
序数类型
实数类型
整数类型
字符类型
布尔类型
枚举类型
子界类型
集合类型
数组类型
记录类型
文件类型
类类型
类引用类型
接口类型

注：序数类型中：整数类型、字符类型、布尔类型都是Pascal 的预定义类型，在程序可以直接使用。
枚举类型、子界类型则为用户自定义类型，在使用前必须进行相关定义

1、无名类型声明
如：
var PokeSuit：（psClub，psDismond，psHeart，psSpade）
实际上声明了一个包含四个取值 psClub，psDismond，psHeart，psSpade的无名枚举类型，并用枚举类型定义了一个PokeSuit变量。
注：无名类型声明不允许
var PokeSuit1：（psClub，psDismond，psHeart，psSpade）
var PokeSuit2：（psClub，psDismond，psHeart，psSpade）
这是因为不能在同一个作用域中使用相同的标识符，正确如下：
(1)、var PokeSuit1，PokeSuit2：（psClub，psDismond，psHeart，psSpade）
(2)、type
TPokeSuit=（psClub，psDismond，psHeart，psSpade）；
Var
PokeSuit1，PokeSuit2：TPokeSuit；
这两种是相同的
2、数据的类型转换
在pascal中，存在两种类型转换：值类型转换（value typecast） 变量类型转换（variable typecast）

（1）值类型转换
是一种类型的值转换为另一种类型的值 如：
Var B：Boolean=Boolen[0]；
I：Integer=Integer[0]；
Buf：Longint；
Begin
But：=Longint(@StrBuf)；s
End;
（2）变量类型转换
除了不能将整数与实数互相转换，以及要保证转换前后类型存储大小一致以外，可以将任何类型转换为任何类型。如
（1） var Ch：Char；
N：ShortInt；
begin
Ch：=‘j’；
N:=ShortInt(Ch)；
end;
（2） 参照“参透Delphi”42页
type
TEn_N_N=function (X:Integer):Integer;
Funcion En_N_N(X：Integer):Integer;
Begin
Result:=X+1;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
Func:TEn_N_N;
Ptr:Pointer;
N:Integer;
begin
Label1.Caption:='The start address of En_N_N is'+IntToHex(Integer(@En_N_N),8);
Ptr:=@En_N_N;//将Func转换为无型指针值赋给Ptr
Label2.Caption:=’The value of Ptr is’+IntTonHex(Integer(@Ptr),8);
Func:=TEn_N_N(Ptr);//将指针Ptr转换为过程类型值赋给Func
Label3.Caption:=’The value of Func is’+IntTonHex(Integer(@Func),8);
TEn_N_N(Ptr) :=Func;//将过程类型值Func赋给指针Ptr,赋值时Ptr为过程变量
Label4.Caption:=’The value of Ptr is’+IntTonHex(Integer(Ptr),8);
@Func:=Ptr;//将指针赋给Func,赋给前将Func当作无指针类型
end;

组件学习
Standard选项中组件
一、组件combobox
1、设置combobox列表只能选择列表中选项，不能编辑

2、comBoBox选择选项后，返回选择的值
procedure TForm1.FormCreate(Sender: TObject);
var s : string;
begin
combobox1.Clear;
//s := '01';
combobox1.Items.Add('北京');
//s := '02';
combobox1.Items.Add('天津');
//s := '03';
combobox1.Items.Add('上海');
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
showmessage(string(combobox1.Items.Strings[combobox1.ItemIndex]));
//showmessage(string (combobox1.Items.Objects[combobox1.ItemIndex]);
end;

end.

二、Edit组件
1、例（百例课堂26页）
l 在Standard选项卡中Edit组件
l 主要用于接受用户输入的单行文本或一段文本字符显示给用户
l Edit组件的常用属性：
1. ImeMode：设置输入法的模式选择
2. ImeName：设置输入法的名称
3. MaxLength：设置编辑框最大能输入的文本长度
4. ReadOnly：设置编辑框中 文本是否为只读模式
5. Text：编辑框内文本内容
6. Color：编辑框的颜色
7. Enabled：设置编辑框的输入状态（True不可写，false可写）
8. Visible：设置编辑框的可视状态
9. Name：建立组件的名称
2、
GetTextLen函数：计算文本的字符串长度。

三、Memo组件
1、例（例（百例课堂30页））
l 在Standard选项卡中Memot组件
l 主要是一个常用来显示大量文字的组件
l Memo组件的常用属性：
1. ImeMode：设置输入法的模式选择
2. ImeName：设置输入法的名称
3. MaxLength：设置编辑框最大能输入的文本长度
4. ReadOnly：设置编辑框中 文本是否为只读模式
5. Text：编辑框内文本内容
6. Color：编辑框的颜色
7. Enabled：设置编辑框的输入状态（True不可写，false可写）
8. Visible：设置编辑框的可视状态
9. Name：建立组件的名称
10. WordWrap：设置输入文字到一行是否换行（True自动换行）
Dialog选项中组件
一、OpenDialog组件
一、组件Dialog中
用于显示一个文件选择对话框。在程序中使用此组件能够显示一个windows模式对话框，用于选择或打开文件
属性
1、Filter:设定打开文件的类型和属性。如：
Procedure TForm1.FormCreate(Sender:TObject);
Begin
OpenDialog1.Filter:=’位图文件|*.bmp|JPEG文件|*.jpge’;
OpenDialog1.Execute;
End;
2、Execute:打开一个外部存在的文件
3、 InitialDir:设置对话框打开时的路径。如果没有设定默认打开“我的文档”，依赖于windows的版本。
4、Title:设置打开框的标题。如
procedure TForm1.N3Click(Sender: TObject);
begin
OpenDialog1.Filter:='XML文档|*.xml|文本文档|*.txt';
OpenDialog1.InitialDir:='E:\学习\delphi';
OpenDialog1.Title:='xml文档';
OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
OpenDialog1.Execute ;
end;
如图：

5、Options属性包括多个子属性-----ofAllowMultiSelect：设定是否打开多个文件，true打开多个文件，false，如：
Procedure TForm1.FormCreate(Sender:TObject);
Begin
OpenDialog1.Filter:=’位图文件|*.bmp|JPEG文件|*.jpge’;
OpenDialog1,Option:=OpenDialog1.Option+[ofAllowMultiSelect];
OpenDialog1.Execute;
End;

5.1 Option属性的说明

Option子属性的说明
ofReadOnly
只读复选框被选中
ofOverwritePrompt
当用户选择一个已存在的文件时，弹出一个警告信息框，询问是否重写该文件
ofHideReadOnly
隐藏“打开”对话框中的只读复选框
ofNoChangeDir
当用户单击OK按钮后，重新设置当前路径为选择之前的路径
ofShowHelp
在对话框中显示“帮助”按钮
ofNovalidate
对于“打开”对话框中选择的文件名不进行检查，允许非法文件名
ofAllowMultiSelect-
程序运行时用户可以同时选择多个文件
ofExtensionDifferent
程序运行时，当选择的文件扩展名与DefaultExt属性不同时，则自动设置标记
ofPathMustExist
当用户选择的文件目录不存在时，弹出一个错误信息框
ofFileMustExist
当用户选择一个不存在的文件时，弹出一个错误信息框
ofCreatePrompt
当用户选择一个不存在的文件时，弹出一个错误信息框，询问是否创建新的文件
ofShareAwave
当文件共享非法时，忽略共享错误，允许用户选择文件
ofNoReadOnlyReturn
当用户选择一个只读文件，产生一个错误信息
ofNoTestFileCreate
当用户在一个不能够修改的共享网络路径中保存文件时，不进行网络文件的保护，磁盘路径，磁盘空间等检查
ofNoNetworkButton
在对话框中打开一个映射网络驱动对话框时，移除“网络”按钮，该选项只有在Options属性包含ofOldStyleDialog选项时才可用
ofNoLongNames
只遵循文件命名规则。该选项只有在Options属性包含ofOldStyleDialog选项时才可用
ofOldStyleDialog
“打开”对话框采用旧的风格
ofNoDereferenceLinks
禁止放弃windows的快捷方式，当打开一个快捷方式时，赋给文件名（FileName）快捷方式的路径和名称，而不是快捷方式关联的文件路径和名称
ofEnableIncludeNotify
当用户在对话框中打开一个文件夹时，发送CDN_INCLUDEITEM通知消息。该通知被发送到文件夹内部的每一项。该选项只应用在windows2000及以后的版本中
ofEnableSizing
该选项只应用在windows98及以后的版本中，允许资源管理风格的对话框，通过鼠标或键盘调整大小。在默认情况下，“打开”对话框允许调整大小，而不考虑ofEnableSizing选项，在用户提供了钩子函数或自定义模板时才需要使用该选项
ofDontAddToRecent
阻止文件添加到最近打开的文件列表中
ofForceShowHidden
保证隐藏在文件对话框中可见
6、OptionsEx属性 确定对话框的外观和行为。
子属性ofExNoPlaceBar为Ture，使对话框中的位置栏消失
为false，才可以看到标题名称
7、OpenDialog组件 的属性图,

二、SaveDialog组件
用于保存一个文件对话框。在程序中使用此组件能够显示一个windows模式对话框，用于保存文件，此组件集成openDialog的所有属性