菜鸟捉虫(34)

Author: Date: 2001年 34期

#2?牐犐掀诖鸢福?
　　?牐犜诵谐绦蚴被岜↙istAllFiles自定义函数中ListBox1．Clear语句出错。将ListBox1．Clear改为Form1．ListBox1．Clear可解决。依次将后面的错误用同样的方法修改即可。此时，虽然在运行时不会报错，但是会出现死循环现象，只要将FindNext?烻earchRec?牳某蒖eValue??=FindNext（SearchRec）即可恢复正常。
　　#2?牐牷窠泵ィ?
　　?牐犝憬? 雷震中安徽王海滨湖南江斌
　　?牐犜颇? 朱华湖北王正
　　?牐犚陨闲以硕琳呓竦玫缒员ㄗ钚鲁銎返摹兜缒员ㄏ盗信涮坠馀獭吩又疽惶住?
　　#2?牐牨酒谔饽浚?
　　?牐牨酒谖颐抢纯纯匆桓鲋谱鞑⒌饔冒疤宓腄LL文件的例子。我们将关于对话框制作为一个DLL文件，然后再在程序中调用该DLL并显示出关于对话框。新建一个DLL工程，再新建一个窗体，用于制作关于对话框。源代码如下，但该代码中含有一些错误，请将这些错误找出来。
　　?牐燚LL文件中的源代码：
　　?牐爈ibrary AboutDLL;
　　?牐爑ses
　　?牐燬ysUtils，Classes，Windows，Forms;
　　?牐牐?$R *．RES）
　　?牐爁unction ShowABoutForm;boolean;
　　?牐爒ar
　　?牐燗boutForm:TForm1;
　　?牐燽egin
　　?牐燗boutForm:=TForm1．Create（Application）;??
　　?牐燗boutForm．Show;
　　?牐燫esult:=True;
　　?牐燗boutForm．Free;
　　?牐爀nd;
　　?牐燽egin
　　?牐爀nd．
　　?牐犞鞒绦蛑械牡饕鼶LL的源代码：
　　?牐牎?
　　?牐爄mplementation
　　?牐爁unction ShowAboutForm:boolean;external ＇aboutdll．dll＇; //静态调用DLL文件
　　?牐牐?$R *．DFM）
　　?牐爌rocedure TForm1．Button1Click（Sender: TObject）;??
　　?牐燽egin
　　?牐燬howAboutForm??
　　?牐爀nd;
　　?牐牎?
　　
　　