problemas com quot;whilequot;

Question

caros colegas, no c�digo abaixo tenho um edit, onde informo a quantidade de etiquetas a ser gerada.A id�ia � a seguinte ap�s o usuario digitar a quantidade:�enquanto a quantidade nao for = zero fassa ...

Macario · Answer

Ol� voce pode usar um [b:30071a0f9a]for[/b:30071a0f9a] para este tipo de la�o!

Outra coisa seu while esta errado mesmo, pois voce n�o esta impondo decremento a condi��o de parada.

Voce esta pegando dados de uma mesma tabela e o inserindo novamente?!?!

Colega esta muito confuso este seu codigo...para que possa entender o que voce necessita.

Sabe.geraldo · Answer

Para dar certo voce tem que decrementar a quantidade em - 1 dentro do cilo do while. Ex.: quantidade := ( quantidade - 1 );...

Michael · Answer

O problema acontece pq vc n�o atualiza os valores de quantidade e soma [b:76bd38d77f]dentro [/b:76bd38d77f]do loop.

while quantidade > 0 do
begin  
  soma := Pred(quantidade); // O mesmo que quantidade - 1
  ...
  Dec(quantidade); // O mesmo que quantidade := quantidade - 1;
end;

E, como o colega [b:76bd38d77f]Macario [/b:76bd38d77f]disse, vc poderia usar um loop [b:76bd38d77f]for [/b:76bd38d77f]aqui, pois o intervalo a ser percorrido � conhecido.

for I:= quantidade downto 1 do
...

[]�s

Mahdak · Answer

colegas, quero agradecer muito a ajuda, mas nao estou conseguindo arrumar o c�digo de acordo com o sugerido... tentei aqui e o executavel trava...
alguem poderia me dar uma m�o? � que eu tenho que entregar isso para o cliente hoje ainda...
Abra�os...

Rjun · Answer

Se voc� fez o que o pessoal sugeriu era para funcionar. Poste o c�digo novamente....

Mahdak · Answer

ta na m�o:[code:1:900e360cf4]procedure TForm1.Button3Click(Sender: TObject);varsoma, quantidade, cod,I : integer;begin    quantidade := StrToInt(Edit_quantidade.Text);    while quantidade > 0 do    begin        Soma := Pred(quantidade);        for I:= quantidade downto 1 do        begin            // Contador de codigo            Tbl_Etiquetas.Open;            Tbl_Etiquetas.Last;            Cod := Tbl_EtiquetasCODIGO.AsInteger + 1;            Label_Codigo.Caption := IntToStr(Cod);            //--------------------------------------            // salva em uma tabela temporaria            Tbl_Etiquetas.Insert;            Tbl_EtiquetasCODIGO.AsInteger   := Cod;            Tbl_EtiquetasCODIGO_E.AsInteger := StrToInt(edit_codigo.Text);            Tbl_EtiquetasNOME.AsString      := edit_produto.Text;            Tbl_Etiquetas.Post;            Tbl_Etiquetas.ApplyUpdates;            // diminui o valor contido no edit para o while verificar se ja chegou a zero            Edit_quantidade.Text := IntToStr(soma);        end;    end;end;[/code:1:900e360cf4]...

Edilcimar · Answer

vc fez um while com quantidade, onde � que vc decrementou o valor de quantidade?...

Mahdak · Answer

opa!!!, pessoal, consegui... desculpa a minha ignorancia... vai abaixo o c�digo correto:

abra��o!!!!!

procedure TForm1.Button3Click(Sender: TObject);
var
soma, quantidade, cod,I : integer;
begin

    quantidade := StrToInt(Edit_quantidade.Text);
    while quantidade > 0 do

    begin
        Soma := Pred(quantidade);

        for I:= quantidade downto 1 do
        begin
            // Contador de codigo
            Tbl_Etiquetas.Open;
            Tbl_Etiquetas.Last;
            Cod := Tbl_EtiquetasCODIGO.AsInteger + 1;
            Label_Codigo.Caption := IntToStr(Cod);
            //--------------------------------------

            // salva em uma tabela temporaria
            Tbl_Etiquetas.Insert;
            Tbl_EtiquetasCODIGO.AsInteger   := Cod;
            Tbl_EtiquetasCODIGO_E.AsInteger := StrToInt(edit_codigo.Text);
            Tbl_EtiquetasNOME.AsString      := edit_produto.Text;
            Tbl_Etiquetas.Post;
            Tbl_Etiquetas.ApplyUpdates;


            // diminui o valor contido no edit para o while verificar se ja chegou a zero
            Dec(quantidade);
            Edit_quantidade.Text := IntToStr(quantidade);
        end;
    end;
end;

Rjun · Answer

Voc� n�o precisa usar For e While. Use um dos dois.

procedure TForm1.Button3Click(Sender: TObject); 
var 
  Quantidade, 
  i: Integer;
begin 
  Quantidade := StrToInt(Edit_quantidade.Text); 
  
  for i := Quantidade downto 1 do 
  begin 
    // Contador de codigo 
    Tbl_Etiquetas.Open; 
    Tbl_Etiquetas.Last; 
    Cod := Tbl_EtiquetasCODIGO.AsInteger + 1; 
    Label_Codigo.Caption := IntToStr(Cod); 
     //-------------------------------------- 

     // salva em uma tabela temporaria 
     Tbl_Etiquetas.Insert; 
     Tbl_EtiquetasCODIGO.AsInteger   := Cod; 
     Tbl_EtiquetasCODIGO_E.AsInteger := StrToInt(edit_codigo.Text); 
     Tbl_EtiquetasNOME.AsString      := edit_produto.Text; 
     Tbl_Etiquetas.Post; 
     Tbl_Etiquetas.ApplyUpdates; 

     Edit_quantidade.Text := IntToStr(i); 
  end; 
end;

Michael · Answer

Um for dentro do [b:c78cf67f8f]while[/b:c78cf67f8f]? Vc usou as duas dicas que o colega [b:c78cf67f8f]Macario [/b:c78cf67f8f]e eu demos, mas elas eram mutuamente exclusivas!

Outro problema � que vc est� mudando o valor do contador [b:c78cf67f8f]I[/b:c78cf67f8f] dentro do loop [b:c78cf67f8f]for[/b:c78cf67f8f], e isso � totalmente desaconselh�vel, pois pode resultar em loops eternos.

Do jeito que est�, o loop while s� � executado uma vez, pois o valor de quantidade � decrementado at� 0 - em uma ordem n�o linear, pois tanto o loop for quanto [b:c78cf67f8f]Dec(Quantidade)[/b:c78cf67f8f] mudam seu valor.

Use [b:c78cf67f8f]while [/b:c78cf67f8f]ou [b:c78cf67f8f]for [/b:c78cf67f8f]no seu caso. N�o os dois, pelo menos do jeito que est�.

[]�s

Mahdak · Answer

ok, ja esta arrumado conforme o colega Rjun sugeriu...muito obrigado pela aten��o!   :D abra�os!...