菜鸟捉虫(31)

Author: Date: 2001年 31期

?牐犐掀谡反鸢福?
　　?牐犚业絃ist1与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）就可以了。
　　?牐牷窠泵ィ?
　　?牐牻?  陈震宇山西  何  彬
　　?牐犃赡?  吴海正四川  王中渝
　　?牐犞厍?  任宏志
　　?牐犚陨闲以硕琳呓竦玫缒员ㄗ钚鲁霭娴摹兜缒员ㄏ盗信涮坠馀獭吩又疽惶住?
　　?牐牨酒谔饽浚?
　　?牐犝馐且桓龉赜贒elphi的题目，要求列出指定目录中的所有文件（包括文件夹）。加入一个ListBox控件及一个Button控件，并将Button的Caption改为“列出所有文件”。实现这一功能的源代码如下：
　　?牐爁unction ListAllFiles:Integer;stdcall;
　　?牐爒ar
　　?牐燬earchRec: TSearchRec;
　　?牐燫eValue:Integer;
　　?牐燽egin
　　?牐燣istBox1.Clear;??
　　?牐燫eValue:=FindFirst（＇C:\*.*＇，faAnyFile，SearchRec）;
　　?牐燱hile ReValue=0 Do
　　?牐燘egin
　　?牐爄f SearchRec.Size =0 then
　　?牐燽egin
　　?牐爄f SearchRec.Attr >2 then //如果是文件夹将加上[]表示是文件夹
　　?牐燣istBox1.Items.Add（＇[＇+SearchRec.Name+＇]＇）??
　　?牐爀lse
　　?牐燣istBox1.Items.Add（SearchRec.Name+＇文件大小：＇+IntToStr（SearchRec.Size）+＇KB＇）;
　　?牐爀nd
　　?牐爀lse
　　?牐燣istBox2.Items.Add?烻earchRec.Name + ＇文件大小：＇ + IntToStr（SearchRec.Size）+ ＇ KB＇）;?牔?
　　?牐燜indNext（SearchRec）;
　　?牐燛nd;
　　?牐燫esult:=1;
　　?牐爀nd;
　　?牐爌rocedure TForm1.Button1Click（Sender:TObject）;
　　?牐燽egin
　　?牐燣istAllFiles;
　　?牐爀nd;
　　
　　