(Resolvido) Duvida com "While"

[K!ko]

Olá pessoal!

Bom... já faz um tempinho que não posto... mas vamos lá

Seguinte... estou com uma duvidazinha com o uso de "While"... Eu gostaria de saber se enquanto o while é executado, existe a possibilidade de usar uma tecla no action list, por exemplo, para causar uma pausa na execução e, após a pausa, fazer com que o while continue com a mesma tecla ou outra qualquer...

É possível realizar essa operação?

Se for possível, como posso fazer?

Agradecido desde já, =D

[Jhonas]

Eu gostaria de saber se enquanto o while é executado, existe a possibilidade de usar uma tecla no action list, por exemplo, para causar uma pausa na execução e, após a pausa, fazer com que o while continue com a mesma tecla ou outra qualquer...

Exemplo:

var

  S: string;
begin
  while True do
  begin
    ReadLn(S);
    try
      if S = '' then Break;
      WriteLn(S);
    finally
    { do something for all cases }
    { faça algo para todos os casos }
    end;
  end;
end;

Obs: veja no help do delphi os comandos break e continue;

abraço

[K!ko]

Por favor... Você poderia explicar melhor o que vecê quis dizer?

[Jhonas]

para causar uma pausa na execução e, após a pausa, fazer com que o while continue

Você poderia explicar melhor o que vecê quis dizer?

exatamente o que voce perguntou .... voce vai usar o comando break para pausar o while e o comando continue para continuar

outro exemplo

for I := 1 to 10 do
    if I = 9 do
    begin
      while x < 50 do
      begin
        Inc(x)
        if X = 45 then
          Break; // sai do while
      end;
      Break; // sai do for
    end;

outro

Procedure Tform1.Button1Click(Sender: TObject);
var
S: String;
begin
   While true Do
   begin

      S := Edit1.text;

      If S = ' ' Then Break; { Interrompe o loop }

      Label1.Caption := S;

   end;
end;



Procedure Tform1.Button1Click(Sender: TObject);
var
S: String;
begin
    While true Do
    begin

        S := Edit1.text;

        If S = ' ' Then Continue; { Voltará para o próximo loop }

        Label1.Caption := S; 

    end;
end;

ficou mais claro ?

abraço

[Rento]

Se ainda não entender

Bota uma variável bollean global

Depois do begin do while bota um if var boll then

e desse begin um app.processmessages

Assim ele processa tudo enquanto ta no loop

Quando fazer esse negocio que você disse ele seta essa variável para False,

lembrasse de setala como true antes do loop

[Micheus]

... Eu gostaria de saber se enquanto o while é executado, existe a possibilidade de usar uma tecla no action list, por exemplo, para causar uma pausa na execução e, após a pausa, fazer com que o while continue com a mesma tecla ou outra qualquer...

É possível realizar essa operação?

K!ko, é possível sim.

A implementação pode variar um pouco de acordo com o que você fará no seu programa, mas para que qualquer evento do Windows (nisto incluí-se, mensagens de: teclado, mouse, ...) seja processado, você precisa viabilizar isto dentro de qualquer loop demorado (ou "infinito"), fazendo a chamada ao método ProcessMessages do seu objeto Application (como mencionou o colega Rento).

Se for possível, como posso fazer?

segue anexo um exemplo tosco, mas acho que exemplifica o básico (porque é muito simples, mesmo). Está comentado, e para não fazer uso de uma variável de controle global, optei pelo uso da propriedade Tag do TAction utilizado para executar/pausar o loop.

Dê uma olhada, e poste novas dúvidas.

Abraços

LoopWhile.zip

[K!ko]

Jhonas, eu saquei agora oque você quis dizer... esse lance de Break e Continue eu tinha pensado em usar... oque eu não consegui é fazer isso utilizando uma tecla para executar a rotina dentro do while.

Micheuse Rento... do jeito que vocês disseram deu certo.... coloquei application.ProcessMessages no while e uma mensagem em um actionlist que é executada ao apertar a tecla "P", aconteceu exatamente o que eu queria... a mensagem é mostrada e o while é pausado... após dar o "OK" da mensagem o while continua...

Vlws aew a todos... :D

abraço

Tópico resolvido

Editado Abril 14, 2008 por K!ko