Fórum Como faço? #157594
03/05/2003
0
Tenho um trecho do programa ke faz +- isso;
var
d:integer;
begin
{algumas comparacoes}(desejo voltar aqui)
if d>5 then
begin d=2;
{alguma coisa};
end
else...
{aqui esta a duvida,se d>5 faço uma coisa,se não for quero que vá para a linha inicial do begin,depois do else estou repetindo o codigo inicial}
Como faço para o programa saltar para o inicio do begin?
var
d:integer;
begin
{algumas comparacoes}(desejo voltar aqui)
if d>5 then
begin d=2;
{alguma coisa};
end
else...
{aqui esta a duvida,se d>5 faço uma coisa,se não for quero que vá para a linha inicial do begin,depois do else estou repetindo o codigo inicial}
Como faço para o programa saltar para o inicio do begin?
Kroki
Curtir tópico
+ 0
Responder
Posts
03/05/2003
Obubiba
while true do
begin
if d>5 then
begin d=2;
{alguma coisa};
end
else...
end;
No momento que quiser sair do While, dê o comando [b:49b13456f2]break;[/b:49b13456f2]
begin
if d>5 then
begin d=2;
{alguma coisa};
end
else...
end;
No momento que quiser sair do While, dê o comando [b:49b13456f2]break;[/b:49b13456f2]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)