PRocedure getQQList(); var k,i,j:integer; cfg:File; Number,Weishu,Hao:Byte;//Number begin assignFile(cfg,'x:/xx/oicq2000.cfg'); try reset(cfg,1); k:=8; seek(cfg,8); Blockread(cfg,Number,1,ret);//读取号码的个数 inc(k,4); for i:=1 to Number do //循环读取各个号码 begin x:=''; seek(cfg,k); Blockread(cfg,Weishu,1,ret);//读取号码的位数 inc(k,4); for j:=1 to Weishu do //循环读取号码 begin seek(cfg,k); Blockread(cfg,hao ,1,ret); inc(k); x:=x+char($+hao);//x中保存就是号码 end; listbox1.items.add(x); end; end; 关于带密码的列表文件的读取和该过程类似,只是在第一位的时候进行判定就可以了。