FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
¿Cómo implantar en mi aplicación StrToInt?!!!
Buenas, estoy haciendo una aplicación para consola y quiero evitar cargarla con unidades de delphi, implantándolas como mucho en caso de que sea necesario. He intentado hacer eso con el StrToInt de la unit SysUtils... pero que va... depende de
Y ese procedure me da error en "local;".... ¿Se os ocurre alguna manera de implantarla? Gracias
__________________
:) |
#2
|
||||
|
||||
¿Qué entiendes por implantar una unidad?
// Saludos |
#3
|
||||
|
||||
Meter el procedure necesario en una unit aparte para no tener que cargar con procedures y funciones no necesarias
__________________
:) |
#4
|
|||
|
|||
StrToInt no es nada mas que un wrapper a la funcion Val, lo unico que hace de mas es hacer saltar una excepcion (lo hace la funcion ConvertErrorFmt) si la conversion es erronea, como se ve en el codigo fuente:
Código:
function StrToInt(const S: string): Integer; var E: Integer; begin Val(S, Result, E); if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]); end; Si quieres redefinir StrToInt el if que comprueba el error debes eliminarlo completamente y no utilizar excepciones para gestionar los errores: si utilizas excepciones es obligatorio que incluyas la unidad SysUtils ya que en ella se define el objeto base Excepcion. Quizas sea mas sencillo que uses StrToIntDef si es posible, ya que no usa excepciones para gestionar el error, de modo que no te dara ningun problema al copiarla a una unit propia: Código:
function StrToIntDef(const S: string; Default: Integer): Integer; var E: Integer; begin Val(S, Result, E); if E <> 0 then Result := Default; end; |
#5
|
||||
|
||||
Cita:
// Saludos |
#6
|
||||
|
||||
Ya me quedó claro.. ¡Muchísimas gracias!
__________________
:) |
#7
|
|||
|
|||
puedes implementar las funciones en otra unit, incluirla en tu aplicacion y despues utilizarla cuando la necesites
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|