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;