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; 關于帶密碼的列表文件的讀取和該過程類似,只是在第一位的時候進行判定就可以了。