菜鸟捉虫(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;