Delphi7,如何编写出能够实时监测机器故障
Delphi7,如何编写出能够实时监测多个机器故障，并显示故障，当故障排除后，显示故障的地方自动清除相应故障。
[解决办法]
implementation{$R *.dfm}const liststr: array[0..3,0..9]of string=( //按着 B1_DI 数组维数定义一个字符数组常量 ('','','','','','','','','',''), ('','','1号屏地源热泵机组出现故障','','','','1号屏生活热水循环泵1-a出现故障','','',''), ('','','','','','','','','',''), ('','','','','','','','','','') );var B1_DI: array[0..3,0..9]of boolean;//假设你的这个2维数组是这样定义 faultnum,faultnum1:integer;procedure TMainForm.Button1Click(Sender: TObject);begin list_message1.Items.Delete(list_message1.Items.IndexOf('abc'));end;procedure TMainForm.addlist1(str_temp: string);begin list_message1.Insert(0,str_temp+' '+formatdatetime('hh:mm:ss yyyyy-mm-dd',now));end;procedure TMainForm.Timer7Timer(Sender: TObject); procedure ClearMark(a1,a2:integer);//清除故障提示 var i:integer; begin for i:=0 to list_message1.Items.Count-1 do if pos(liststr[a1,a2],list_message1.Items.Strings[i])>0 then begin //找到含有提示串的行 list_message1.Items.Delete(i);//删除该行 break;//退出循环 end; end;begin if B1_DI[1,2]=True then begin //如果 1,2 传感器复位 faultnum:=0;//标志复位 ClearMark(1,2);//清除故障提示 end else if faultnum=0 then begin //否则，如果 1,2 传感器置位并且标志未置位 addlist1(liststr[1,2]);//添加故障提示 faultnum:=1;//标志置位 end; //下面语句作用参看上面注释 if B1_DI[1,6]=True then begin faultnum1:=0; ClearMark(1,6); end else if faultnum1=0 then begin faultnum1:=1; addlist1(liststr[1,6]); end;end;