delphi中list的运用问题
我的需求是。
有两个事件的触发时间，每个事件都可能不停的触发，没触发一次，则取一次时间
A事件 触发时间1 1有N个值
B事件 触发时间2 2有N个值
如果A事件触发后一直没有触发B事件，则取A事件的第一次触发值做判断标准，跳转到其他事件去 并清空触发时间1.时间2
如果B事件在A事件触发后一分钟内触发了，则清空时间1，然后时间2的最后一个值等一分钟，有新的事件2触发事件，则循环做此步骤，如果一分钟内没有事件2触发，则清空时间1和时间2 跳到其他地方。
我大概整理了下应该是：
0<时间2-时间1<60 则清零时间1
时间2 与下一个时间2做比较 如果间隔大于零
开始下一次存取 这是我整理后的需求 看明白这个逻辑就OK
请各位高手帮忙
[解决办法]
既然你还在关注此帖的，我修正和补充一下吧：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; Button1: TButton; Button2: TButton; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } Value_A, Value_B: integer; procedure Interrupt(Value_Interrupt: integer; const Interruptsource: integer=1);//中断事件，参数对应中断源编号 procedure response_A;//A事件响应处理 procedure response_B;//B事件响应处理 end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);//初始化两个定时器begin Timer1.Enabled:=false; //停止计时 Timer1.Interval:=60000;//1 分钟计时 Timer2.Enabled:=false; //停止计时 Timer2.Interval:=60000;//1 分钟计时 Value_A := -1;end;procedure TForm1.Interrupt(Value_Interrupt: integer; const Interruptsource: integer=1);//中断事件begin case Interruptsource of //判断中断来源 1: begin //中断源为 A事件 的中断源 Timer1.Enabled:=not Timer2.Enabled;//如果B事件不在进行中，打开定时器1 if (Value_A = -1)and(not Timer2.Enabled) then Value_A := Value_Interrupt; end; 2:begin //中断源为 B事件 的中断源 if Timer1.Enabled then begin //如果A事件已发生 Value_A := -1; memo1.Lines.Append('A事件已被B事件屏蔽'); end; Timer1.Enabled:=false;//屏蔽A事件处理 Timer2.Enabled:=false;//复位定时器2 Timer2.Enabled:=true;//打开定时器2，进行B事件计时 Value_B := Value_Interrupt; end; end;end;procedure TForm1.response_A;//A事件响应处理begin //...... memo1.Lines.Append('满 1 分钟计时，A事件已响应，值为：'+inttostr(Value_A)); Value_A := -1;end;procedure TForm1.response_B;//B事件响应处理begin //...... memo1.Lines.Append('满 1 分钟计时，B事件已响应，值为：'+inttostr(Value_B));end;procedure TForm1.Timer1Timer(Sender: TObject);//A事件计时1分钟时间到begin Timer1.Enabled:=false;//停止计时 response_A;//A事件响应处理end;procedure TForm1.Timer2Timer(Sender: TObject);begin Timer2.Enabled:=false;//停止计时 response_B;//B事件响应处理end;procedure TForm1.Button1Click(Sender: TObject);//模拟引发 A 事件var i:integer;begin Randomize;//初始化 i:=random(100); if Timer2.Enabled then memo1.Lines.Append('A 事件中断发生（由于B事件在进行中，A事件不会被响应），中断值为：' +inttostr(i)) else if Timer1.Enabled then memo1.Lines.Append('A 事件中断再次发生，中断值为：'+inttostr(i)) else memo1.Lines.Append('A 事件中断发生，中断值为：'+inttostr(i)); Interrupt(i,1);//A中断事件end;procedure TForm1.Button2Click(Sender: TObject);//模拟引发 B 事件var i:integer;begin Randomize;//初始化 i:=random(100); if Timer2.Enabled then //如果 B 事件正在计时 memo1.Lines.Append('B 事件中断再次发生，重新计时，中断值为：'+inttostr(i)) else memo1.Lines.Append('B 事件中断发生，中断值为：'+inttostr(i)); Interrupt(i,2);//B中断事件end;end.