unit AC;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mxOutlookBarPro, Menus;

type TAC = class

protected


public

  strAddress:string;                   //空調(diào)地址
  IP:string;
  ID:Integer;
  iSetTemp,iRTTemp:Integer;              //設(shè)定溫度和回風(fēng)溫度
  strFan1,strFan2:string;                      //風(fēng)量1,和風(fēng)量2
  Remarks:string;                     //備注
  iDataTemp:array[1..12] of Integer;   //代表數(shù)據(jù)
  strRunState:array[1..10] of string; //運(yùn)行狀態(tài)數(shù)據(jù)
  strWaringState:array[1..11] of string; //警告狀態(tài)數(shù)據(jù)
  bRunStopState:Byte;         //停止、運(yùn)行
  iOpenTemp:Integer;           //空調(diào)開(kāi)機(jī)溫度
  iCloseTemp:Integer;          //空調(diào)關(guān)機(jī)溫度
  iReturnTempCeiling:Integer;   //回風(fēng)溫度上限
  iReturnTempLimit:Integer;      //回風(fēng)溫度下限
  iReturnHumidityCeiling:Integer;  //回風(fēng)濕度上限
  iReturnHumidityLimit:Integer;    //回風(fēng)濕度下限
  iVersion:Integer;                //版本號(hào)
   constructor Create(iid:Integer;strAdd:string;iip:string = '127.0.0.1'; remak:string = '為空'); overload;
   constructor Create();overload;
   procedure refresh;
end;
implementation

{ TAC }

constructor TAC.Create(iid: Integer; strAdd:string;iip:string = '127.0.0.1'; remak:string = '為空');
begin
   ID := iid;
   strAddress := strAdd;
   IP := iip;
   Remarks := IntToStr(ID) + '號(hào)空調(diào)，地址為：'+strAddress+ '其他信息：' +remak;

end;

constructor TAC.Create;
begin
   ID := 0;
   strAddress := '00';
   IP := '127.0.0.1';
   Remarks := IntToStr(ID) + '號(hào)空調(diào)，地址為：'+strAddress;
end;

procedure TAC.refresh;
begin
   Remarks := IntToStr(ID) + '號(hào)空調(diào)，地址為：'+strAddress;
end;

end.