Programación General > Pascal

 Validar (#5).

(1/1)

_.B._:
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.

_.B._:

--- Código: Text ---    FUNCTION ValidaReal (Desde,Hasta:REAL; RespAttr:BYTE):REAL;      VAR        X,Y,TextAttr1:BYTE;        ErrVal:INTEGER;        AuxReal:REAL;        AuxStr:STRING;        AuxConj:ConjChar;        Oke:BOOLEAN;      BEGIN        AuxConj:=NumsChar+['E','e','+','-','.'];        TextAttr1:=TEXTATTR;        WhereXY (X,Y);        REPEAT          REPEAT            GOTOXY (X,Y);            CLREOL;            AuxStr:=ValidaString (255,AuxConj,RespAttr);            VAL (AuxStr,AuxReal,ErrVal);            IF ErrVal <> 0 THEN              BEGIN                Oke:=FALSE;                Ding              END            ELSE Oke:=TRUE          UNTIL Oke;          IF (AuxReal < Desde) OR (AuxReal > Hasta) THEN            BEGIN              Oke:=FALSE;              Ding            END          ELSE            Oke:=TRUE        UNTIL Oke;        ValidaReal:=AuxReal;        TEXTATTR:=TextAttr1      END; 
Bernardo L. :comp:

Navegación

[0] Índice de Mensajes