Uso de CharInSet

[[gatosoft]]

http://docwiki.embarcadero.com/Libra...tils.CharInSet

Revisa hacer un Type Cast con AnsiChar

Código Delphi [-]
if CharInSet (AnsiChar(UpCase(Key)), ['N','S']) then

No tengo delphi ahora para poderte confirmar, pero revisa tambien la opcion de AnsiUpperCase en lugar de UpCase

Código Delphi [-]
if CharInSet (AnsiUpperCase (Key), ['N','S']) then

El tema es que todas las funciones que recibian parametros String o Char cambiaron para WideString, AnisChar, AnsiString...

saludo,

[jafera]

Empezado por gatosoft

http://docwiki.embarcadero.com/Libra...tils.CharInSet

Revisa hacer un Type Cast con AnsiChar

Código Delphi [-]if CharInSet (AnsiChar(UpCase(Key)), ['N','S']) then

Muchas gracias.

Esta opcion es la que ha funcionado perfectamente, ya no da el "warning" al compilar

Saludos

Josep

[jafera]

Y este otro warning

Código Delphi [-]
[dcc32 Warning] Arbitres.pas(942): W1057 Implicit string cast from 'AnsiString' to 'string'

Es algo parecido?

Saludos

Josep

[[gatosoft]]

Es solo un warning para que analices y optimices tu código, en el cual te indica que en esa linea de código el compilador hace un tratamiento de AnsiString a una cadena que defines como string (o viceversa).

Al igual que el warning que da origen a este hilo.. que te sugiere que consideres modificar tu código para que no hayan problemas de compatibilidad en ciertos casos.

En lo personal, siempre intento atender los warnings, pero no son obligatorios