Problemas com For

Delphi

02/10/2003

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


Ricardo Freitas

Ricardo Freitas

Curtidas 0

Respostas

Ljr

Ljr

02/10/2003

Coloquei um Button e um Memo no form, copiei o codigo e acrescentei uma linha de codigo.

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.


GOSTEI 0
POSTAR