Tempo - aguardar algo por um tempo

Top  Previous  Next

 

// Exemplo abaixo, espera que o status da impressora fiscal para cheque seja

// verdadeiro ou 10 segundos.

 

TemCheque := False;

T         := Time;

while ((Time - T) <= StrToTime('00:00:10')) and (not TemCheque) do

begin

  Caption   := FormatDateTime('SS',StrToTime('00:00:11') - (Time - T));

  TemCheque := ImpressoraForm.SwedaTemCheque;

  if mlKeyPressed(8) then Break;

  mlDelay(200);

end;