Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 12-11-2009
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
A falta de conocer la estructura paciente y como está organizado el archivo Pacientes.dat, considera que tu código se podría ir optimizando de esta manera:

Código:
void CumpleAnos()
{
    WORD D_Hoy, M_Hoy, D_Cumple, M_Cumple, Year;

    DecodeDate(Now(), Year, M_Hoy, D_Hoy);

    paciente p;
    fstream archi("C:/Pacientes.dat",  ios::in | ios::binary | ios::app);
    archi.seekg(0, ios::beg);

    archi.read((char*)&p,sizeof(p));
    while(!archi.eof()){
      TDate Nacimiento(p.fecha_nac);
      DecodeDate(Nacimiento, Year, M_Cumple, D_Cumple);
      if(M_Hoy == M_Cumple && D_Hoy == D_Cumple){
          int edad = ((int)(Now() - Nacimiento)) / 365;
          String Total =  String(p.apellido) +  ", " + String(p.nombre);
          Total = Total + " (" + IntToStr(edad) + ") ";
          Form1->ComboBox3->Items->Add(Total);
       }
       archi.read((char*)&p,sizeof(p));
    }
}
En lugar de usar un fstream puedes usar cualquier otro sistema de manejo de ficheros. Tu decides lo que tienes que hacer.

Saludos.

Última edición por escafandra fecha: 14-11-2009 a las 01:11:38.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
problema con funcion!! MOCOSO07 HTML, Javascript y otros 0 12-01-2009 16:39:40
Problema con una funcion Alliance Varios 5 09-10-2008 02:38:32
Problema con declaración de función vivamotos C++ Builder 1 25-04-2008 10:35:56
Problema con la funcion mail JulioGO PHP 2 26-09-2005 11:24:15
problema al llamar una función sgarrido Varios 3 27-07-2004 01:14:33


La franja horaria es GMT +2. Ahora son las 19:03:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi