菜鸟捉虫(45)
?牐犖颐怯Ω迷凇癢ITH imgCtrl[i] DO BEIGN”中加入Parent=Form1，如果没有指定Parent（即将该控件显示在何处）那么将无法显示出控件来。
?牐犃硪桓龃砦笤凇癘ldTop:=imgCtrl.Top + Height+2；”一句中，将它修改为OldTop：=imgCtrl[i-1].Top+Height+2；则可以正常显示出第三幅图片。
#1?牐牷窠泵?
?牐犓? 川 熊 理 重 庆 张 鹏
?牐牨? 京 刘 霏 浙 江 胡亚平
?牐牶? 南 李泽志
?牐犚陨闲以硕琳呓竦玫缒员ㄗ钚鲁銎返摹兜缒员ㄏ盗信涮坠馀獭吩又疽惶住?
#1?牐牨酒谔饽?
?牐犛惺保颐切枰恍┘虻サ男畔⒈４嬖谖募校员闳蘸笮枰钡饔谩Ｊ褂肐NI文件可以很方便地读写文件中的内容。除此之外，我们还可以将需要保存及读取的内容使用一个结构保存下来并写入文本中，这样读取数据也非常方便。先新建一个工程，加入四个Label控件及四个Edit控件，Label的Caption值分别为姓名、年龄、性别、总分。再加入两个Button控件，分别为保存及读取。下面则是程序代码:
?牐?//定义FileInfo结构
?牐爐ype
?牐燭FileInfo=record
?牐爏zName：String；
?牐爏zAge：Integer；
?牐爏zSex：String；
?牐爏zTotal：Integer；
?牐爀nd；
?牐爌rocedure TForm1.Button1Click（Sender:TObject）；
?牐爒ar
?牐燜ileInfo：TFileInfo；
?牐燜：TFileStream;??
?牐燽egin
?牐燱ITH FileInfo DO BEGIN
?牐爏zName：=Edit1.Text；
?牐爏zAge：=StrToInt（Edit2.Text）；
?牐爏zSex：=Edit3.Text；
?牐爏zTotal:=StrToInt（Edit4.Text）；??
?牐燛ND；
?牐燜：=TFileStream.Create（＇C:\Test.txt＇，fmOpenReadWrite or fmCreate）；?牔?
?牐燜.WriteBuffer（FileInfo，sizeof（FileInfo））；
?牐燜.Free；
?牐爀nd；
?牐爌rocedure TForm1.Button2Click（Sender:TObject）；
?牐爒ar
?牐燜ileInfo：TFileInfo；
?牐燜：TFileStream??
?牐燽egin
?牐燜：=TFileStream.Create（＇C:\Test.txt＇，fmOpenRead）；?牔?
?牐燜.ReadBuffer（FileInfo，sizeof（FileInfo））；
?牐燜.Free；
?牐燬howMessage（＇姓名:＇ + FileInfo.szName）；
?牐爀nd；