Delphi试题51道

1.dbExpress组件访问数据库是通过哪种方式与特定的数据库连接的？（C） A. BDE

B.其他三项都不是

C.DbExpress自己的数据库连接DLL D.ODBC

2.在try语句中使用多个except语句可以处理多个不同的异常情况。（A） A.错误 B.正确

3.DWORD，UINT，HResult以及WinAPI函数中各种Handle等于Delphi6中的哪种数据类型？（ A） A.LongWord B.UnsignedInt C.LongInt D.Word

4.窗体上放置有一个TPanel类的控件Panel1，并定义了Panel1的OnEnter事件，下面说法正确的是：（C）

A.当鼠标移动到Panel1上面时产生Panel1OnEnter事件 B.其他三项都不对

C.当Panel1获得焦点时产生Panel1OnEnter事件 D.当鼠标在窗体上移动时产生Panel1OnEnter事件 5.下面关于数据集BookMark的说法那个是正确的？（A）

A.BookMark类型的变量是一个对象指针，需要用BookMark Create来建立BookMark，用BookMark.free来释放

B.BookMark本质上是一条记录类型，无须建立和释放 C.Delphi中，一个数据集组件只能建立一个书签BookMark 6.所有类都有Name属性（A） A.错误 B.正确

7.一个Delphi窗体Form1中包含了一个Tbutton类的Button1控件，下面代码，将产生怎样的结果？（D） ……

Tform1.button1Click(Sender); begin

Self.Caption:=?self?; Self.Color:=ClBlue; EventX(Sender); end;

Tform1.EventX(Sender:TObject); begin

Sender.Tag:=10; end;

A.窗体的标题为Self，颜色为蓝色，窗体的Tag属性等于10

B.Button1的标题为Self，颜色为蓝色，Tag属性等于10 C.Button1的标题为Self，颜色为蓝色，窗体的Tag属性等于10 D.窗体的标题为Self，颜色为蓝色，Button的Tag属性等于10

8.在多个应用程序访问同一个DLL时，下面关于DLL中使用全局变量的说法哪个是正确的？（C）

A.每个应用程序都各自使用在他自己的进程空间内复制的一份该全局变量 B.全局变量在DLL中是不允许使用的

C.每个应用程序访问的是同一个全局变量，该全局变量的有引用计数。

9. 窗体上放置有一个TEdit类控件Edit1，当在Edit1中按下?A?键时触发的事件和事件顺序是：（OnKeyPress->OnKeyDown）可以自己试一下 A.OnKeyDown->OnKeyPress->OnKeyUp B.OnKeyDown->OnKeyUp C.OnKeyPress

D.OnKeyDown->OnKeyUp->OnKeyPress

10.下面方法中，哪个是正确的移动TDataSet的记录光标位置的方法？（A） A .(Sender As TDataSet).Moveby(10) B.(Sender As TDataSet).Moveto(10) C.(Sender As TDataSet).Move(10) D.(Sender As TDataSet).MoveToCursor(10) 11.关于记录与类的说法错误的是：（C） A.记录没有继承关系，而类有 B.不能自动对记录的域初始化 C.类可以使用with语句而记录不能

D.记录没有任何保密性，所有细节从外部都是可见的，或者说是公用的。 12.以下不合法的数组是：（A） A.arr:Array of Class B.arr:Array of TButton C.arr:Array of byte D.arr:Array of string

13.下列关于dfm文件的一些说明哪个是正确的？（C） A.dfm文件中包含了对应Pascal单元文件的编译后中间代码

B.dfm文件是文本文件，用于保存编译器需要用到的Pascal文件的符号表 C.dfm文件保存着一个窗体和窗体拥有的对象的Published属性

D.dfm文件是编译时产生的符号表，是为了使优化提高编译速度而产生的。 14.请判断下列代码在程序关闭时，正确的对象释放顺序（B） TMybutton=class(Tbutton) Protected

Destructor Destroy;override; End; ………….

destructor TMyButton.Destroy; Begin

inherited;

Application.MessageBox(PChar(Name),?Destroy?,mb_ok); end;

var AButton,BButton:TMyButton;

procedure TForm1.FormCreate(Sender:TObject); begin

Abutton:=TmyButton.Create(Nil); With AButton do begin Parent:=form1; Top:=100; Left:=100; Visible:=True; Name:=?ABtn?; end;

BButton:=TMyButton.Create(Application); With BButton do begin

Parent:=Form1; Top:=100; Left:=200; Visible:=True; Name:=?BBtn?; end;

procedure TForm1.FormDestroy(Sender:TObject); begin …… end;

A.BButton.Destroy->Form1.Destroy->AButton.Destroy

B.上述都不对，应该手工调用Abutton.free，否则会造成AButton没有释放的错误 C.Form1.Destroy->AButton.Destroy->BButton.Destroy D.AButton.Destroy->Form1.Destroy->BButton.Destroy 15.已知有说明var s:sting;下列程序段中的错误为： case s of

?book_A?:processSelectionA; ?book_B?:processSelectionB; ?book_C?:processSelectionC; end; （）

A.用字符串作为Case值表元素 B.case表达式中有常数 C.case常量和case值表元素 D.case表达式位关系表达式

这道题我不知道它要说什么……Case String of 这个语法本身就是错误的！ Case … of 中间的条件只能是整型，集合，枚举类型

16.“工程选项对话框”中，当默认的checkbox位True时，会出现下面那种情况？（D） A.Delphi把所有的工程选项都重置为最初的默认值 B.“工程选项“值覆盖“环境选项”值

C.当前被选页上所有checkbox的属性都自动变成为True D.当前的工程选项作为新创建的工程的默认值 17．XML的含义是什么？（B） A.Express Manage Language B.Extensible Markup Language

18.下面关于单元的初始化Initialization部分的说法哪一个是正确的？（B） A.如果调用了Initialization,必须调用Finalization

B.该部分代码单元被其他单元或程序引用时就会自动运行 C.这部分代码与单元中的FormCreate事件的作用是相同的 D.初始化部分的代码只能在单元中有OLE和COM对象时才有效 19.以下关于Redcord(记录)的描述，不正确的是：（B）

A.Object Pascal支持可变Record,它允许在记录种不同的数据共同覆盖相同的内存（这个概念与C/C++中的union概念一样）

B.Record类型定义中列出了若干个域，每个域对应一个域名，通过域名访问 C.Record类型用于定义不同类型数据项的固定集合 D.record类型是类的一种补充

20.在每一个枚举类型中，默认编译的情况下，我们最多只能定义（D）个值。 A.64 B.512 C.128 D.255

21.用于建立菜单项的下划线快捷方式的字符是：（C） A.^ B.# C.& D.@

22.下列关于Variant类型的说法哪个是不正确的？（A）

A.variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型

B.variant类型变量是无类型变量

C.variant类型是以前Borland C++ 中固有的Variant类型的模仿 D.variant类型无需进行释放，回收内存

23.关于Application对象和属性的描述正确的是：（B） A.ExeName可读可写

B.Active表明应用程序是否激活，可以设置该值来激活程序 C.Title属性设置主程序窗口的标题

D.只有给予窗体的应用程序才有全局Application对象，控制台没有Application对象

24.下列哪种变量类型不能作为For循环中的循环变量？（D） A.字符 B.枚举 C.子界 D.实数

25.下面是一个用户自定义的消息，哪一种消息定义是正确的？（D） A.WM_MyMessage=User_Base+100 B.WM_MyMessage=CM_Base+100 C.WM_MyMessage=WM_Base+100 D.WM_MyMessage=WM_USER+100 26.请看代码，回答下面的问题。 Type

TMammal=Class Procedure Walk; …..

end;{end of TManmml} procedure TMammal.Walk; begin

ShowMessage(?Result is Mammal Walk?); end;

TDog=Class(TMammal) Procedure Walk; end;

procedure TDog.Walk; begin

ShowMessage(?Result is Dog Walk?); end; var

Mammal:TMammal; dog:TDog; begin

Mammal:=TDog.Create; Mammal.Walk; Mammal.Free; end;

上面代码中，最后的输出结果是：（B） A.?Result is Dog Walk? B.?Result ia Mannal Walk?

27.注册一个自定义组件语句的用法是：（C） A.RegisterComponents(TMyComponent,[?Standard?]) B.Register(TMyComponent,[?Standard?])

C.RegisterComponents(?Standard?,[TMyComponent])

本文来源：https://www.bwwdw.com/article/7sc8.html