Showmessage time

Delphi

23/07/2014

Estou desenvolvendo um aplicativo em delphi com o seguinte codigo dentro do Timer. Segue:



begin

if(dm.cdscategoriaAndamento.text = 'PENDENTE') AND (MASKEDIT1.TEXT=TIMETOSTR(TIME))

then

showmessage('existem recados pendentes' +dm.cdscategoria.descricao.text +'favor contactar');



end;



end;



A minha dúvida é a seguinte. Eu preencho os dados e coloco pendente e também o horario, ou seja se der por exemplor 21:00:00 e tiver 3 registros como pendentes e com o mesmo horario, ele so mostra um deles, os outros nao mostra. Gostaria de saber como faço para mostrar os 3 registros que contenham a condição de pendente e com o mesmo horario.

        
                

                    

                        Júnior Brito
                        
Júnior Brito

                    

                    
Curtidas 0

                

            

        

        

            
Respostas

        

        

             

                 

                     

                          Itamar Souza
                          
Itamar Souza

                     

                     
 23/07/2014

                 

                

                    Bom dia



Veja um exemplo, se der certo, marque a minha resposta.



Agradeço!





procedure TForm1.Exemplo);
begin

  if(dm.cdscategoriaAndamento.text = 'PENDENTE') AND (MASKEDIT1.TEXT=TIMETOSTR(TIME)) then
   begin
      dm.cdscategoria.First;
      while not dm.cdscategoria.EOF do
      begin
        showmessage('existem recados pendentes' + dm.cdscategoria.fieldByname('campo').asstring +'favor contactar');
        dm.cdscategoria.Next;
      end;
  end;

end;


                

                
GOSTEI 0

             

             

        

            POSTAR