Uso de CharInSet

[[ElKurgan]]

Todo viene a cuenta de la inclusión de Unicode a partir de Delphi 2009. Te aconsejan utilizar la función CharInSet porque funciona con esos tipos de cadenas de forma más eficiente.

Saludos

[jafera]

Gracias por la respuesta, pero sigo sin aclararme.

Debo cambiar el tipo de campo en la tabla?
Debo añadir la fguncion al uses?

Saludos

Josep

[engranaje]

Si no me equivoco lo que te está recomendando es que hagas

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

en lugar de

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

CharInSet está en sysutils por lo que si no lo tuvieras en el uses tendrías que añadirla.

[jafera]

Empezado por engranaje

Si no me equivoco lo que te está recomendando es que hagas

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

No le gusta, dice que CharInSet no se puede usar con estos argumentos, he probado a ponerlo todo entre parentesis y tampoco.

Gracias

Josep

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