![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 ![]() 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... |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
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 |
#4
|
|||
|
|||
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 |
![]() |
|
|
![]() |
|