Hola chicos. Estoy queriendo hacer un control para una clave que debe seguir un patron. Me exigen trabajar con archivos. Aca les dejo el codigo
Código Delphi
[-]unit LibAuxVerificacion;
interface
Function VerificarICR(cod: string):boolean;
Function SonLetras(cadena:string):boolean;
function SonNumeros(cadena:string):boolean;
implementation
Function VerificarICR(cod: string):boolean;
var caractLetras,caractNum: string;
begin
if (Length(cod)=8)
then
begin
caractLetras:=cod[1]+ cod[2]+cod[6];
caractNum:=cod[3]+cod[4]+cod[5]+cod[7]+cod[8];
if SonLetras(caractLetras) and SonNumeros(caractNum)
then
VerificarICR:=true
else
VerificarICR:=false
end
else
VerificarICR:=false
end;
Function SonLetras(cadena:string):boolean;
var son:boolean; i:integer;
begin
son:=true;
i:=1;
repeat
if (cadena[i]>='A') and (cadena[i]<='Z')
then
i:=i+1
else
son:=false;
until (son=false) or (i>3);
SonLetras:=son;
end;
function SonNumeros(cadena:string):boolean;
begin
try
begin
StrToInt(cadena);
SonNumeros:=true;
end
except on exception do
SonNumeros:=false;
end;
end;
Les dejo adjunto el error que me tira. Lo que probe fue ir a tool y sacar el control de excepciones, pero el error sigue y ya nose como corregirlo. Muchas gracias por la ayuda! =)