• Jueves 28 de Marzo de 2024, 10:25

Autor Tema:  Validar (#5).  (Leído 1486 veces)

_.B._

  • Miembro activo
  • **
  • Mensajes: 88
    • Ver Perfil
Validar (#5).
« en: Jueves 12 de Febrero de 2004, 05:55 »
0
Saludos!.
Me falta validar variables de tipo REAL, pero ese lo hago luego.
Si les gusta, usenlo.
Lean el código, q no es muy complejo.

A programar!.

Bernardo L. :comp:

NOTA: también lo subí a VALIDABL.PAS, para click con botón derecho, y guardarlo.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
¡Olmo, dame peras!
www.BernardoLG.net

_.B._

  • Miembro activo
  • **
  • Mensajes: 88
    • Ver Perfil
Re: Validar (#5).
« Respuesta #1 en: Jueves 12 de Febrero de 2004, 23:28 »
0
Código: Text
  1.     FUNCTION ValidaReal (Desde,Hasta:REAL; RespAttr:BYTE):REAL;
  2.       VAR
  3.         X,Y,TextAttr1:BYTE;
  4.         ErrVal:INTEGER;
  5.         AuxReal:REAL;
  6.         AuxStr:STRING;
  7.         AuxConj:ConjChar;
  8.         Oke:BOOLEAN;
  9.       BEGIN
  10.         AuxConj:=NumsChar+['E','e','+','-','.'];
  11.         TextAttr1:=TEXTATTR;
  12.         WhereXY (X,Y);
  13.         REPEAT
  14.           REPEAT
  15.             GOTOXY (X,Y);
  16.             CLREOL;
  17.             AuxStr:=ValidaString (255,AuxConj,RespAttr);
  18.             VAL (AuxStr,AuxReal,ErrVal);
  19.             IF ErrVal <> 0 THEN
  20.               BEGIN
  21.                 Oke:=FALSE;
  22.                 Ding
  23.               END
  24.             ELSE Oke:=TRUE
  25.           UNTIL Oke;
  26.           IF (AuxReal < Desde) OR (AuxReal > Hasta) THEN
  27.             BEGIN
  28.               Oke:=FALSE;
  29.               Ding
  30.             END
  31.           ELSE
  32.             Oke:=TRUE
  33.         UNTIL Oke;
  34.         ValidaReal:=AuxReal;
  35.         TEXTATTR:=TextAttr1
  36.       END;
  37.  

Bernardo L. :comp:
¡Olmo, dame peras!
www.BernardoLG.net