typeinc.pas

来自「一个使用UDP开发的消息广播服务与客户端程序」· PAS 代码 · 共 32 行

PAS
32
字号
unit TypeInc;
interface
// 数据库中的基本信息
type THmsg=(GetSrvList,GetServInfo,ChnSelfInfo,GetSelfInfo,
            GetOthSrvInfo,GetSelfAllInfo,SendMsg);
type
  TM_DBINFO = record
    Server:Integer;
    RegSrv:Integer;
    Online:Integer;
    RegOline:Integer;
end;
//请求消息
type
  TM_ServLogin=record
    Msg:THmsg;
    ServID:string[8];
    SendID:String[8];
    ServPass:string;
end;
type
    TM_SrvLst=record
    ID_Info:integer;
    Name:string[50];
    onLine:string[1];
    Reg:string[1];
end;

implementation

end.
 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?