菜鸟捉虫(36)

2001年第36期

上期正确答案：
　　 在DLL代码中，很明显的一个错误就是没有exports段将ShowAboutForm函数输出。这样主程序将无法使用这个函数。另外，如果用AboutForm．Show则会看不到窗体，因为它刚一显示出来就被Free掉。另外，因为Show所显示的窗体不是无模式窗体，使用ShowModal显示窗体后，窗体在没有关闭时将不会被Free掉。
　　#1 获奖名单：
　　 辽宁 吴 新 山东 张 鹏
　　 四川 彭宇正 湖南 丁 益
　　 广东 刘远毅
　　 以上幸运读者将获得电脑报最新出品的《电脑报系列配套光盘》杂志一套。
　　#1 本期题目：
　　 本期的题目要求我们动态创建6个按钮，并在单击某个按钮显示出所单击按钮的Caption值。下面的程序代码就是实现这个功能的，但是存在一些错误，请将这些错误找出来：
　　 ……
　　 uses
　　 Windows， Messages， SysUtils， Classes， Graphics， Controls，Forms， Dialogs；
　　 type
　　 ……
　　 private
　　 procedure DoClick（Sender：TObject）；

var
　　 Form1：TForm1；
　　 vBtn：Array[0..5]
of TButton；
　　 StrLst：TStringList；
　　 ……
　　 procedure TForm1．DoClick（Sender：TObject）；
　　 //响应单击事件
　　 var
　　 i：integer

begin
　　 for i：=0 to 5 do
　　 begin
　　 if Sender：= vBtn[i] then
　　 ShowMessage（＇你单击的按钮是：＇ + vBtn[i]．Caption）；
　　 end；
　　 end；
　　 procedure TForm1．FormCreate（Sender：TObject）；
　　 var
　　 i，vHeight：integer

begin
　　 StrLst：=TStringList．Create；
　　 StrLst．Add（＇VB＇）；

StrLst．Add（＇VC＇）；

StrLst．Add（＇Delphi）；

StrLst．Add（＇Java）；
　　 StrLst．Add（＇C#＇）；
　　 StrLst．Add（＇ASP．NET＇）；
　　 vHeight：=50；
　　 for i：=0 to 5 do
　　 begin
　　 vBtn[i]：=TButton．Create（Form1）；//创建按钮
　　 vBtn[i]．Caption：=StrLst．Strings[i]；

vBtn[i]．Left：=0

if i=0 then
　　 vBtn[i]．Top：=0
　　 else
　　 vBtn[i]．Top：=vBtn[i-1]．Top + vHeight；
　　 vBtn[i]．Width：=200；
　　 vBtn[i]．Height：=vHeight；
　　 vBtn[i]．OnClick：=DoClick；
　　 end；
　　 end；
　　 procedure TForm1．FormDestroy（Sender：TObject）；
　　 var
　　 i：integer

begin
　　 //释放资源
　　 StrLst．Free

for i：=0 to 5 do
　　 vBtn[i]．Free

end；
　　 end