Evento KeyPress (Acepte Números y un caracter especial)

[Soa Pelaez]

Buen día.

Quisiera que me ayuden quiero validar un Edit para que me acepte números y un caracter dependiendo del resultado de una sentencia.


if Sentencia.RecordCount > 0 then
begin
//Prueba es una variable tipo string
Prueba:= Sentencia.FieldValues['caracter'];
if not (CharInSet(Key,['0' .. '9', Prueba , #8, #27])) then // 03/10/2015
begin
Key := #0;
Beep; // 03/10/2015 Sonido para que sepa que la tecla no la reconoce en el campo
end;
end


El error que me arroja es Incompatyble types: 'AnsiChar and String'

Si alguien puede ayudarme se lo agradecería.

[AgustinOrtu]

Estas comparando strings con caracteres, por eso el error

Proba asi, asumiendo que en Prueba tenes un string con un solo caracter


if not (CharInSet(Key,['0' .. '9', Prueba[1] , #8, #27]))

[Neftali [Germán.Estévez]]

Buen día.


Buen día.

Por favor, utiliza TAG's cuando añadas código a los mensajes (http://tinyurl.com/bvzsyhb).