[jafera]

Hola de nuevo a todos.

Despues de unos dias sin tocar Delphi, he retomado la conversión de un proyecto D6 a DXE7 y al compilar, todo sale correcto pero me envia el warning siguiente:

[dcc32 Warning] Principal.pas(227): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

El codigo es el siguiente:

Código Delphi [-]
if ((Sender as TJvDBGrid).SelectedField.FieldName = 'DIVENDRES') then
        begin
                if(UpCase(Key) in ['N','S']) then      //Esta es la linea 227
                        Key:= UpCase(Key)
                else
                        Key:= #0;
        end;

Entiendo que me propone que cambie una funcion pero no acabo de entenderlo.

Muchas gracias por adelantado.

Josep