计算机等考二级Delphi考前练习题及参考答案

　　二、填空题

　　1、在修改数据前检查TQuery组件的状态，发现处于浏览(DaBrowse)状态，该TQuery组件的 Active 属性的值已经为真，则调用该TQuery组件的Edit方法可以将其状态该为可修改。

　　2、在当前Form上添加一个TActionList组件(已添加)，选择一个“TEditCopy”标准动作添加到TActionList组件中。

　　3、将默认路径下的BrowseFolder.pas组件安装在Delphi IDE的默认的Package中。

　　4、调用TQuery组件的Prepare方法让BDE和远程的数据库服务器为查询分配资源并执行一些优化操作，称为执行查询前的准备工作。因为执行这个查询的准备工作会消耗一定的资源，所以在完成查询以后应该调用TQuery组件的 UnPrepare 方法来释放分配给查询的资源。

　　5、数据集TQurey要执行如下SQL语句：select * from mytable

　　请补充完成程序中横线所缺少的语句：

　　var

　　Query1:TQuery;

　　……

　　begin

　　with Query1 do

　　begin

　　Close;

　　Clear;

　　SQL.Add(‘select * from mytable’);

　　Open;

　　end;

　　end;

　　6、下面语句用来删除TMemo组件的第2行，请补充完整：

　　Memo1.Lines.delete( 1 );

　　三、程序题

　　1、调用函数 IntToStr 实现整型数字到文本字符串的转换。(只写出括号前的函数名称)

　　2、完成下列要求：

　　(1)自定义一个过程类型TGetPropProc，该类型有一个参数Prop，类型为IProperty。

　　(2)定义一个类TPropertyEditor，该类有一个过程GetProperties，该过程有一个参数，参数类型为TgetPropProc，请写出有关代码。

　　(3)在Uses中写出所使用的单元。

　　备注：请从下面两种结构中选择一种，并添加具体的代码。

　　(1)控制台结构

　　program Project1;

　　{$APPTYPE CONSOLE}

　　uses

　　SysUtils;

　　begin

　　end.

　　(2)单元结构

　　unit Unit1;

　　interface

　　uses

　　DesignEditors,DesignIntf;

　　type

　　TGetPropProc=procedure(const Prop:Iproperty)of Object;

　　TPropertyEditor=class(TBasePropertyEditor,Iproperty)

　　Public

　　Procedure GetProperties(Proc:TGetPropProc);

　　end;

　　implementation

　　procedure TPropertyEditor.GetProperties(Proc:TGetPropProc);

　　begin

　　end;

　　end.

　　3、在下面代码的基础上，声明一个函数常量，并将函数常量的指针指向函数Calc。

　　备注：请在下面结构中添加具体的代码。

　　Program project1;

　　{$APFTYPE CONSOLE}

　　uses

　　SysUtils;

　　function Calc(x,y:integer):integer;

　　begin

　　Calc:=x+y;

　　end;

　　type

　　Tfunction=function(x,y:integer):integer;

　　const

　　MyFunction:Tfunction=Calc;

　　begin

　　write(MyFunction(2,3));

　　readln;

　　end.

　　4、编写实现一个DLL。该DLL中有一个输出函数function ChangeColorWordToInt(ColorName : PChar):TColor;stdcall;可以将字符串按下表转换为对应的颜色，并返回该颜色值：Red->CLRed;Blue->CLBlue;Lime->CLLime;Other->CLBlack。

　　一点提示：用StringToColor 和 ColorToString

　　5、编一个显示和隐藏任务栏的应用程序，它有两个按钮分别用来显示和隐藏任务栏。

　　var

　　taskbarWnd:THandle;

　　….

　　begin

　　taskbarWnd := FindWindow('shell_traywnd',nil);

　　ShowWindow(taskbarWnd,sw_Hide); //隐藏

　　ShowWindow(taskbarWnd,sw_Restore); //显示

　　end;