Частотомер

[Иван36]

Хочу мерить частоту оборотов на двигателе - железо готово(опрос LPT) - набираюсь мыслей по софту:
В MFC - Edit box и Кнопка на которой наввешу :
таймер 1 сек . который
запускает бесконечный цикл с опросом порта и записью единичек ....
Ну и надеюсь видеть цифру новую каждую сек.
Вопрос - как закончить цикл при наступлении следующей команды от таймера?

[Simply-Art]

Думаю проще всего объявить переменную типа boolean, например а
var a:Boolean = false;
перед циклом пишим a:=false;
потом в цикле прописать
if a then exit;
и в таймере если тебе надо выйти из цикла присвоим a:=true;
Вроде так

implementation

var a:Boolean = false;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
a:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var d:Longint;
begin
a:=false;
while 0=0 do
 begin
  Application.ProcessMessages;
  if a then exit;
  inc(d);
  Caption:=IntToStr(d)
 end;
end;

[Stilet]

А мне кажется что тут лучше было бы заменить таймер потоком+задержкой на секунду, после которой бы данные считывались.