¿Cómo implantar en mi aplicación StrToInt?!!!

[DarkByte]

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

Código Delphi [-]
procedure ConvertErrorFmt(ResString: PResStringRec; const Args: array of const); local;
begin
  raise EConvertError.CreateResFmt(ResString, Args);
end;

Y ese procedure me da error en "local;".... ¿Se os ocurre alguna manera de implantarla?

Gracias

[roman]

¿Qué entiendes por implantar una unidad?

// Saludos

[DarkByte]

Meter el procedure necesario en una unit aparte para no tener que cargar con procedures y funciones no necesarias

[Mick]

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:

function StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

Lo mejor es que uses directamente la funcion Val en tu programa en lugar de StrToInt.

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:

function StrToIntDef(const S: string; Default: Integer): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then Result := Default;
end;

Saludos

[roman]

Empezado por DarkByte

Meter el procedure necesario en una unit aparte para no tener que cargar con procedures y funciones no necesarias

El linker de Delphi es lo suficientemente inteligente como para descartar el código que no se utiliza al momento de formar el ejecutable de manera que es una preocupación innecesaria.

// Saludos

[DarkByte]

Ya me quedó claro.. ¡Muchísimas gracias!

[xelip]

puedes implementar las funciones en otra unit, incluirla en tu aplicacion y despues utilizarla cuando la necesites