problema Función verificar imei (luhn)

[rafaelon]

buenas tardes tengo la siguiente consulta tengo esta función

function IMEIcheck(imei : string): string;
var
  a : Integer;
  sum : Integer;
  i : Integer;
  d : string;
  ds : Integer;
begin
  a := 0;
  sum := 0;
  for i := 0 to Length(imei)-1 do
  begin
    d := Copy(imei, Length(imei)-i, 1);
    ds := StrToInt(d);
    if a mod 2 = 0 then
      ds := ds * 2;
    if ds > 9 then
      ds := ds - 9;
    sum := sum + ds;
    a := a + 1;
  end;
  sum := sum mod 10;
  Result := IntToStr(10 - sum);
end;

y basicamente quiero que tome el valor de imei de un Edit.text y el codigo de verificacion lo muestre en otro edit pero no se que hago mal

var
s:string;
numero:integer;

begin
numero:= StrToInt(frm_principal.edit10.Text);
s:= IMEIcheck('numero');
edit11.Text:=s;
end;

[ecfisa]

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

[rafaelon]

muchas gracias , me funciono era así de simple