если пришел один => one:=true; если пришел второй and one then startTimer;
както так
Оффтоп
delphi Код:
var
one:boolean;
..................
procedure init;
begin
one:=false;
end;
..............
if fromserver and (pck=pck1) then one:=true;
if fromserver and (pck=pck2)and one then begin
one:=false;
TimerEnabled:=true;
end;
это если я верно понял...если надо чтоб включался когда придет или один или другой, то:
Оффтоп
delphi Код:
..............
if fromserver and ((pck=pck1) or (pck=pck2)) then begin
TimerEnabled:=true;
end;
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 19.06.2011 в 21:12.
|