como interromper um Do While teclando Esc
Enviado: 16 Fev 2015 17:28
ola pessoal, gostaria de saber como faço para interromper um Do While, na rotina abaixo, é feito um processamento e mostrando o contador na function MostraMsg, mas dessa forma nao esta dando certo.
obrigado.
Código: Selecionar todos
DO WHILE OrdWildSeek(cBusca,iif(nPas_= 0,.F.,.t.) ) .and. while MostraMsg()
registro[nPas_] := RECNO()
ENDDO
Func MostraMsg()
if inkey() = 27
return .f.
endif
@ 24,00 SAY padc("Procurando Registro => " + LTrim( Str( Recn() ) + " <Esc Interrompe >" ),80)
return .t.