Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-09-2004
Esau Esau is offline
Miembro
 
Registrado: may 2003
Ubicación: Canto Rey
Posts: 140
Poder: 21
Esau Va por buen camino
Compilar una Unidad

Hola Foro , como estan , hace buen tiempo que no ingresaba , bueno , tengo una pequeña duda, creo que pueden ayudarme...
miren Uso delphi 7.0, la ves pasada estaba buscando una funcion que me devuelva el Año actual, y encontre en la unit SysUtils la funcion (function CurrentYear: Word en la linea 11296 de dicha unidad, bueno el motivo de la consulta es la siguiente... yo quiero implementar la funcion CurrentMonth, en la misma unidad, para que esten disponobles en todas mis aplicaciones pero al momento de compilar , me arroya un error que dice , no se encontro la funcion CurrentMonth o algo por el estilo...
el punto es como puedo volver a recompilar la unidad SysUtils , para que mi funcion que he agregado este disponible ahora en esta unidad...
a la funcion CurrentMonth es la siguiente, pruebenla
function CurrentMonth: Word;
{$IFDEF MSWINDOWS}
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTime.wMonth;
end;
{$ENDIF}
{$IFDEF LINUX}
var
T: TTime_T;
UT: TUnixTime;
begin
__time(@T);
localtime_r(@T, UT);
Result := UT.tm_Month
end;
{$ENDIF}


gracias por las respuestas...
Responder Con Cita
  #2  
Antiguo 11-09-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Hola.

No es recomendable cambiar el código de las unidades del propio delphi. De hecho, según recuerdo, la licencia lo prohibe.

Por otro lado, en delphi 7 tenes la unidad DateUtils, con la que podes hacer:

MonthOf(now);

que dará el resultado que buscas.

Si de todas formas decidis hacer tu función, o si te sirve en otra ocasión, es mejor que hagas tu propia unidad o unidades, que luego simplemente añadis al uses para que esté disponible donde querras.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #3  
Antiguo 11-09-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Antes que se me adelante román... muevo el hilo al foro de varios, que no veo sentido para que esté en OOP.

Saludos.
__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #4  
Antiguo 12-09-2004
Esau Esau is offline
Miembro
 
Registrado: may 2003
Ubicación: Canto Rey
Posts: 140
Poder: 21
Esau Va por buen camino
Ok

Bueno no sabia que no se podia modificar , pero bueno la opcion de una unit es mejor ...
probare la opcion que me das..

gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 02:06:39.


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