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