Social Icons

^^

quarta-feira, 29 de dezembro de 2010

Como usar Repeat Until no delphi

Com esta instrução, o conteúdo contido na instrução será executado ao menos uma vez, a diferença do Repeat Until para o for do e o while do , é que o  Repeat Until testa no final, enquanto o outro testa no início.

procedure TForm1.Button1Click(Sender: TObject);
Var
 I : Integer;
begin
  I := 1;
  repeat
     ShowMessage(IntToStr(I));
    Inc(I);
  until (I = 7);
end;


Nenhum comentário:

Postar um comentário

Popular Posts

 

Seguidores

Hora exata:

Total de visualizações de página