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 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