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

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.

Código Delphi [-]
  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.

Estas comparando strings con caracteres, por eso el error

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

Código Delphi [-]
if not (CharInSet(Key,['0' .. '9', Prueba[1] , #8, #27]))

Buen día.

Por favor, utiliza TAG's cuando añadas código a los mensajes.