Loop - Condição

[anhaya]

Preciso saber se tem como fazer uma especie de condição dentro de um loop, igual a linguagem C...

do{ //FAÇA

instrução.

}while (ajude=obrigado) // enquanto isto for igual a isto

Se tiver como....Como fazer e qual a regra de sintaxe?

Obrigado

Editado Outubro 14, 2010 por Jonathan Queiroz
Remover caixa alta do título conforme regra 3.7 (Jonathan)

[robinhocne]

Preciso saber se tem como fazer uma especie de condição dentro de um loop, igual a linguagem C...

do{ //FAÇA

instrução.

}while (ajude=obrigado) // enquanto isto for igual a isto

Se tiver como....Como fazer e qual a regra de sintaxe?

Obrigado

Depende de qual estrutura seria, If ou For ou while e dentro disso você pode colocar verificando dentro, mas vocë pode sim outra condicao dentro do loop.....

[anhaya]

Ve se consegue me ajudar. Preciso repetir isto cada vez que o usuário teclar "espaço"....... É como se fosse um joguinho, cada vez que ele aperta espaço uma imagem caminha ate o alto da tela e depois desaparece.

procedure TJogo.FormKeyPress(Sender: TObject; var Key: Char);
//MOVIMENTANDO O TIRO

begin //A IMAGEM FICARA VISIVEL AO PRESSIONAR
  if Ord(Key) = 32 then
  Image3.Visible := True;
begin
  repeat
  Image3.Top := Image3.Top -5;
  Sleep(10);
  Application.ProcessMessages;
  until (Image3.Top <= 29);
  if Image3.Top <= 29 then Image3.Visible := False;
end; //TERMINO DA 1ºREPETIÇAÕ
end;
end.

[robinhocne]

acho que isso ajuda.......

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  var i : Integer;
begin
  if key = #32 then
    begin

      for i := 1 to 272 do
      begin
      Sleep(10);
      Application.ProcessMessages;
      img.Top := img.Top - 1;
      end;

    end;
end;