usar o comando next dentro de um While d uma vez
Será q eu posso dentro de um While usar mais de uma vez o comando next, por exemplo:
TbItens.First;
While Not TbItens.eof do
begin
WQta:=TbItensQuantidade.Value;
if C1C1.Text = ´´ then
begin
WQual:=WQual+1;
C1C1.Enabled:=True;
if WQual = WQta then
TbItens.Next; //aqui
end;
if C1C2.Text = ´´ then
begin
WQual:=WQual+1;
C1C2.Enabled:=True;
if WQual = WQta then
TbItens.Next; //aqui
end;
TbItens.Next; //ultimo
end;
eu tentei fazer assim não deu certo pois ele passa pelos primeiros next e não sobe, como eu posso fazer pra dar certo, é q quando a variável WQual for igual e WQta(qtde de itens na tabela) eu já subo antes de chegar no último next, e da forma q coloquei qdo passa pelos primeiros Tbitens.Next ele não sobe só no último, o q daria pra eu fazer neste caso?
TbItens.First;
While Not TbItens.eof do
begin
WQta:=TbItensQuantidade.Value;
if C1C1.Text = ´´ then
begin
WQual:=WQual+1;
C1C1.Enabled:=True;
if WQual = WQta then
TbItens.Next; //aqui
end;
if C1C2.Text = ´´ then
begin
WQual:=WQual+1;
C1C2.Enabled:=True;
if WQual = WQta then
TbItens.Next; //aqui
end;
TbItens.Next; //ultimo
end;
eu tentei fazer assim não deu certo pois ele passa pelos primeiros next e não sobe, como eu posso fazer pra dar certo, é q quando a variável WQual for igual e WQta(qtde de itens na tabela) eu já subo antes de chegar no último next, e da forma q coloquei qdo passa pelos primeiros Tbitens.Next ele não sobe só no último, o q daria pra eu fazer neste caso?
Janete
Curtidas 0
Respostas
Emerson Nascimento
26/06/2004
TbItens.First;
While Not TbItens.eof do
begin
    WQta := TbItensQuantidade.Value;
    if C1C1.Text = ´´ then
    begin
        Inc(WQual);
        C1C1.Enabled := True;
        if WQual = WQta then
        begin
            TbItens.Next; //aqui
            continue; // aqui retorna para início do laço
        end;
    end;
    if C1C2.Text = ´´ then
    begin
        Inc(WQual);
        C1C2.Enabled := True;
        if WQual = WQta then
        begin
            TbItens.Next; //aqui
            continue; // aqui retorna para início do laço
        end;
    end;
    TbItens.Next; //ultimo
end;
While Not TbItens.eof do
begin
    WQta := TbItensQuantidade.Value;
    if C1C1.Text = ´´ then
    begin
        Inc(WQual);
        C1C1.Enabled := True;
        if WQual = WQta then
        begin
            TbItens.Next; //aqui
            continue; // aqui retorna para início do laço
        end;
    end;
    if C1C2.Text = ´´ then
    begin
        Inc(WQual);
        C1C2.Enabled := True;
        if WQual = WQta then
        begin
            TbItens.Next; //aqui
            continue; // aqui retorna para início do laço
        end;
    end;
    TbItens.Next; //ultimo
end;
GOSTEI 0