随机模拟事件操作系统实验delphi - 图文

Id5 := Id5 -1;

edit4.Text := ('C顾客正在办理存款手续'); // messagedlg('顾客正在办理存款',mtInformation,[mbOk],0); end else begin Id5:=78;

edit4.Text := ('D顾客正在办理取款手续'); //Timer1.Enabled := true; end; end;

procedure TForm2.Timer11Timer(Sender: TObject); var i:integer; begin i:=15; Randomize; i := random(15);

edit5.Text:=inttostr(i); end;

procedure TForm2.Timer12Timer(Sender: TObject); var i:integer; begin i:=15; Randomize; i := random(15);

edit6.Text:=inttostr(i); end; end.