()+"/"/>");

77.Response.Write("");

78.Response.Write("");

79.Response.Write("");

80.

81.}

82.}

83.}

84.}

Delphi如何使用基本的绘图函数绘制统计图

一个windows自带的画图工具是无论如何也不能满足我们的画图需要的，很多效果都需要我们在另外的工具中来实现。这些高级的功能是如何实现的呢，如何操纵一些基本的属性和函数，让它们最终能作出我们想要的效果呢？这里我们以绘制统计图来说明这些问题。 解决思路―― 这里，我们暂且先撇开具体的问题，综合地一下讨论画图的问题。 画图工具是基本元素的具体实现，对于我们初学者来说，还是有很好的参考价值的，在delphi 5中有一个自带的工程例子“……Borland\Delphi5\Demos\Doc\Graphex”，这个例子可以实现一些基本的绘图功能。对这个例子多加修改，一定会有所收获的。这里就不列出它的详细代码了，有心的读者可以自己找到这个例子。我这里只是想综合地讨论这方面的问题。使用DELPHI编写绘图软件的灵魂就在于操作画布,画笔和刷子，尽可能地挖掘它们的属性和相关参数的设置。 (一)画布 画布,画笔和刷子之间的关系很明了.其实,画笔和刷子都是画布的一个属性.而画布也只是TForm,TImage,TShape等组件对象的一个属性,专门负责与图象相关的信息打交道.它的主要作用可以概括如下几点: 1.指定使用画笔,刷子和字体的使用类型; 2.绘制和填充指定形状的线或图形; 3.修饰和改变图象; 画布的主要属性有: Brush--指定填充图形和背景的样式 CanvasOrientation--指定画布的定位类型,有coLeftToRight, coRightToLeft两个属性; ClipRect--指定剪切矩形的边界; CopyMode--指定图形图象的复制模式; Font--指定画布上使用的字体; Handle--为画布指定窗口GDI对象的设备描述表; LockCount--指定画布被别的线程锁定的次数; Pen--指定画布上使用的画笔,具体见下面描述; PenPos--指定画笔当前的位置; Pixels--指定当前剪切矩形的象素颜色; TextFlags--指定字体在画布上的显示方式，有ETO_CLIPPED，ETO_OPAQUE，ETO_RTLREADING，ETO_GL YPH_INDEX,ETO_IGNORELANGUAGE,ETO_NUMERICSLOCALETO_NUMERIC SLATIN等值可选; 画布相关的API函数及其注释如下: Arc--按指定方式画一条弧; BrushCopy--把位图复制到指定的画布的矩形中，用画布刷子颜色替换位图的颜色; Chord--按指定方式画弦; CopyRect--从一个矩形区域复制部分图象到另一个矩形区域; Draw--用指定参数在指定位置画图; DrawFocusRect--按指定焦点风格，通过异或操作来绘制一焦点矩形; Ellipse--按指定参数画一椭圆; FillRect--按指定的刷子填充一矩形; FloodFill--使用当前选定的刷子填充指定设备描述表中的一块区域;

delphi数学模块函数、过程大全

function ArcCos(const X : Extended) : Extended; overload; function ArcCos(const X : Double) : Double; overload; function ArcCos(const X : Single) : Single; overload; function ArcSin(const X : Extended) : Extended; overload; function ArcSin(const X : Double) : Double; overload; function ArcSin(const X : Single) : Single; overload; function ArcTan2(const Y, X: Extended): Extended; procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register; function Tan(const X: Extended): Extended; function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } function Secant(const X: Extended): Extended; { 1 / cos(X) } function Cosecant(const X: Extended): Extended; { 1 / sin(X) } function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } function RadToDeg(const Radians: Extended): Extended; inline; { Degrees := Radians * 180 / PI } function RadToGrad(const Radians: Extended): Extended; inline; { Grads := Radians * 200 / PI } function RadToCycle(const Radians: Extended): Extended; inline; { Cycles := Radians / 2PI } function DegToRad(const Degrees: Extended): Extended; inline; { Radians := Degrees * PI / 180} function DegToGrad(const Degrees: Extended): Extended; function DegToCycle(const Degrees: Extended): Extended; function GradToRad(const Grads: Extended): Extended; inline; { Radians := Grads * PI / 200 } function GradToDeg(const Grads: Extended): Extended; function GradToCycle(const Grads: Extended): Extended; function CycleToRad(const Cycles: Extended): Extended; inline; { Radians := Cycles * 2PI } function CycleToDeg(const Cycles: Extended): Extended; function CycleToGrad(const Cycles: Extended): Extended; { Hyperbolic functions and inverses } function Cot(const X: Extended): Extended; inline; { alias for Cotan } function Sec(const X: Extended): Extended; inline; { alias for Secant } function Csc(const X: Extended): Extended; inline; { alias for Cosecant } function Cosh(const X: Extended): Extended; function Sinh(const X: Extended): Extended; function Tanh(const X: Extended): Extended; function CotH(const X: Extended): Extended; inline; function SecH(const X: Extended): Extended; inline; function CscH(const X: Extended): Extended; inline; function ArcCot(const X: Extended): Extended; { IN: X <> 0 } function ArcSec(const X: Extended): Extended; { IN: X <> 0 } function ArcCsc(const X: Extended): Extended; { IN: X <> 0 } function ArcCosh(const X: Extended): Extended; { IN: X >= 1 } function ArcSinh(const X: Extended): Extended;

delphi面试题及答案

delphi面试题及答案 【篇一：delphi程序期末试题答案】 一、单选题（每小题2分，共30分） 1．在 radiogroup 组件中有 4 个单选框，当选中第 2 个单选框时，radiogroup 组件中的 itemindex 属性值应为（b）。 a．0 b．1c．2d．3 2．函数和过程的区别为（a）。 a．函数执行后返回一个值，而过程不需返回值b．过程执行后返回一个值，而函数不需返回值c．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方d．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方3．32 and 27 的值是（b）。 a．59b．0c．27d．32 4．窗体与数据模块的扩展名是（b）。 a．.dcu b．.dfm c．.pas d．.dpr 5．delphi 中用什么函数来析构一个组件（c）。 a．constructor b．destroy c．free d．create 6．一个指针变量ptr 的域成员 fs 访问的方法是（c）。 a．ptr-fs b．ptr.fsc．ptr^fs d．ptr@fs 7．type aarrays=[1?8,1?5] of integer ，该类型定义了多少个下标元素（d）。 a．45 b．54 c．48 d．40 8．delphi 的所有类都是从什么类继承下来的（b）。 a．tcomponent b．tobject c．tstream d．tnull 9．定义构造函数时用到的保留字是（c）。 a．class b．.implementation c．create d．construction 10．下列组件中属于可视组件的是哪一个（d）。 a．tdatasource b．topendialog c．ttable d．tscrollbar 11．设有过程 procedure pro(var x,y:integer); 变量 a , b 为整型 变量，其值分别为 5、6，则合法的过程调用语句是（a．pro(5,6) b．pro(5,b) c．pro(a,6)d．pro(a,b) 12．下列组件中不能获取焦点的是（b）。 a．tedit b．tlabelc． trichedit d．ttreeview13．定义抽象类必 须使用的指令字是（a）。 a．abstractb．virtualc．dynamicd．override” 14．delphi是哪个公司的产品（c）。 a． microsoft b．ibm c．borland d．dom

DELPHI常用函数说明

一、数据类型转换函数1 在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明：该函数用于将“浮点型”转换成“字符型”。 参考实例： Edit1.Text := FloatToStr(1.981); 2.IntToStr 功能说明：该函数用于将“整数型”转换成“字符型”。 参考实例： S := IntToStr(10);(注：S为String类型变量。) 3.IntToHex 功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数1。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。 参考实例： Edit1.Text := IntToHex('100', 2);

执行结果，Edit1.Text等于64。 注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。 4.StrToInt 功能说明：该函数用于将“字符型”转换成“整数型”。 参考实例： I := StrToInt('100'); 注意：不能转换如StrToInt('ab')或StrToInt('好')这样的类型，因为他们并不存在数字型。 5.StrToFloat 功能说明：该函数用于将“字符型”转换成“浮点型”。 参考实例： N := StrToFloat(Edit1.Text); 注意：Edit1.Text中的内容为1.981(凡在Edit 控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。

delphi常用函数大全

delphi常用函数大全（转） 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函数将日期格式转换为字符串

Delphi函数大全

Delphi函数大全 首部function Languages: TLanguages; $[ 功能返回系统语言对象 说明通过此函数可以得到系统的语言环境 参考type 例子 12a12c12a12c. 参考 例子:= IsValidIdent; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToStr(Value: Integer): string; overload; $[ 首部function IntToStr(Value: Int64): string; overload; $[ 功能返回整数Value转换成字符串 说明Format('%d', [Value]) 参考function 例子:= IntToStr; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToHex(V alue: Integer; Digits: Integer): string; overload; $[ 首部function IntToHex(V alue: Int64; Digits: Integer): string; overload; $[ 功能返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考function 例子:= IntToHex, ; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToInt(const S: string): Integer; $[ 功能返回字符串S转换成整数 说明字符串非整数表达时将引起异常 参考procedure 例子:= StrToInt; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToIntDef(const S: string; Default: Integer): Integer; $[ 功能返回字符串S转换成整数 说明字符串非整数表达时则返回默认值Default 参考procedure 例子:= StrToIntDef, 0); ━━━━━━━━━━━━━━━━━━━━━ 首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[ 功能返回字符串S转换成整数V alue是否成功 说明字符串非整数表达时返回False并且Value将输出为0 参考procedure 例子 ..);打开失败则返回负数 参考function

Delphi程序设计复习题

《Delphi程序设计》复习题 一、单项选择题 1、下面哪句话对Delphi的描述是正确的（）。 A．只能用于数据库客户端开发的工具B．Delphi的编程语言全部是面向过程的C．Delphi的编程语言是Java D．面向对象的可视化的开发环境 2、在Delphi中，建立一个文本编辑区域，可采用下列（）。 A、命令按钮 B、文本标签控件 C、Edit控件 D、Timer控件 3、表达式60 ＋19 div 2 的值是（） A．67 B．79 C．69 D．80 4、一个Delphi应用程序必有一个（）文件和至少一个单元文件。 A) 执行程序B) 项目C) 数据D)图形 5、最适合于在工具栏上放置的工具按钮是（） A．Button B．RadioButton C．SpeedButton D．BitBtm 6、Delphi应用程序设计基于（）语言。 A) Basic B) C++ C) Pascal D) Object Pascal 7、下列表达式中（）不是布尔表达式。 A) A=3 B) A div B C) A and B D) A>B 8、“x 是小于100的非负数”的Object Pascal表达式是（）。 A．0 ≤x < 100 B．x >= 0, x<100 C．(x >=0) AND (x < 100) D．(x >= 0 ) OR (x<100) 9、利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image的显示区域（） A．Stretch B．AutoSize C．Align D．Center 10、工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是（） A．将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为True。 B．将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为False。 C．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为True。 D．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为False。 11、要改变一个对象的高度，应使用属性（）。 A、Font B、ForcColor C、Name D、Height 12、表达式30 ＋19 div 2 的值是（） A．37 B．49 C．39 D．40 13、下列合法的变量名是（）。 A、na + e B、e- 3r C、r_3 D、5we

(DELPHI)API函数大全

(DELPHI)API函数大全 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置GetMessageTime 取得消息队列中上一条消息处理完毕时的时间PostMessage 将一条消息投递到指定窗口的消息队列PostThreadMessage 将一条消息投递给应用程序RegisterWindowMessage 获取分配给一个字串标识符的消息编号ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件

Delphi常见错误代码

Delphi常见错误代码及中文解释 ';' not allowed before 'ELSE' ElSE前不允许有“;” '' clause not allowed in OLE automation section 在OLE自动区段不允许“”子句 '' is not a type identifier 不是类型标识符 '' not previously declared as a PROPERTY 前面没有说明PROPERTY 'GOTO ' leads into or out of TRY statement GOTO 进入或超出TRY语句的范围 clause expected, but found 要求子句，但出现 16-Bit fixup encountered in object file '' 在对象文件遇到16位修复 486/487 instructions not enabled 不能用486/487指令Abstract methods must be virtual or dynamic 抽象方法必须为虚拟的或动态的 Array type required 需要数组类型 Assignment to FOR-Loop variable '' 给FOR循环变量 赋值 Bad argument type in variable type array constructor 在变量类型数组结构中不正确的参数类型 Bad file format '' 错误的文件格式 Bad file format: 错误的文件格式 Bad global symbol definition: '' in object file '' 对象文件 ''中错误的全局符号定义'' Bad unit format: 错误的单元格式 BREAK or CONTINUE outside of loop BREAK或CONTINUE超出循环 Cannot add or subtract relocatable symbols 不能增加或减少可重置的符号 Cannot assign to a read-only property 不能指定只读属性 Cannot BREAK, CONTINUE or EXIT out of a FINALLY clause 超出FINALLY 子句的范围，不能使用BREAK,CONTINUE或EXIT语句 Cannot initialize local variables 不能初始化局部变量 Cannot initialize multiple variables 不能初始化多个变量

delphi函数参考手册

delphi函数参考手册 名称类型说明 abort 函数引起放弃的意外处理 abs 函数绝对值函数 addexitproc 函数将一过程添加到运行时库的结束过程表中addr 函数返回指定对象的地址 adjustlinebreaks 函数将给定字符串的行分隔符调整为cr/lf序列align 属性使控件位于窗口某部分 alignment 属性控件标签的文字位置 allocmem 函数在堆栈上分配给定大小的块 allowgrayed 属性允许一个灰度选择 ansicomparestr 函数比较字符串（区分大小写）ansicomparetext 函数比较字符串（不区分大小写）ansilowercase 函数将字符转换为小写 ansiuppercase 函数将字符转换为大写 append 函数以附加的方式打开已有的文件 arctan 函数余切函数 assignfile 函数给文件变量赋一外部文件名 assigned 函数测试函数或过程变量是否为空 autosize 属性自动控制标签的大小 backgrounddi2001.jpg 属性背景色 beginthread 函数以适当的方式建立用于内存管理的线程bevelinner 属性控件方框的内框方式

bevelouter 属性控件方框的外框方式 bevelwidth 属性控件方框的外框宽度 blockread 函数读一个或多个记录到变量中blockwrite 函数从变量中写一个或多个记录borderstyle 属性边界类型 borderwidth 属性边界宽度 break 命令终止for、while、repeat循环语句 brush 属性画刷 caption 属性标签文字的内容 change 函数改变文件的后缀 chdir 函数改变当前目录 checked 属性确定复选框选中状态 chr 函数返回指定序数的字符 closefile 命令关闭打开的文件 color 属性标签的颜色 columns 属性显示的列数 comparestr 函数比较字符串（区分大小写）concat 函数合并字符串 continue 命令继续for、while、repeat的下一个循环copy 函数返回一字符串的子串 cos 函数余弦函数 ctl3d 属性是否具有3d效果

delphi1

一、单选 1)下列符号哪一个是Delphi中的合法变量名（） A 6book B if C name[1] D count1 2)下列常量说明中哪一个是合法的（） A const c:=(b>4.5); B const c:8.6; C const c=3.2; D const c:=”book ”; 3)下列实数中哪个是不合法的( ) A 0.45E+02 B .25+2 C 25E -3 D 24.67 4)设n为整型变量，其值为4568，表达式（n mod 1000）div100 ( ) A 分离出个位数字B分离出千位数字 C 分离出百位数字D分离出十位数字 5)有下面的程序段： a:=false; b:=false; c:=true; x:=20; if a then x:=x-10; x:=30; if b then if c then x:=34; else x:=15; 假设所有变量都已定义，程序段执行后x的值（） A 15 B 20 C 34 D 30 6)有下面的程序段： ch1:= 'z'; ch2:= 'x'; if ch1 <>'x' then case ch2 of 'x': case ch1 of 'z': s:= 'xy'; 'y': s:='xz'; end; 'y': s:='yy'; end; 假设所有变量均已说明，程序段被执行后s的值是（）。 A 'xz' B 'yy' C 'xy' D xy 7)有下面的程序段： i:= 1; repeat n:= i * i; i:=i+2; until n>2*i; 假设所有变量均已说明，循环体执行的次数（）。 A 1 B 2 C 3 D 4 8)有下面的程序段： s:= 100; n:= 3; for ch:= 'a' to 'e' do if not odd(n) then s:=s-n; n:=n+5; 假设所有变量均已说明，s的值（）。 A 100 B 97 C 61 D 74 9)以下正确的枚举类型定义是：( ) A type vowel=('a','e','i','o','u'); B type num=(1..3,8..10); C type color=(red,blue,greeen); D type realtype=(1.5,2.5,3.5,4.5); 10)集合表达式[1,2,3]+[4,5,6,1,2]的值为：( ) A[1,2,3,4,5,6,1,2] B [1,2,3] C [4,5,6,1,2] D [1,2,3,4,5] 11)Delphi没有用到的文件类型有（） A、.frm B、.pas C、.dfm D、.dpr

delphi try except语句 和 try finally语句用法以及区别

一、异常的来源 在Delphi的应用程序中，下列的情况都比较有可能产生异常。 （1）文件处理 （2）内存分配 （3）Windows资源 （4）运行时创建对象和窗体 （5）硬件和操作系统冲突 二、异常的处理 （1）try…except…end; 在try体内的代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。 （2）try…finally…end; 这种异常处理结构一般用于保护Windows的资源分配等方面，它确保了无论try体内的代码是否发生异常，都需要由系统进行最后的统一处理的一些Windows对象的正确处理。 和try…except…end不同，该结构的finally部分总被执行。 （3）不存在try…except…finally…end结构来既处理异常，又保护资源分配的结构，但是，try…except…end结构允许嵌套到try…finally…end结构中，从而实现既处理异常，又保护资源的分配。 三、异常的精确处理 （1）定义一个异常。 在Delphi中，每个异常都是Exception[1]类的一个派生类[2]。因此，定义一个异常就是定义一个Exception类的派生类。 type EMyException = class(Exception); 当然，基类可以是Exception或者Exception的任何一个任何层次的派生类。 （2）在程序中抛出一个异常。 根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中，由raise语句来实现。 【语法】raise 异常类.Creat e(‘异常的缺省说明’); （3）在try…except…end中更加精确的捕捉异常。 使用on E:异常类do…结构可以在do体内处理特定异常类所抛出的异常。 四、异常的调试 在Delphi IDE中，解除“Debugger Options”（可以使用菜单 Tools—>Debugger Options…进行访问）中的Integrated Debugging复选框的勾选状态可以进行异常的调试。 五、异常的补充说明

Delphi字符串处理函数

【字符串函数大全】 首部function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似 说明ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否包含子串ASubText 说明不区分大小写 参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText开头 说明不区分大小写 参考function https://www.doczj.com/doc/6c4155499.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾 说明不区分大小写 参考function https://www.doczj.com/doc/6c4155499.html,pareString 例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串AText中用子串AFromText替换成子串AToText的结果 说明不区分大小写 参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);

Delphi程序填空

试卷代号：2235 中央广播电视大学2008—2009学年度第二学期“开放专科”期末考试 Delphi程序设计试题 2009年7月 一、填空题(20分，每空2分) 1．结构化程序设计要求程序中仅采用——三种控制结构，其中每种结构只能有一个入口和一个出口。 2．现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和——。 3. Delphi应用程序中项目文件的扩展名是——。 4. 在设计阶段，利用Image对象的——属性，可以加载一幅图片。 5．时钟组件(Timer)能有规律的以一定时间间隔触发——事件，并执行该 事件过程中的程序代码。为了使计时器控件丁imerl每隔0.5秒就触发一次并执行事件代码，应将Timerl控件的Interval属性设置为——。 6．Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组件。数据集组件利用——组件与数据库建立连接，并读取数据库中的数据，而后又经过组件将数据送到用户界面组件中显示。 8．利用对象的LineTo等绘图方法，可以绘制基本图形。 二、单项选择题(30分，每题3分) 1．Delphi程序设计的基本特点是( ) A. 可视化程序设计B．代码程序设计 C. 事件驱动编程D．A和C 2．修改窗体的标题时，应当在属性页中设置的属性是( ) A．Caption B．Name C．Text D．Label 3．“x是小于100的非负数”的ObjectPascal表达式是( ) A．0≤x<100 B．x>＝0，x<100 C．(x>＝0)AND(x<100) D．(x>＝0)OR(x<100) 4．利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image 的显示区域( ) A．Stretch B．AutoSize C．Align D．Center 5．工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是( ) A. 将SpeedButton按钮的Grouplndex属性设置为0，且AllowAllUp属性设置为True B. 将SpeedButton按钮的Grouplndex属性设置为0，且AllowAllUp属性设置为False C．将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAllUp属性设置为True D．将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAllUp属性设置为

Delphi代码编写标准详解

Delphi编写标准指南 一、序言 二、通用源代码格式规则 2.1 缩格 2.2 页边空格 2.3 Begin...End 配对 三、Object Pascal 3.1 括号 3.2 保留字和关键字 3.3 过程和函数（例程） 3.3.1 命名/格式化 3.3.2 形式参数 3.3.2.1 格式化 3.3.2.2 命名 3.3.2.3 参数的排序 3.3.2.4 常量参数 3.3.2.5 名称的冲突 3.4 变量 3.4.1 变量的命名和格式 3.4.2 局部变量 3.4.3 全局变量的使用 3.5 类型 3.5.1 大写约定 3.5.1.1 浮点指针类型 3.5.1.2 枚举类型 3.5.1.3 变数和ole变数类型 3.5.2 结构类型 3.5.2.1 数组类型 3.5.2.2 记录类型 3.6 语句 3.6.1 if 语句 3.6.2 case 语句 3.6.2.1 一般性话题 3.6.2.2 格式 3.6.3 while 语句 3.6.4 for 语句 3.6.5 repeat 语句 3.6.6 with 语句 3.6.6.1 一般话题 3.6.6.2 格式 3.7 结构异常处理 3.7.1 一般话题 3.7.2 try...finally的使用 3.7.3 try...except的使用

3.7.4 try...except...else的使用 3.8 类类型 3.8.1 命名和格式 3.8.2 域 3.8.2.1 命名/格式 3.8.2.2 可视化 3.8.3 方法 3.8.3.1 命名/格式 3.8.3.2 使用静态的方法 3.8.3.3 使用虚拟/动态的方法 3.8.3.4 使用抽象的方法 3.8.3.5 属性存取方法 3.8.4 属性 3.8. 4.1 命名/格式 3.8. 4.2 使用存取的方法 四、文件 4.1 工程文件 4.1.1 命名 4.2 窗体文件 4.2.1 命名 4.3 数据模板文件 4.3.1 命名 4.4 远端数据模板文件 4.4.1 命名 4.5 Unit文件 4.5.1 通用Unit结构 4.5.1.1 unit的名字 4.5.1.2 uses子句 4.5.1.3 interface部分 4.5.1.4 implementation部分 4.5.1.5 initialization部分 4.5.1.6 finalization部分 4.5.2 窗体单元 4.5.2.1 命名 4.5.3 数据模板单元 4.5.3.1 命名 4.5.4 一般目的单元 4.5.4.1 命名 4.5.5 构件单元 4.5.5.1 命名 4.6 文件头 五、窗体和数据模板 5.1 窗体 5.1.1 窗体类型命名标准

Delphi函数大全

Delphi函数大全 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效果