Fórum Problemas com For #185937
02/10/2003
0
Olá a todos!
Estou com um problema bem interessante, quando tento colocar 03 comandos ´FOR´ aninhados.
EX.: For S := 1 to 5 do
Begin
For D := 1 to 6 do
Begin
For H := 1 to 3 do
Begin
{Codigo que deve ser executado}
End;
End;
End;
Quando o sistema esta rodando os valores das variaveis S, D e H, ficam na primeira passada dos lacos com os respectivos valores 5, 6 e 3.
Nao compreendo o que esta errado. Caso alguem possa ajudar-me, desdeja agradeco a atencao dispensada.
Atenciosamente,
Ricardo C. Freitas
Estou com um problema bem interessante, quando tento colocar 03 comandos ´FOR´ aninhados.
EX.: For S := 1 to 5 do
Begin
For D := 1 to 6 do
Begin
For H := 1 to 3 do
Begin
{Codigo que deve ser executado}
End;
End;
End;
Quando o sistema esta rodando os valores das variaveis S, D e H, ficam na primeira passada dos lacos com os respectivos valores 5, 6 e 3.
Nao compreendo o que esta errado. Caso alguem possa ajudar-me, desdeja agradeco a atencao dispensada.
Atenciosamente,
Ricardo C. Freitas
Ricardo Freitas
Curtir tópico
+ 0
Responder
Posts
02/10/2003
Ljr
Coloquei um Button e um Memo no form, copiei o codigo e acrescentei uma linha de codigo.
O resultado final ficou assim
Comigo o codigo acima funcionou
Nao entendi o que esta errado.
O resultado final ficou assim
procedure TForm1.Button1Click(Sender: TObject);
var
s, d, h: byte;
begin
for s:= 1 to 5 do
for d:= 1 to 6 do
for h:= 1 to 3 do
Memo1.Lines.Add(´S = ´ + IntToStr(s) + ´ D = ´ + IntToStr(d) + ´ H = ´ + IntToStr(h))
end;Comigo o codigo acima funcionou
Nao entendi o que esta errado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)