Ver Mensaje Individual
  #2  
Antiguo 25-06-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rafaelon, bienvenido a los foros de Club Delphi y como a todos los que se inician te invitamos a leer nuestra guía de estilo.

En cuanto a tu consulta, primero hay que aclarar que
Código Delphi [-]
numero
no es igual a
Código Delphi [-]
'numero'

Segundo (y habiendo quitado las comillas) la función IMEIcheck espera un argumento de tipo string y le estarías pasando uno de tipo Integer.


Tercero la función IMEIcheck devuelve un valor de tipo string y no es necesario convertirlo a Integer mediante StrToInt cuando lo asignas a Edit11.Text ya que este espera un valor tipo string.

Dicho esto y sin saber si la función funciona (valga la redundancia), creo que simplemente deberías hacer algo como esto:
Código Delphi [-]
...
begin
  Edit11.Text := IMEIcheck( Edit10.Text ) ;
end;
Por último, ¡ ojo ! en ningún lugar se está haciendo la comprobación del valor que tiene Edit10.Text y que se envía a la función, pero eso es otra cuestión...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita