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 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... |
|
|
|