菜鸟捉虫(31)

2001年第31期

上期正确答案：
　　 要找到List1与List2中相同的城市名称，必须将List1的每一项与List2中的所有项进行比较，由于List1与List2中的城市名不可能完全相对应，所以第二个循环中List1.List（j）=List2.List（j）这样的作法不对，应该改成List1.List（i）=List2.List（j），这样就可以将List1的每一项与List2中的所有项进行比较，就不会遗漏相同的了。在程序中，还有一处错误在“MsgBox（ “找到” + k + “个相同的城市！”， vbOKOnly + vbInformation，“结果”）”这一句中，错误的原因就是K是一个整型变量，要将值显示在MsgBox中，必须将这个类型转换成字符型才行，因此，将k写成Str（k）就可以了。
　　 获奖名单：
　　 江苏 陈震宇 山西 何 彬
　　 辽宁 吴海正 四川 王中渝
　　 重庆 任宏志
　　 以上幸运读者将获得电脑报最新出版的《电脑报系列配套光盘》杂志一套。
　　 本期题目：
　　 这是一个关于Delphi的题目，要求列出指定目录中的所有文件（包括文件夹）。加入一个ListBox控件及一个Button控件，并将Button的Caption改为“列出所有文件”。实现这一功能的源代码如下：
　　 function ListAllFiles:Integer;stdcall;
　　 var
　　 SearchRec: TSearchRec;
　　 ReValue:Integer;
　　 begin
　　 ListBox1.Clear;

ReValue:=FindFirst（＇C:\*.*＇，faAnyFile，SearchRec）;
　　 While ReValue=0 Do
　　 Begin
　　 if SearchRec.Size =0 then
　　 begin
　　 if SearchRec.Attr >2 then //如果是文件夹将加上[]表示是文件夹
　　 ListBox1.Items.Add（＇[＇+SearchRec.Name+＇]＇）
　　 else
　　 ListBox1.Items.Add（SearchRec.Name+＇文件大小：＇+IntToStr（SearchRec.Size）+＇KB＇）;
　　 end
　　 else
　　 ListBox2.Items.Add SearchRec.Name + ＇文件大小：＇ + IntToStr（SearchRec.Size）+ ＇ KB＇）;

FindNext（SearchRec）;
　　 End;
　　 Result:=1;
　　 end;
　　 procedure TForm1.Button1Click（Sender:TObject）;
　　 begin
　　 ListAllFiles;
　　 end;