开发一个基于DCOM的局域网聊天室（三）[4]

 froomlist:=tstringlist.create;

 try

  froomlist.loadfromfile(extractfilepath(application.exename)+'chatroomlist.ini');

 except

  on e:exception do

  begin

   application.messagebox(pchar('配置文件错误，错误代码：'+e.message),'dcomchatpro',mb_iconwarning);

   application.terminate;

  end;

 end;

 froomlist.delete(0);

 froomcount:=froomlist.count;

 //这里将从配置文件中读出有几个聊天室

 setlength(chatroom,froomcount);

 for i:=1 to froomcount do

  chatroom[i]:=tchatroom.create(froomlist[i-1],i);

  //创建房间的每一个实例

end;