Ajuda com o While....

Delphi

28/04/2004

Olá,

Como faço para que apos ser testada uma condição no while o comando ainda continue fazendo a busca ate o final do arquivo.

Ex.:

while not tblconta.eof do
Begin
if tblcontaSituacao.value = ´Sim´ then
Begin
/// Aqui eu gostaria de fazer com o que desse volta ////
/// e passe a testar o outro registro ///
/// ou seja qual o comando eu dou antes do Next e ele var
/// testar ( um loop no velho clipper )
tblconta.next;
end;
soma := soma + tblcontaValor.value;
tblconta.next;
end;

Espero ter sido bem claro...

Valeu,

Fabio Cavalcanti


Cavalcanti.fabio

Cavalcanti.fabio

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

28/04/2004

Colega,

while not tblconta.eof do 
Begin 
 if tblcontaSituacao.value = ´Sim´ then 
 Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  continue;
 end;
 soma := soma + tblcontaValor.value; 
 tblconta.next; 
end;



GOSTEI 0
Adilsond

Adilsond

28/04/2004

while not tblconta.eof do 
begin 
  if tblcontaSituacao.value <> ´Sim´ then 
     soma := soma + tblcontaValor.value; 
  tblconta.next; 
end;



GOSTEI 0
Adilsond

Adilsond

28/04/2004

[quote:c5e8d6fe77=´Aroldo Zanela´]Colega,

while not tblconta.eof do 
Begin 
 if tblcontaSituacao.value = ´Sim´ then 
 Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  continue;
 end;
 soma := soma + tblcontaValor.value; 
 tblconta.next; 
end;
[/quote:c5e8d6fe77]
Só que desta maneira ficará em um loop infinito


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

28/04/2004

Colega,

Desculpe, engoli uma linha:

while not tblconta.eof do 
Begin 
if tblcontaSituacao.value = ´Sim´ then 
Begin 
  /// Aqui eu gostaria de fazer com o que desse volta //// 
  /// e passe a testar o outro registro /// 
  /// ou seja qual o comando eu dou antes do Next e ele var 
  /// testar ( um loop no velho clipper ) 
  tblconta.next;
  continue;  // continue com a próxima iteração
end; 
soma := soma + tblcontaValor.value; 
tblconta.next; 
end;



GOSTEI 0
POSTAR