Delphi(pascal)的函数手册_编程必备

delphi(pascal)的函数手册名称类型说明---------------------------------------------------------------------------------- Abort 函数引起放弃的意外处理Abs 函数绝对值函数AddExitProc 函数将一过程添加到运行时库的结束过程表中Addr 函数返回指定对象的地址AdjustLineBreaks 函数将给定字符串的行分隔符调整为CR/LF序列Align 属性使控件位于窗口某部分Alignment 属性控件标签的文字位置AllocMem 函数在堆栈上分配给定大小的块AllowGrayed 属性允许一个灰度选择AnsiCompareStr 函数比较字符串（区分大小写）AnsiCompareText 函数比较字符串（不区分大小写）AnsiLowerCase 函数将字符转换为小写AnsiUpperCase 函数将字符转换为大写Append 函数以附加的方式打开已有的文件ArcTan 函数余切函数AssignFile 函数给文件变量赋一外部文件名Assigned 函数测试函数或过程变量是否为空AutoSize 属性自动控制标签的大小BackgroundColor 属性背景色BeginThread 函数以适当的方式建立用于内存管理的线程BevelInner 属性控件方框的内框方式BevelOuter 属性控件方框的外框方式BevelWidth 属性控件方框的外框宽度BlockRead 函数读一个或多个记录到变量中BlockWrite 函数从变量中写一个或多个记录BorderStyle 属性边界类型BorderWidth 属性边界宽度Break 命令终止for、while、repeat循环语句Brush 属性画刷Caption 属性标签文字的内容ChangeFileExt 函数改变文件的后缀ChDir 函数改变当前目录Checked 属性确定复选框选中状态Chr 函数返回指定序数的字符CloseFile 命令关闭打开的文件Color 属性标签的颜色Columns 属性显示的列数CompareStr 函数比较字符串（区分大小写）Concat 函数合并字符串Continue 命令继续for、while、repeat的下一个循环Copy 函数返回一字符串的子串Cos 函数余弦函数Ctl3D 属性是否具有3D效果Cursor 属性鼠标指针移入后的形状Date 函数返回当前的日期DateTimeToFileDate 函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr 函数将日期时间格式转换为字符串DateTimeToString 函数将日期时间格式转换为字符串DateToStr 函数将日期格式转换为字符串DayOfWeek 函数返回星期的数值Dec 函数递减变量值DecodeDate 函数将日期格式分解为年月日DecodeTime 函数将时间格式分解为时、分、秒、毫秒Delete 函数从字符串中删除子串DeleteFile 命令删除文件DiskFree 函数返回剩余磁盘空间的大小DiskSize 函数返回指定磁盘的容量Dispose 函数释放动态变量所占的空间DisposeStr 函数释放字符串在堆栈中的内存空间DitherBackground 属性使背景色的色彩加重或减少50%DragCursor 属性当鼠标按下时光标的形状DragMode 属性按动的作用方式DropDownCount 属性容许的显示数据项的数目EditMask 属性编辑模式Enabled 属性是否使标签呈现打开状态EncodeDate 函数将年月日合成为日期格式EncodeTime 函数将时、分、秒、毫秒合成为时间格式EndMargin 属性末尾边缘Eof 函数对有类型或无类型文件测试是否到文件尾Eoln 函数返回文本文件的行结束状态Erase 命令删除外部文件ExceptAddr 函数返回引起当前意外的地址Exclude 函数从集合中删除一些元素ExceptObject 函数返回当前意外的索引Exit 命令立即从当前的语句块中退出Exp 函数指数函数ExpandFileName 函数返回包含绝对路径的字符串ExtendedSelect 属性是否允许存在选择模式，True时，MultiSelect才有意义ExtractFileDir 函数返回驱动器和路径ExtractFileExt 函数返回文件的后缀ExtractFileName 函数返回文件名ExtractFilePath 函数返回指定文件的路径FileAge 函数返回文件已存在的时间FileClose 命令关闭指定的文件FileCreate 命令用指定的文件名建立新文件FileDateToDateTime 函数将DOS的日期格式转换为DELPHI的日期格式FileExists 函数检查文件是否存在FileGatAttr 函数返回文件的属性FileGetDate 函数返回文件的DOS日期时间标记FileOpen 命令用指定的存取模式打开指定的文件FilePos 函数返回文件的当前指针位置FileRead 命令从指定的文件读取FileSearch 命令在目录中搜索指定的文件FileSeek 函数改变文件的指针FileSetAttr 函数设置文件属性FileSetDate 函数设置文件的DOS日期时间标记FileSize 函数返回当前文件的大小FileWrite 函数对指定的文件做写操作FillChar 函数用指定的值填充连续字节的数{e.gGetMem(R, SizeOf(TMyRecord));FillChar(R^, SizeOf(TMyRecord), #0);SetLength(R.S, $FFFF);FreeMem(R); // 不会释放R.S 内存空间!!}FindClose 命令终止FindFirst/FindNext序列FindFirst 命令对指定的文件名及属性搜索目录FindNext 命令返回与文件名及属性匹配的下一入口FloatToDecimal 函数将浮点数转换为十进制数FloatToStrF 函数将浮点数转换为字符串FloatToStr 函数将浮点数转换为字符串FloatToText 函数将给定的浮点数转换为十进制数FloatToTextFmt 函数将给定的浮点数转换为十进制数Flush 函数将缓冲区的内容刷新到输出的文本文件中FmtLoadStr 函数从程序的资源字符串表中装载字符串FmtStr 函数格式化一系列的参数，其结果以参数Result返回Font 属性设置字体Format 函数格式化一系列的参数并返回Pascal字符串FormatBuf 函数格式化一系列的参数FormatDateTime 函数用指定的格式来格式化日期和时间FormatFloat 函数指定浮点数格式Frac 函数返回参数的小数部分FreeMem 函数按给定大小释放动态变量所占的空间GetDir 返回指定驱动器的当前目录GetHeapStatus 返回内存管理器的当前状态GetMem (var P: Pointer; Size: Integer);{(建立一指定大小的动态变量)分配一个指定大小的内存块（连续）,并将指针指向该处}GetMemoryManager 返回内存管理器的入口点Glyph 函数按钮上的图象学习视频网：Halt 停止程序的执行并返回到操作系统Hi 返回参数的高地址位High 返回参数的上限值Hint 属性提示信息Int 返回参数的整数部分Include 添加元素到集合中Insert 在字符串中插入子串IntToHex(,) 将整型数转换为十六进制数。

两个参数，第二个是返回十六进制数的最小长度IntToStr 将整型数转换为字符串IOResult 返回最新的I/O操作完成状态IsV alidIdent 测试字符串是否为有效的标识符Items 属性默认显示的节点Kind 属性摆放样式LargeChange 属性最大改变值Layout 属性图象布局Length 函数返回字符串的动态长度Lines 属性缺省显示内容Ln 函数自然对数函数Lo 函数返回参数的低地址位LoadStr 函数从应用程序的可执行文件中装载字符资源LowerCase 函数将给定的字符串变为小写Low 函数返回参数的下限值Max 属性最大值MaxLength 属性最大长度Min 属性最小值MkDir 命令建立一子目录Move 函数从源到目标复制字节MultiSelect 属性允许同时选择几个数据项Name 属性控件的名字New (var P: Pointer);{为一个指针变量分配内存，会自动计算指针所指数据结构需要空的空间大小(建立新的动态变量并设置一指针变量指向它)}NewStr 函数在堆栈上分配新的字符串Now 函数返回当前的日期和时间Odd 测试参数是否为奇数OnActivate 事件焦点移到窗体上时触发OnClick 事件单击窗体空白区域触发OnDblClick 事件双击窗体空白区域触发OnCloseQuery 事件使用者试图关闭窗体触发OnClose 事件窗体关闭后才触发OnCreate 事件窗体第一次创建时触发OnDeactivate 事件用户切换到另一应用程序触发OnDragDrop 事件鼠标拖放操作结束时触发OnDragOver 事件有其他控件从他上面移过触发OnMouseDown 事件按下鼠标键时触发OnMouseUp 事件释放鼠标键时触发OnMouseMove 事件移动鼠标时触发OnHide 事件隐藏窗体时触发OnKeyDown 事件按下键盘某键时触发OnKeyPress 事件按下键盘上的单个字符键时触发OnKeyUp 事件释放键盘上的某键时触发OnPaint 事件窗体上有新部分暴露出来触发OnResize 事件重新调整窗体大小触发OnShow 事件在窗体实际显示之前瞬间触发Ord 返回序数类的序数OutlineStyle 属性类型OutOfMemoryError 引起OutOfMemory意外PageIndex 属性页索引Pages 属性页ParamCount 函数返回在命令行上传递给程序的参数数量ParamStr 函数返回指定的命令行参数Pen 属性画刷设置Pi 函数返回圆周率PiPicture 属性显示图象PictureClosed 属性设置Closed位图PictureLeaf 属性设置Leaf位图PictureMinus 属性设置Minus位图PictureOpen 属性设置Open位图PicturePlus 属性设置Plus位图Pos 函数在字符串中搜索子串Pred 函数返回先前的参数Random 函数返回一随机函数Randomize 函数用一随机数初始化内置的随机数生成器Read 函数对有格式的文件，读一文件组件到变量中；对文本文件，读一个或多个值到一个或多个变量中Readln 函数执行Read过程，然后跳到文件下一行ReadOnly 属性只读属性ReAllocMem (var P: Pointer; Size: Integer);{重新分配指定大小内存块，参数P必须是nil或者指向一个由GetMem, AllocMem, 或ReallocMem分配的内存变量，其分配的内存是连续的，会把前面已有的数据移到新分配的内存中去}Rename 函数重命名外部文件RenameFile 函数对文件重命名Reset 函数打开已有的文件Rewrite 函数建立并打开一新的文件RmDir 函数删除空的子目录Round 函数将实数值舍入为整型值RunError 函数停止程序的执行ScrollBars 属性滚动条状态Seek 函数将文件的当前指针移动到指定的组件上学习视频网：SeekEof 函数返回文件的文件结束状态SeekEoln 函数返回文件的行结束状态SelectedColor 属性选中颜色SetMemoryManager 函数设置内存管理器的入口点SetLength函数为一个字符串变量分配空间SetTextBuf 函数给文本文件指定I/O缓冲区Shape 属性显示的形状ShowException 函数显示意外消息与地址Sin 函数正弦函数SizeOf 函数返回参数所占的字节数SmallChange 属性最小改变值Sorted 属性是否允许排序Sqr 函数平方函数Sqrt 函数平方根函数StartMargin 属性开始边缘State 属性控件当前状态Str 函数将数值转换为字符串StrAlloc 函数给以NULL结束的字符串分配最大长度-1的缓冲区StrBufSize 函数返回存储在由StrAlloc分配的字符缓冲区的最大字符数StrCat 函数将一字符串附加到另一字符串尾并返回合并的字符串StrComp 函数比较两个字符串StrCopy 函数将一个字符串复制到另一个字符串中StrDispose 函数释放堆栈上的字符串StrECopy 函数将一字符串复制到另一个字符串并返回结果字符串尾部的指针StrEnd 函数返回指向字符串尾部的指针Stretch 属性自动适应控件的大小StrFmt 函数格式化一系列的参数StrIComp 函数比较两个字符串（不区分大小写）StringToWideChar 函数将ANSI字符串转换为UNICODE字符串StrLCat 函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串StrLComp 函数以最大长度比较两个字符串StrLCopy 函数将一个字符串中的字符复制到另一个字符串中StrLen 函数返回字符串中的字符数StrLFmt 函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针StrLIComp 函数以最大长度比较两个字符串（不区分大小写）StrLower 函数将字符串中的字符转换为小写StrMove 函数将一个字符串中的字符复制到另一个字符串中StrNew 函数在堆栈上分配一个字符串StrPas 函数将以NULL结束的字符串转换为PASCAL类的字符串StrPCopy 函数将PASCAL类的字符串复制为以NULL结束的字符串StrPLCopy 函数从PASCAL类的最大长度字符串复制为以NULL结束的字符串StrPos 函数返回一个字符串在另一个字符串中首次出现指针StrRScan 函数返回字符串中最后出现字符的指针StrScan 函数返回字符串中出现首字符的指针StrToDate 函数将字符串转换为日期格式StrToDateTime 函数将字符串转换为日期/时间格式StrToFloat 函数将给定的字符串转换为浮点数StrToInt 函数将字符串转换为整型StrToIntDef 函数将字符串转换为整型或默认值StrToTime 函数将字符串转换为时间格式StrUpper 函数将字符串中的字符转换为大写Style 属性类型选择Suce 函数返回后继的参数Swap 函数交换参数的高低地址位Tabs 属性标记每一项的内容TabIndex 属性标记索引Text 属性显示的文本TextToFloat 函数将字符串（以NULL结束的格式）转换为浮点数Time 函数返回当前的时间TimeToStr 函数将时间格式转换为字符串Trim 函数从给定的字符串中删除前导和尾部的空格及控制字符TrimLeft 函数从给定的字符串中删除首部的空格及控制字符TrimRight 函数从给定的字符串中删除尾部的空格及控制字符Trunc 函数将实型值截取为整型值Truncate 函数截去当前文件位置后的内容UnSelectedColor 属性未选中颜色UpCase 将字符转换为大写UpperCase 将给定的字符串变为大写V al 函数将字符串转换为整型值V arArrayCreate 函数以给定的界限和维数建立变体数组V arArrayDimCount 函数返回给定变体的维数V arArrayHighBound 函数返回给定变体数组维数的上界V arArrayLock 函数锁定给定的变体数组V arArrayLowBound 函数返回给定变体数组维数的下界V arArrayOf 函数返回指定变体的数组元素V arArrayRedim 函数通过改变上限来调整变体的大小V arArrayUnlock 函数解锁指定的变体数组V arAsType 函数将变体转换为指定的类型V arCase 函数将变体转换为指定的类型并保存他V arClear 函数清除指定的变体V arCopy 函数将指定的变体复制为指定的变体V arFormDateTime 函数返回包含日期时间的变体V arIsArray 函数测试变体是否为数组V arIsEmpty 函数测试变体是否为UNASSIGNEDV arIsNull 函数测试变体是否为NULLV arToDateTime 函数将给定的变体转换为日期时间V arType 函数将变体转换为指定的类型并保存他Visible 属性控件的可见性学习视频网：WantReturns 属性为True时，按回车键产生一个回车符；为False时，按下Ctrl+Enter才产生回车符Write 命令对有格式的文件，写一变量到文件组件中；对文本文件，写一个或多个值到文件中Writeln 命令执行WRITE过程，然后输出一行结束标志WideCharLenToString 函数将ANSI字符串转换为UNICODE字符串WideCharLenToStrWar 函数将UNICODE字符串转换为ANSI字符串变量WideCharToString 函数将UNICODE字符串转换为ANSI字符串WideCharToStrV ar 函数将UNICODE字符串转换为ANSI字符串变量absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. varStr: string[32];StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.beginStr := 'abc';Edit1.Text := IntToStr(StrLen);end;abstract//它允许你创建抽象的方法, 包括有抽象方法的类称为抽象类.//Abstract关键字必须与Virtual或Dynamic关键字同时使用, 因为抽象方法必须被覆盖式实现.//抽象类不能实例化, 抽象方法不能包含方法体.typeTDemo = classprivateprotectedprocedure X; virtual; abstract;publicconstructor Create;destructor Destroy; override;publishedend;and//一、表示逻辑与if (a>0) and (b>0) then//二、表示位运算学习视频网 a,b,c: Integer;beginc := (a and b);end;//使用And表示逻辑时, And左右的表达式必须用小括号括起, 以避免以生条件的冲突.//例如:if a>0 and b>0 then//编译器可能会理解为:if a>(0 and b)>0 then//或:if (a>0) and (b>0) then//但是实际编译时, 编译器会产生一个冲突, 报告错误.//并且第一种可能包含了a>b>c的形式, 这在Delphi中不被支持.//所以使用And运算符时必须使用括号, 以区分左右的条件.//表示位运算时也必须加上括号, 将And以及左右参数括起.array//Array用于表示数组, 任何的对象都能被声明成数组.数组分为静态和动态的２种.//静态数组varArr1: array [1..10] of Integer;//动态数组, 由于声明时不知其元素个数, 所以必须在后期用SetLength方法设置数组的大小varArr2: array of Integer;//数组作为参数时, 不能传入数组的大小, 只能传入数组名, 然后用Length方法获取数组的元素个数function X(A: array of Integer): Integer;vari: Integer;beginResult := 0;for i := 0 to Length(A)-1 doResult := Result + A[i];end;as//As用于将一个对象转换为另一个对象procedure BtnClick(Sender:TObject);begin(Sender as TButton).Caption := 'Clicked';学习视频网：//对于对象填充接口的转换, 必须用As进行(HTTPRIO as IExp).GetConnection;//As不能用于数据类型的转换, 下面的代码是错误的:vari: Integer;s: string;begins := (i as string);end;//正确写法是:s := string(i);asm//Asm关键字用于插入汇编代码, 使用汇编代码时, 必须使用asm...end;的结构, 而非begin...end;function IntToHex(Value: Integer; Digits: Integer): string;asmCMP EDX, 32JBE @A1xor EDX, EDX@A1: PUSH ESIMOV ESI, ESPSUB ESP, 32PUSH ECXMOV ECX, 16CALL CvtIntMOV EDX, ESIPOP EAXCALL System.@LStrFromPCharLenADD ESP, 32POP ESIend;assembler//Assembler关键字用于支持早期的汇编, 如80386等.//它和Asm的区别:Asm允许使用Win32汇编, 而Assembler只允许80x86汇编, 它不允许Invoke语句的出现.function IntToHex(AValue: Int64): string; assembler;automated//Automated访问区分符用于描述一个自动类型的成员, 它能够使程序的版本向下兼容.//ComObj单元内的成员及其实例不能使用Automated访问区分符.typeTDemo = classautomatedStr:WideString;end;//在程序的下一个版本中, 将Str做了修改, 变成typeTDemo = classautomatedStr: AnsiString;end//则新版本的Str变量能够接受旧版本的WideString型数据, 并自动转换成AnsiString.//在实际开发中, 如果没有特殊的需要, 一般不用automated访问区分符.begin//begin关键字用于表示一段程序或一个结构的开始, 必须用end关键字来结束.procedure X;beginShowMessage('A Demo');end;//一般的结构, 如If, For, While等也需要用begin关键字来标出结构起始点for i:=1 to 100 dobeginsum := sum + i;if sum > 1000 then Break;end;case//Case语句用于完成条件选择, Case语句的的被选择对象必须是有序类型, 包括整型, 枚举类型, 字符型等.//Case语句必须由end结束,如果没有相符合的选择项, 可以加入else来作出通用选择.function GetDays(AYear,AMonth: Integer): Integer;begincase AMonth of1,3,5,7,8,10,12: Result := 31;4,6,9,11: Result := 30;2: beginif IsLeapYear(AYear) thenResult:=29elseResult:=28;学习视频网：elseResult:=0;end;cdecl//Cdecl是函数调用协定的一种, 它规定了从C或C++编写的DLL中调用函数所必须遵守的规则.//它可以将C或C++中的数据类型转换为Delphi的.//例如C++中的代码:int X(int i){return i*2;}//这个函数被编译在Demo.dll中, 用Delphi调用时必须使用:function X(i: Integer): Integer; Cdecl; external 'Demo.dll';class//Class关键字用于声明或继承一个类, 也可以使类和接口同时继承.//另外, Class关键字也能用于声明类通用方法, 使得父类可以从类内访问子类的方法.typeClassDemo = class(TObject)privatepublicconstructor Create;end;//如果用class声明方法, 则该方法在类与相关类中都可以使用, 譬如:typeClassA = classprivatepublicprocedure Y;end;typeClassB = class(ClassA)privatepublicclass procedure X;end;//则在使用时ClassA能够直接访问ClassB的X方法procedure ClassA.Y;beginend;//此时父类将子类的class方法作为自身的方法进行调用.const//Const关键字用于声明常量, 使用const声明的数据将不能在程序中被改变. //也可以用来声明函数参数, 用const指定的参数不允许在函数中改变. const MyFileName = 'Delphi';const MyInteger = 100;//用Const声明常量不需要指出其数据类型, 系统会自动判断类型, 并作自动调整.//函数中可以用const声明不可更改的参数function X(const i: Integer): string;//此时在函数操作过程中, i的值不可改变.constructor//constructor关键字用来声明一个类的构造函数, 当类被实例化时, 首先调用此函数//构造函数一般用Create表示, Create方法能够连带类中存在的CreateWnd方法.typeClassDemo = class(TObject)privatefValue: Integer;publicconstructor Create;end;constructor ClassDemo.Create;beginfValue := 0;end;contains//Contains关键字指出了某个包(Package)是否包含某个文件.//用Contains引入的文件必须被添加到包文件中, 它可以避免关键文件的引用丢失.package DATAX;requiresrtl, clx;containsDb, DBLocal, DBXpress;end.学习视频网：default//Default关键字用于指出一个属性的默认值//只有有序类型的属性才允许默认值的存在, 否则必须在构造函数中初始化属性值.typeClassDemo = classprivatefValue: Integer;publishedproperty Value: Integer read fValue write fValue default 0;end;//它也可以指出一个类的默认属性property strings[Index: Integer]: string read GetString write PutString; Default;destructor//Destructor用于标识析构函数, 析构函数在类被释放时自动调用.//析构函数只允许覆盖, 再不允许重载.析构函数通常用Destroy作为函数名. typeClassDemo = class(TComponent)publicdestructor Destroy;override;end;//由于TComponent类中也有Destroy方法, 所以要将其重写//但是若要重载析构函数, 则不允许, 下面代码是错误的:destructor Destroy; overload;dispid//DispId关键字被用在DispInterface接口中, 用于指定特定的适配序号.//在DispInterface接口中, 适配序号必须是唯一的,//如果不指定DispId, 则系统会自动分配适配序号给接口内每一个方法.//可以通过适配序号访问DispInterface接口中的方法.typeIStringsDisp = dispinterface['{EE05DFE2-5549-11D0-9EA9-0020AF3D82DA}']property ControlDefault[Index: Integer]: Olevariant dispid 0; default;function Count: Integer; dispid 1;property Item[Index: Integer]: Olevariant dispid 2;procedure Remove(Index: Integer); dispid 3;procedure Clear; dispid 4;function Add(Item: Olevariant): Integer; dispid 5;function _NewEnum: IUnknown; dispid -4;end;dispinterface//DispInterface用于声明一个特定的适配器接口, 这个适配器能够接受标准系统接口中传入传出的数据.//用DispInterface声明的接口不能被继承, 只能够被引用.//DispInterface中方法只能调用, 并且必须被动态绑定.//可以通过DispId为接口内方汉分配适配序号.//DispInterface仅能用于Windows平台, 如果在Linux下进行开发, 则此关键字会自动被系统屏蔽.//通常情况下, 不使用DispInterface.//实例请参见DispIddiv//Div用于求两数之整数商.用于Div运算的两个数值必须均为整型, 其运算结果也为整型.vara,b,c:Integer;begina := 20;b := 3;c := a div b; {6}end;do//Do关键字用于For, While, On, With语句, 构成特定的结构//For语句:for i := 1 to 100 do sum:=sum+i;//While语句:while i < 100 dobeginsum := sum + i;Inc(i);end;//On语句(异常处理):tryi := StrToInt(s);excepton exception do ShowMessage('Error!');end;//With语句:with Memo1.Lines dobegin学习视频网：Clear;Append('abc');Append('123');end;downto//DownTo关键字用于For语句, 指明循环变量是递减的.for i := 100 downto 1 doListBox1.Items.Add(IntToStr(i));//在For语句中, 循环变量递增用To关键字, 递减用DownTo关键字.dynamic//Dynamic用于声明一个动态的方法,//动态方法可以被覆盖, 并且可以使代码大小尽可能的减少(区别于Virtual). procedure X(i: Integer); dynamic;else//else用于引导程序的运行方向, 它可以与If, Case和On语句联用, 当条件不满足时, 转到else下运行//If语句(在If语句中, else前不允许有分号):if a > b thenc := aelsec:=b;//Case语句:case Tag Of1:Result:=1;2:Result:=2;3:Result:=3;elseResult:=0;end;//On语句(异常处理):tryi := StrToInt(s);Excpeton EZeroDivide do Result := 1;on EOverflow do Result := 2;elseResult := 0;end;end//End用于结束一个语句块或是一个单元.//它可以与begin, Case, Class, Interface, Asm, Unit, Package等相匹配. //对于语句块(局部结束), End后必须添加分号.//而对于单元或包(全局结束), end后必须添加句号.//在If语句中else关键字前的End后不允许添加符号.procedure X;beginwith Button1 dobeginif Button1.ShowHint thenButton1.Caption := 'Hinted'elseButton1.Caption := 'Not Hinted';end;end;//在包内使用End来结束:package DATAX;requiresrtl,clx;contains Db, DBLocal, DBXpress;end.except//except关键字用于异常处理, 必须用在try语句内, 如果发生异常, 则执行except后的语句tryi := StrToInt(s);exceptShowMessage('Error!');end;export//Export标明了函数调用协定, 指出函数可以被输出, 输出的函数能被本地或远程调用.//其他程序可以用dll的形式调用程序内的函数.它是向下兼容的.function Add(a,b: Integer): Integer; export;//如果这个程序被编译为Demo.exe, 并且另一个程序需要调用这个函数, 可以使用以下语句function Add(a,b: Integer): Integer; stdcall; external 'Demo.exe';学习视频网：exports//exports用于输出对象, 它必须被用在接口和实现之间, 可以同时输出多个项, 项与项之间用逗号分开.library Demo;function X(i: Integer): string; stdcall;beginResult:=IntToStr(i);end;exportsX;beginend.//如果输出的对象被重载(重载对象必须保证参数类型或个数不同), 则必须给对象起个别名, 并注明参数.library Demo;function X(i: Integer): string; overload; stdcall;beginResult := IntToStr(i);end;function X(s: string): Integer; overload; stdcall;beginResult := StrToInt(s);end;exportsX(i: Integer) name 'x1',X(s: string) name 'x2';beginend.external//External关键字用于引用一个外部的或是OBJ内的方法.{$L Demo.OBJ}procedure X(i:Integer);external;//如果是从dll或外部程序中引用, 则可以使用以下代码:function A(FileName: string): string; external 'Demo.dll';//如果被引用的函数被重载, 则必须另外指出引用的名称.function A(Name: string): string; overload; stdcall; external 'Demo.dll' name 'A1';function A(Code: Integer): string; overload; stdcall; external'Demo.dll' name 'A2';//使用External关键字时, 必须注意大小写, 否则将出现错误.far//Far标明了函数调用协定, 指出函数可以被远程调用.//其他程序可以用dll的形式调用程序内的函数.它是向下兼容的.function Add(a,b: Integer): Integer; Far;//如果这个程序被编译为Demo.exe, 并且另一个处于其他计算机的程序需要调用这个函数, 可以使用以下语句:function Add(a,b: Integer): Integer; stdcall; external 'Demo.exe';file//File关键字指出了文件操作类型, 文件必须被声明为File,//如果在File后追加Of和文件类型, 则文件可以被定义为读写指定类型数据. typeTPerson = recordPName: string[32];PAge: Integer;end;varPFile: file of TPerson;finalization//finalization关键字标识了单元被释放时所要调用的方法,//通常是释放掉单元中不能自动释放的对象, 也可以不用.//finalization最常用的情况是对OLE对象做反初始化.initializationActiveX.OleInitialize(nil);finalizationActiveX.OleUninitialize;finally//finally关键字指出了异常处理中最后必须要调用的方法,//不论是否发生异常, finally后的语句总是在try语句结束时执行.tryNode := Node.GetNext;学习视频网：Edit1.Text := Node.Text;finallyNode := nil;end;for//For关键字引出For循环结构, 用于做指定次数的循环.for i := 1 to 100 do sum := sum + i;//如果循环变量是递减的, 则可以用DownTo关键字for i := 100 downto 1 do Inc(sum);forward//Forward关键字用于方法的前置定义.只定义方法声明, 然后在程序的后面对方法进行实现.//这么做有利于代码的可读性, 可以将所有的声明放在一起, 然后将所有的实现也放在一起.function X(i: Integer): Integer; forward;procedure Y(s: string); forward;...function X;beginResult := i * 2;end;procedure Y;beginWriteLn(s);end;//用Forward前置声明的方法在实现时不需要再输入方法的参数和返回值, 直接使用方法名即可.function//Function用于声明函数function X(i: Integer): Integer;//它也可以用于动态函数的声明typeTFun = function(i: Integer): Integer of object;//动态声明时, 不需要指出函数名, 只需要指出参数和返回类型就可以, 具体的函数名可以在后期绑定.goto//Goto语句用在跳转行号, 可以跳转到当前结构层内任意位置.//必须在声明处用label关键字声明行号.//由于Goto语句会破坏程序的结构, 不推荐使用.vara,b: Integer;labelX,Y;beginif a > b thengoto Xelsegoto Y;X:WriteLn('a > b');Y:WriteLn('b > a');end;if//If关键字引出If条件语句, 用于对条件进行判断.vara,b: Integer;begina := 2;b := 3;if a>b thenWriteLn('a=' + IntToStr(a))elseWriteLn('b=' + IntToStr(b));end;//If语句的通常结构是If...Then...else, else语句也可以不要.//在If语句内如果有多个子语句, 则必须用begin...End结构进行区分. if a > b thenbeginWriteLn('a>b');WriteLn('a=' + IntToStr(a));WriteLn('b=' + IntToStr(b));EndelseWriteLn('b>a');implementation//Implementation标识了单元中的实现部分, 单元的基本结构为:学习视频网：。