Delphi中常用的函数和属性

1、Delphi参考名称 类型说明A部Abort函数引起放弃的意外处理Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列 Align 属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed 属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase 函数将字符转换为小写AnsiUp

2、perCase 函数将字符转换为大写 Append函数以附加的方式打开已有的文件ArcTan 函数余切函数AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 B部BackgroundColor属性背景色BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录BorderStyle属性边界类型BorderWidth属性边界宽度 Break命令终

3、止for、while、repeat循环语句 Brush属性画刷 C部Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果Cursor属性鼠标指针移入后的形

4、状 D部Date 函数返回当前的日期DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式 DateTimeToStr函数 将日期时间格式转换为字符串 DateTimeToString 函数将日期时间格式转换为字符串DateToStr 函数 将日期格式转换为字符串 DayOfWeek函数返回星期的数值 Dec函数递减变量值 DecodeDate函数将日期格式分解为年月日DecodeTime函数 将时间格式分解为时、分、秒、毫秒 Delete函数从字符串中删除子串 DeleteFile 命令删除文件 DiskFree函数返回剩余磁盘空间的大小 DiskSize函数

5、返回指定磁盘的容量 Dispose函数释放动态变量所占的空间 DisposeStr函数释放字符串在堆栈中的内存空间 DitherBackground属性使背景色的色彩加重或减少50% DragCursor属性当鼠标按下时光标的形状 DragMode属性按动的作用方式 DropDownCount属性容许的显示数据项的数目 E部EditMask属性编辑模式 Enabled属性是否使标签呈现打开状态 EncodeDate函数将年月日合成为日期格式 EncodeTime函数将时、分、秒、毫秒合成为时间格式 EndMargin属性末尾边缘 Eof函数对有类型或无类型文件测试是否到文件尾Eoln函数返回文

6、本文件的行结束状态 Erase命令删除外部文件 ExceptAddr函数返回引起当前意外的地址 Exclude 函数从集合中删除一些元素 ExceptObject函数返回当前意外的索引 Exit命令立即从当前的语句块中退出 Exp函数指数函数 ExpandFileName函数返回包含绝对路径的字符串 ExtendedSelect属性是否允许存在选择模式，True时，MultiSelect才有意义 ExtractFileDir函数返回驱动器和路径 ExtractFileExt函数返回文件的后缀 ExtractFileName函数返回文件名 ExtractFilePath函数返回指定文件的路径 F

7、部FileAge函数返回文件已存在的时间 FileClose 命令关闭指定的文件 FileCreate命令用指定的文件名建立新文件 FileDateToDateTime函数将DOS的日期格式转换为DELPHI的日期格式FileExists函数检查文件是否存在 FileGatAttr函数返回文件的属性 FileGetDate函数返回文件的DOS日期时间标记 FileOpen 命令用指定的存取模式打开指定的文件FilePos函数返回文件的当前指针位置 FileRead命令从指定的文件读取 FileSearch命令在目录中搜索指定的文件FileSeek函数改变文件的指针 FileSetAttr函数设

8、置文件属性 FileSetDate函数设置文件的DOS日期时间标记 FileSize函数返回当前文件的大小 FileWrite函数对指定的文件做写操作 FillChar函数用指定的值填充连续字节的数FindClose命令终止FindFirst/FindNext序列 FindFirst命令对指定的文件名及属性搜索目录FindNext命令返回与文件名及属性匹配的下一入口 FloatToDecimal函数将浮点数转换为十进制数 FloatToStrF函数将浮点数转换为字符串 FloatToStr函数将浮点数转换为字符串 FloatToText函数将给定的浮点数转换为十进制数 FloatToTextF

9、mt函数将给定的浮点数转换为十进制数 Flush 函数将缓冲区的内容刷新到输出的文本文件中 FmtLoadStr函数从程序的资源字符串表中装载字符串 FmtStr函数格式化一系列的参数，其结果以参数Result返回 Font属性设置字体 Format函数格式化一系列的参数并返回Pascal字符串 FormatBuf函数格式化一系列的参数 FormatDateTime函数用指定的格式来格式化日期和时间 FormatFloat函数指定浮点数格式 Frac函数返回参数的小数部分 FreeMem函数按给定大小释放动态变量所占的空间 G部GetDir函数返回指定驱动器的当前目录 GetHeapStatu

10、s函数返回内存管理器的当前状态 GetMem 函数建立一指定大小的动态变量，并将指针指向该处 GetMemoryManager函数返回内存管理器的入口点 Glyph属性按钮上的图象 H部Halt命令停止程序的执行并返回到操作系统 Hi函数返回参数的高地址位 High函数返回参数的上限值 Hint属性提示信息 I部Int函数返回参数的整数部分 Include函数添加元素到集合中Insert函数在字符串中插入子串 IntToHex函数将整型数转换为十六进制数 IntToStr函数将整型数转换为字符串IOResult函数返回最新的I/O操作完成状态 IsValidIdent函数测试字符串是否为有效的

11、标识符 Items属性默认显示的节点 K部Kind属性摆放样式L部LargeChange属性最大改变值 Layout属性图象布局 Length函数返回字符串的动态长度 Lines属性缺省显示内容 Ln函数自然对数函数 Lo函数返回参数的低地址位 LoadStr函数从应用程序的可执行文件中装载字符资源 LowerCase函数将给定的字符串变为小写 Low函数返回参数的下限值 M部Max 属性 最大值 MaxLength属性最大长度 Min属性最小值 MkDir命令建立一子目录 Move函数从源到目标复制字节 MultiSelect属性允许同时选择几个数据项 N部Name属性控件的名字 New函数

12、建立新的动态变量并设置一指针变量指向他NewStr函数在堆栈上分配新的字符串 Now函数返回当前的日期和时间 O部Odd函数测试参数是否为奇数 OnActivate事件焦点移到窗体上时触发 OnClick事件单击窗体或组件触发 OnDblClick事件双击窗体或组件触发 OnCloseQuery事件使用者试图关闭窗体触发 OnClose事件窗体关闭后才触发 OnCreate事件窗体第一次创建时触发 OnDragDrop事件鼠标拖放操作结束时触发OnDragOver事件有其他控件从他上面移过触发OnMouseDown 事件按下鼠标键时触发 OnMouseUp事件释放鼠标键时触发OnMouseMo

13、ve事件移动鼠标时触发 OnHide 事件隐藏窗体时触发 OnKeyDown事件按下键盘某键时触发 OnKeyPress 事件按下键盘上的单个字符键时触发 OnKeyUp 事件释放键盘上的某键时触发OnPaint 事件窗体上有新部分暴露出来触发 OnResize事件重新调整窗体大小触发 OnShow事件在窗体实际显示之前瞬间触发 Ord 函数返回序数类的序数 OutlineStyle属性类型 OutOfMemoryError命令引起OutOfMemory意外P部PageIndex属性页索引 Pages 属性页 ParamCount函数返回在命令行上传递给程序的参数数量 ParamStr函数返回

14、指定的命令行参数 Pen属性画刷设置 Pi 函数返回圆周率PiPicture 属性显示图象 PictureClosed属性设置Closed位图 PictureLeaf属性设置Leaf位图 PictureMinus属性设置Minus位图 PictureOpen属性设置Open位图 PicturePlus 属性设置Plus位图 Pos函数在字符串中搜索子串 Pred 函数返回先前的参数 R部Random函数返回一随机函数 Randomize函数用一随机数初始化内置的随机数生成器 Read 函数对有格式的文件，读一文件组件到变量中；文本文件，读一个或多个值到一个或多个变量中 Readln函数 执行R

15、ead过程，然后跳到文件下一行 ReadOnly属性只读属性 ReAllocMem 函数分配一动态变量 Rename函数重命名外部文件 RenameFile函数对文件重命名 Reset函数打开已有的文件 Rewrite函数建立并打开一新的文件RmDir函数删除空的子目录Round函数将实数值舍入为整型值RunError函数停止程序的执行 S部ScrollBars属性滚动条状态 Seek 函数将文件的当前指针移动到指定的组件上 SeekEof函数返回文件的文件结束状态SeekEoln函数返回文件的行结束状态SelectedColor属性选中颜色 SetMemoryManager函数设置内存管理器

16、的入口点SetTextBuf函数给文本文件指定I/O缓冲区 Shape属性显示的形状 ShowException函数显示意外消息与地址 Sin函数正弦函数 SizeOf函数返回参数所占的字节数 SmallChange属性最小改变值Sorted属性是否允许排序 Sqr函数平方函数 Sqrt函数平方根函数StartMargin属性开始边缘 State属性控件当前状态 Str函数将数值转换为字符串StrAlloc函数给以NULL结束的字符串分配最大长度-1的缓冲区 StrBufSize函数返回存储在由StrAlloc分配的字符缓冲区的最大字符数 StrCat函数将一字符串附加到另一字符串尾并返回合并

17、的字符串StrComp函数比较两个字符串 StrCopy函数将一个字符串复制到另一个字符串中 StrDispose函数释放堆栈上的字符串 StrECopy函数将一字符串复制到另一个字符串并返回结果字符串尾部的指针 StrEnd函数返回指向字符串尾部的指针 Stretch属性自动适应控件的大小 StrFmt函数格式化一系列的参数 StrIComp函数比较两个字符串（不区分大小写）StringToWideChar函数将ANSI字符串转换为UNICODE字符串 StrLCat函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串 StrLComp函数以最大长度比较两个字符串 StrLCopy函数

18、将一个字符串中的字符复制到另一个字符串中 StrLen 函数返回字符串中的字符数 StrLFmt函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针 StrLIComp函数以最大长度比较两个字符串（不区分大小写） StrLower函数将字符串中的字符转换为小写 StrMove函数将一个字符串中的字符复制到另一个字符串中 StrNew函数在堆栈上分配一个字符串 StrPas函数将以NULL结束的字符串转换为PASCAL类的字符串 StrPCopy函数将PASCAL类的字符串复制为以NULL结束的字符串 StrPLCopy函数从PASCAL类的最大长度字符串复制为以NULL结束的字符串 St

19、rPos函数返回一个字符串在另一个字符串中首次出现指针 StrRScan函数返回字符串中最后出现字符的指针StrScan函数返回字符串中出现首字符的指针 StrToDate函数将字符串转换为日期格式 StrToDateTime函数将字符串转换为日期/时间格式 StrToFloat函数将给定的字符串转换为浮点数 StrToInt函数将字符串转换为整型 StrToIntDef函数将字符串转换为整型或默认值 StrToTime函数将字符串转换为时间格式 StrUpper函数将字符串中的字符转换为大写Style属性类型选择 Suce函数返回后继的参数 Swap函数交换参数的高低地址位 T部Tabs属性

20、标记每一项的内容 TabIndex属性标记索引 Text属性显示的文本TextToFloat函数将字符串（以NULL结束的格式）转换为浮点数 Time 函数返回当前的时间 TimeToStr函数将时间格式转换为字符串 Trim函数从给定的字符串中删除前导和尾部的空格及控制字符TrimLeft函数从给定的字符串中删除首部的空格及控制字符TrimRight函数从给定的字符串中删除尾部的空格及控制字符 Trunc 函数将实型值截取为整型值 Truncate函数截去当前文件位置后的内容 U部UnSelectedColor属性未选中颜色 UpCase函数将字符转换为大写 UpperCase函数将给定的字

21、符串变为大写 V部Val函数将字符串转换为整型值 VarArrayCreate函数以给定的界限和维数建立变体数组 VarArrayDimCount函数返回给定变体的维数 VarArrayHighBound 函数返回给定变体数组维数的上界 VarArrayLock函数锁定给定的变体数组VarArrayLowBound函数返回给定变体数组维数的下界 VarArrayOf函数返回指定变体的数组元素VarArrayRedim函数通过改变上限来调整变体的大小VarArrayUnlock函数解锁指定的变体数组VarAsType函数将变体转换为指定的类型 VarCase函数将变体转换为指定的类型并保存他Va

22、rClear函数清除指定的变体 VarCopy函数将指定的变体复制为指定的变体 VarFormDateTime函数返回包含日期时间的变体 VarIsArray函数测试变体是否为数组 VarIsEmpty函数测试变体是否为UNASSIGNED VarIsNull函数测试变体是否为NULL VarToDateTime函数将给定的变体转换为日期时间 VarType函数将变体转换为指定的类型并保存他 Visible 属性控件的可见性 W部WantReturns属性为True时，按回车键产生一个回车符； 为False时，按下Ctrl+Enter才产生回车符Write命令对有格式的文件，写一变量到文件组件

23、中； 对文本文件，写一个或多个值到文件中 Writeln命令执行WRITE过程，然后输出一行结束标志WideCharLenToString函数将ANSI字符串转换为UNICODE字符串 WideCharLenToStrWar函数将UNICODE字符串转换为ANSI字符串变量WideCharToString函数将UNICODE字符串转换为ANSI字符串WideCharToStrVar函数将UNICODE字符串转换为ANSI字符串变量 Delphi的编程语言是以Pascal为基础的。Pascal语言具有可读性好、编写容易的特点，这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序只生成

24、单个可执行文件(.EXE)，正是这种结合，使得Pascal成为Delphi这种先进开发环境的编程语言。本章中，我们将讨论Object Pascal的主要特点，并讲解如何在事件处理过程和其他应用程序中，使用它来编制程序代码。本章将讲解Delphi应用程序中最常用的Object Pascal语法，而不是Pascal语言的一切细节。如果您完全不熟悉Pascal编程，请参阅一些基础的Pascal教程。如果您具有编程经验，并能熟练地使用其他流行程序语言，您将在本章的Object Pascal中发现一些相同的概念。如果您已经熟悉了Borland Pascal，就可以快速浏览或跳过本章。2.1 编写Obje

25、ct Pascal程序代码在前边的章节中，我们通过例程，已经编写了几行简单的代码。在本章中，我们将从熟悉Pascal编程的角度，配合实例，讲解Object Pascal编程的基本方法。在编写自己的Object Pascal程序时，要注意程序的可读性。Pascal语言是英式结构语言，在程序中选择合适的缩排、大小写风格，并在需要时将程序代码分行，会使得程序代码能够很容易地被自己和他人读懂。一般的程序员都有这样的体验：如果不给程序加上适当的注解，一段时间后，自己也难以理清程序的流程。给程序及时地加上注释是良好的编程习惯。Delphi的注释需要加注在之间，编辑器会把它们处理成为空白。Delphi保留了

26、Borland Pascal编辑器的风格，关键字采用黑体字，被注释的部分会变暗，这使得编程风格良好，易读易写。2.1.1 编写赋值语句在事件处理过程中，最常用到的工作就是把一个新值赋给一个属性或变量。在设计用户界面时，可以使用Object Inspector(Object Inspector)来改变其属性；但有时需要在程序执行时改变属性的值，而且有些属性只能在执行时改变，这些属性在Delphi的在线帮助的“Proprety”主题中被标为执行期属性。进行这种改变，就必须使用赋值语句。下文的赋值语句表征一个onClick事件。当按钮按动后，将编辑框部件Edit1的Color属性置为clRed:pr

27、ocedure TForm1.Button1Click(Sender: TObject);begin Edit1.Color := clRed;end;当按动按钮后赋值语句被执行，编辑框变成红色。在语句中，部件的名称在属性前，中间用“.”表示属性的所属关系。这样就准确地指定了要将clRed值赋给哪一部件的哪一属性。赋值号为“:=”，不论给属性还是给变量赋值，都是将右边的值赋给左边的属性或变量。当将一个属性值、变量、常量或文本数据赋给属性或变量时，所赋值的类型和接受此值的属性或变量的类型应相同或兼容。一个属性或变量的类型定义了此属性或变量的可能值集合，也定义了程序代码可以执行的运算。在前边的例程

28、中，编辑框部件的Color属性和clRed的类型都是TColor。可以在在线帮助中找到一个属性睦嘈停涣硗庖恢址椒窃贠bject Inspector中选定该属性值段，并按下F1键，则类型将在属性说明的结尾处列出，例如Color属性列出下边的语句：Property Color : TColor;有些属性是只读(Read Only)的，它们只能被读取，不能被改变。请查阅在线帮助，在Delphi中这些只读属性都有注解。2.1.2 标识符的说明与使用标识符是Delphi应用程序中一些量的名称，这些量包括变量(var)、常量(const)、类型(type)、过程(procedure)、方法(Method)

29、及其他，Object Pascal 在应用标识符时，必须首先说明它们。Object Pascal是强类型语言，它的编译器可以检查确保赋给变量或属性的值是正确的类型，以便于您改正错误。因为Object Pascal是编译语言，所以Delphi的执行速度要比使用解释语言快得多。在使用标识符前说明它们，可以减少程序错误并增加代码的效率。 变量变量是程序代码中代表一个内存地址的标识符，而此地址的内存内容在程序代码执行时可以被改变。在使用变量前必须对它进行说明，即对它进行命名，并说明它的类型。在所有变量说明以前加上保留字var。变量说明左边是变量的名称，右边则是该变量的类型，中间用(:)隔

30、开。var Value ,Sum : Integer;Line : String;在窗体中加入一个名称为Edit1的编辑框，再加入一个名称(属性Name)为Add的按钮部件，并建立如下的事件处理过程：procedure TForm1.addClick(Sender: TObject);var X , Y: Integer;begin X := 100;Y := 20;Edit1.Text := IntToStr(X + Y);end;在本例中，当按动ADD按钮时，编辑框中显示值120。在Object Pascal中，必须确保变量或属性被赋予类型相同或兼容的值。您可以尝试将赋给X的值改为100.

31、0，或去掉IntToStr函数，在编译时会出现类型不匹配的错误，这也说明了Object Pascal强类型语言的特点。 预定义类型Object Pascal有多个预定义的数据类型，您可以说明任何这些类型的变量：整形：Integer的范围是-32768到32767,占2字节的内存；Shortint从-128到127，占1字节内存；Longint从-到 占4字节内存；Byte从0到255，占1字节；Word从0到65535，占2字节内存。它们都是没有小数部分的数字。实型：Single可以包含7到8位有效小数部分，占用4字节的内存；Double类可以包含15到16位有效小数部分，占用8

32、字节的内存；Extended类型包含19到20位有效小数部分，占用10字节内存；Comp可以包含19到20位有效小数部分，占用8字节内存。以上实数类型只有在8087/80287选项N+打开才可以使用。Real可以包含11到12位有效小数部分，占用6字节内存。它只有在和以前Borland Pascal兼容的情况下才使用，否则应使用Double或Extended。布尔型：Boolean，只包含true或False两个值，占用1字节内存。字符型：Char，一个ASCII字符；字符串类型String一串最长可达255个ASCII字符。指针型：Pointer，可以指向任何特定类型。字符串型：PChar，

33、是一个指向以零结尾的字符串的指针。除了预定义类型外，Delphi还有自行定义的类型。上述例程的TColor就是这种类型。此外，用户还可以定义自己的数据类型，这部分内容将在下文中详细讲述。整型类别和实型类别都各有五种类型，同一类别中，所有的类型与其他同类别的都相容，您可以将一种类型的值赋给相同类别中不同类型的变量或属性，而只需要这个值的范围在被赋值的变量或属性的可能值范围内。例如，对于一个Shortint型的变量，可以接受在-128到127范围内的任意整数，例如Shortint类型的7；您不能将300赋给它，因为300已经超出了Shortint的范围了。将范围检查功能打开(选用Options|P

34、roject，并在Compiler Options Page中选择Range Checking)，将会检查出一个范围错误；如果Range Checking没有被打开，那么程序代码将可以执行，但被赋值的值将不是您期望的值。在一些情况下，您可以进行不同类型的变量或属性的赋值。一般来说，可以将一个较小范围的值赋给一个较大范围的值。例如，您可以将整型值10赋给一个接受实型值的Double属性而使得值成为10.0，但如果将一个Double类型的值赋给整形变量，则会出现类型错误。如果您不清楚类型的兼容性，可以参阅Delphi的在线帮助中“Type Compatibility and Assignment

35、Compatibility”主题。 常量常量在说明时就被赋予了一个值，在程序执行过程中是不可改变的。下面的例子说明了三个常量：constPi = 3.14159;Answer = 342;ProductName = Delphi;象变量一样，常量也有类型。不同的是，常量假设其类型就是常量说明中其所代表的值的类型。上文的三个常量的类型分别是real型、整形、字符串型。常量用“= 表示两边的值是相等的。2.1.3 过程与函数过程与函数是程序中执行特定工作的模块化部分。Delphi的运行库包含许多过程与函数以供您的应用程序调用。您不必了解过程与函数的逻辑，但要知道过程与函数的用途。在

36、对象中说明的过程和函数称为方法(Method)。所有的事件处理过程都是过程，以保留字procedure开头。每一个事件处理过程只包含了当这一事件发生时需要执行的程序代码。在事件处理过程中使用Delphi已经存在的过程与函数，只需在程序代码中调用它们即可。 一个调用Delphi方法的简单例程下文将通过对一个Memo部件的文本进行剪切、拷贝、粘贴、清除等编辑的应用程序编制，介绍使用Delphi过程和函数的调用方法。Memo(备注)部件有一个CutToClipboard方法，实现将用户在memo中选择的文本移到剪贴板上去。由于这个功能已经被建立在此方法中了，所以您只需知道这个方法鍪裁匆

37、约叭绾问褂盟纯伞?BR下面的语句表明如何调用一个名为Memo1的memo部件的CutToClipboard方法：Memo1.CutToClipboard;通过指定Memo1的名称，说明调用哪一个部件的CutToClipboard方法。如果不指明对象名称，Delphi会显示Unknown identifier错误。当该事件处理过程被触发，程序会执行CutToclipboard中的语句，将Memo1中的文本剪贴到剪贴板上去。下文的例程展示了如何调用Delphi的方法，实现将备注部件的文本信息剪切、拷贝到剪贴板上；将剪贴板上的标记文本粘贴到备注中，清除备注部件中的全部文本等四个功能。打开一个新的空窗

38、体，加入一个memo部件和四个按钮，并排列整齐。改变按钮部件的Name属性，分别命名为Cut,Copy,Paste,Clear。您会发现，当Name属性发生改变时，Caption属性将发生相应的变化。在Caption属性前加标“&”号设立加速键将memo部件的ScrollBars属性设为ScVertical，以便加上滚行条。将WordWrap属性设置为True，这样当用户输入文本到达Memo部件的右边缘时会自动回行。将Line属性第一行的Memo1文本删除，使得memo部件在初始显示时为空的。为每一个按钮建立如下的事件处理过程：procedure TForm1.CutClick(Sender:

39、 TObject)；begin Memo1.CutToClipboard;end;procedure TForm1.CopyClick(Sender: TObject);begin Memo1.CopyToClipboard;end;procedure TForm1.PasteClick(Sender: TObject);begin Memo1.PasteFromClipboard;end;procedure TForm1.ClearClick(Sender: TObject);begin Memo1.clear;end;执行此程序。您可以在备注部件中输入文本，在进行了文本的标记后，可以任意地

40、进行剪切、拷贝、粘贴和清除。当按钮被按动时，就调用相应的过程进行处理。用户可以通过查阅在线帮助进行Memo部件的Topic Search，在Memo Component项中查阅Method，会得到以上过程的详细说明。 调用Delphi的含参过程有些过程要求用户指明参数。被调用的过程会在执行时使用传入的参数值，这些值在过程中被认为是已经被说明的变量。例如，LoadFromFile方法在TString对象中被说明为：Procedure LoadFromFile(const FileName: String)；在调用这一过程时，应指明FileName参数是要装入的文件名称。下面的程序将

41、先打开Open对话框，当您选择了一个文件后，Delphi将把该文件读入一个Memo部件：begin OpenDialog.Execute;Memo1.lines.LoadFromFile(OpenDialog.FileName);end; 使用Delphi函数与过程一样，函数的程序代码也执行特定的工作。它和过程的差别为：函数执行时会返回一个值，而过程则没有返回值。函数可以用来赋给一个属性或变量；也可以使用返回值来决定程序的流程。前文中我们实际上已经接触过了函数。在讲述变量时，曾用到过下面的程序段： Edit1.Text := IntToStr(X + Y)；其中，IntToStr

42、(Value)把一个LongInt类型的数值转化为字符串的值，Value是IntToStr唯一的参数，它可以是一个整形的值、变量、属性或产生整形值的表达式。调用函数，必须把返回值赋给和此返回值类型兼容的变量或属性。有些函数返回一个True或False的布尔量，用户的程序可以根据返回值来决定跳转。下文的例程讲述了函数返回值为Boolean的判断用法：在窗体中加入一个ColorDialog对象和一个Name属性为ChangeColor的按钮。为按钮的onClick事件建立事件处理过程如下：procedure TForm1.ChangeColorClick(Sender: TObject);begi

43、n if ColorDialog1.Execute thenForm1.Color := ColorDialog1.ColorelseForm1.Color := clRed;end;此事件处理过程使用一个返回Boolean值的Execute方法。按动按钮，并在颜色对话框中选择一个颜色。如果按动OK按钮，ColorDialog.Execute方法将返回True，则Form1.Color将被赋值为ColorDialog1.Color，窗体显现您选用的颜色；如果按动颜色对话框的Cancel按钮，方法将返回False值，窗体将变为红色。2.1.4 跳转语句Object Pascal的跳转语句有if和

44、case两个。 if语句if语句会计算一个表达式，并根据计算结果决定程序流程。在上文的例程中，根据ColorDialog.Execute的返回值，决定窗体的背景颜色。if保留字后跟随一个生成Boolean值True或False的表达式。一般用“=”作为关系运算符，比较产生一个布尔型值。当表达式为True时，执行then后的语句。否则执行else后的代码，if语句也可以不含else部分，表达式为False时自动跳到下一行程序。if语句可以嵌套，当使用复合语句表达时，复合语句前后需加上beginend。else保留字前不能加“；”，而且，编译器会将else语句视为属于最靠近的if语句

45、。必要时，须使用beginend保留字来强迫else部分属于某一级的if语句。 case语句case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。用case语句进行逻辑跳转比编写复杂的if语句容易阅读，而且程序代码整形较快。下面的例程显示一个使用case语句的窗体：建立如下的事件处理过程：procedure TForm1.Button1Click(Sender: TObject);var Number : Integer;begin Number := StrToInt(Edit1.Text);case Number of1,3,5,7,9:

46、 Label2.Caption := 奇数;0,2,4,6,8: Label2.Caption := 偶数;10.100: begin Label2.Caption := 在10到100之间;Form1.Color := clBlue;end;elseLabel2.Caption := 大于100或为负数;end; end;执行程序，当Edit1部件接受到一个值，并按动“OK”按钮触发程序后，Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。2.1.5 循环语句Object

47、 Pascal的循环语句有三种：repeat、while和for语句。 repeat语句repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例程：i := 0;repeati := i+1;Writen(i);until i=10;当此语句被执行时，窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意，与其他语言不同的是，“=”是关系运算符，而不能进行赋值操作)直到repeat.until程序段的结尾才会被计算，这意味着repeat语句至少会被执行一次。 while语句wh

48、ile语句和repeat语句的不同之处是，它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。下面的例程达到和上面的repeat例程达到同样的效果：i := 0; while i10 dobegin i := i+1;writeln(i);end; for语句for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量，它的类型可以是整形、布尔型、字符型、枚举型或子界型。下面的程序段会显示1到5的数字，i为控制变量：var i : integ

49、er;for i := 1 to 5 dowriteln(i);以上介绍了三种循环语句。如果您知道循环要执行多少次的话，可以使用for语句。for循环执行速度快，效率比较高。如果您不知道循环要执行多少次，但至少会执行一次的话，选用repeat.until语句比较合适；当您认为程序可能一次都不执行的话，最好选用while.do语句。2.1.6 程序模块程序模块在Object Pascal中是很重要的概念。它们提供了应用程序的结构，决定了变量、属性值的范围及程序执行的过程。它由两个部分组成：可选择的说明部分和语句部分。如果有说明部分，则必在语句部分之前。说明部分包括变量说明、常量说明、类型说明、标

50、号说明、程序，函数，方法的说明等。语句部分叙述了可执行的逻辑行动。在Delphi中，最常见的程序模块便是事件处理过程中的程序模块。下面的事件处理过程是含有变量说明部分的程序模块：procedure TForm.Button1Click(Sender Tobject);var 程序模块的说明部分Name : string;begin 程序模块的语句部分Name := Edit1.Text;Edit2.Text := Welcome to Delphi+Name;end; 程序模块结束库单元也是程序模块。库单元的interface部分含有库函数、类型、私有，公有域的说明，也可以含有常量、变量的说明

51、。这一部分可以作为程序模块的说明部分。在库单元的implementation部分中通常含有各种事件处理过程，它们可以视为模块的语句部分，是事件处理模块。库单元模块结束于库单元结束的end.处。程序模块中可以包含其他的程序模块。上文库单元模块中含有事件处理模块。而库单元模块实际是在工程程序模块中。所有的Delphi应用程序都有相同的基本结构。当程序逐渐复杂时，在程序中加入模块即可。例如在库单元模块中加入事件处理模块，向工程中加入库单元模块等。模块化编程使得程序结构良好，并且对数据具有保护作用。2.1.7 关于作用范围 标识符的作用范围一个变量、常量、方法、类型或其他标识符的范围定义

52、了这个标识符的活动区域。对于说明这个标识符的最小程序模块而言，此标识符是局部的。当您的应用程序在说明一个标识符的程序模块外执行时，该标识符就不在此范围内。这意味着此时执行的程序无法访问这个标识符，只有当程序再度进入说明这个标识符的程序模块时，才可以访问它。下面的示意图表示一个含有两个库单元的工程，每个库单元中又各有三个过程或事件处理过程。 访问其他程序模块中的说明您可以在当前的程序模块中访问其他程序模块中的说明。例如您在库单元中编写一个事件处理过程来计算利率，则其他的库单元可以访问这个事件处理过程。要访问不在当前库单元中的说明，应在这个说明之前加上其他应用程序的名称和一个点号(.)。例如，在库单元Unit1中有事件处理过程CalculateInterest过程，现在您想在库单元Unit2中调用这一过程，则可以在Unit2的uses子句中加入Unit1，并使用下面的说明：Unit1.CalculateInterest(PrincipalInterestRate : Double)；应用