Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   string a Integer (https://www.clubdelphi.com/foros/showthread.php?t=25864)

Juanito-Kun 06-10-2005 04:05:48

string a Integer
 
Hola que tal estoy utilizando Delphi 7 con firebird..


Tengo el siguiente problemilla, tenge que convertir un String a Integer..

pero la Cadena serian 'D6', 'D8'.. lo que quiero hacer es sacar el solo el 6 y el 8.
como puedo hacer esto, trate con esta funcion:

Código:

L:=StrTOInt('D6')
siendo L Integer, me marca que no puedo convertirlo...

saludos y gracias...

vtdeleon 06-10-2005 04:25:50

Saludos
Creo que con:
Código Delphi [-]
StrToInt(Copy('D6',2,1));
Suerte

Caro 06-10-2005 04:28:32

Hola podrias hacerlo asi:

Código Delphi [-]
      cadena_nueva:=copy(cadena,2,length(cadena)-1);
      L:=strtoint(cadena_nueva);

Saludos

Juanito-Kun 06-10-2005 06:03:08

GRacias
 
GRACIAS !! vtdeleon,Caro...

se me habia olviado el Copy, jejeje..:p

saludos y gracias.;)

Lepe 06-10-2005 12:53:43

Pues propongo otra modificación con vuestro permiso:
Código Delphi [-]
    cadena_nueva:=copy(cadena,2,length(cadena)-1);
    L:=StrtoIntDef(cadena_nueva,-1);
    if L = -1 then
      raise Exception.Create('No se ha podido detectar la version de delphi');

Antes se producía una excepción si no se podía convertir un String a Entero, cosa que al usuario final no lo entiende ni le importa. Ahora el mensaje de error queda más claro, y si le tiene que importar :D.

Saludos


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

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