开发一个基于DCOM的局域网聊天室(三)[7]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 hkbarton 的 blog

     //是自己说的,或自己应该看到的,或是说给所有人的悄悄话都有权看到

     begin

      memo1.lines.add(copy(tempstrings[i],1,length(tempstrings[i])-11));

      memo1.lines.add('');

     end;

    end

    else //不该看到的内容

    begin

     memo1.lines.add(tempstrings[i]);

     memo1.lines.add('');

    end;

   end;

   freadstartpos:=tempstrings.count;

  end;

  //刷新在线人员列表

  listbox1.clear;

  setolestrings(listbox1.items,chatserver.server.roomuserlist(roomid));

  //刷新说话对象列表

本文关键:Delphi,COM,DCOM,OOD,hkbarton
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top