二、填空題

　　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;