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=Boolen0； I：Integer=Integer0； 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页typeTEn_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选项中组件一、组件combobox1、设置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.Stringscombobox1.ItemIndex);/showmessage(string (combobox1.Items.Objectscombobox1.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); BeginOpenDialog1.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); BeginOpenDialog1.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选项，在用户提供了钩子函数或自定义模板时才