{"id":654,"date":"2010-01-22T09:37:56","date_gmt":"2010-01-22T01:37:56","guid":{"rendered":"http:\/\/www.andreanolanusse.com\/pt\/?p=654"},"modified":"2011-03-08T12:18:49","modified_gmt":"2011-03-08T04:18:49","slug":"delphi-unicode-entendo-os-avisos-warning-do-compilar-sua-aplicacao","status":"publish","type":"post","link":"http:\/\/www.andreanolanusse.com\/pt\/delphi-unicode-entendo-os-avisos-warning-do-compilar-sua-aplicacao\/","title":{"rendered":"Delphi Unicode \u2013 entendo os avisos (warning) do compilar sua aplica\u00e7\u00e3o"},"content":{"rendered":"

\"\"A partir do Delphi 2009 foi implementado o suporte a Unicode em todo o Delphi, caso voc\u00ea n\u00e3o esteja familiarizado com Unicode leia este post<\/strong><\/a>. Ao compilar sua aplica\u00e7\u00e3o alguns avisos (warning) ser\u00e3o emitidos pelo compilador, neste post vou esclarecer estas mensagens e o que voc\u00ea deve fazer para que elas n\u00e3o apare\u00e7am mais.<\/p>\n

O c\u00f3digo abaixo at\u00e9 vers\u00f5es do Delphi 2007, compilado em vers\u00f5es igual ou superiores ao Delphi 2009, receber\u00e1 esta mensagem ao compilar:<\/p>\n

W1050 WideChar reduced to byte char in set expressions. Consider using ‘CharInSet’ function in ‘SysUtils’ unit<\/p>\n

var\r\n  Status : Char;\r\nbegin\r\n\r\n  if Status in [ 'a', 's', 'c']  then\r\n  begin\r\n    ...\r\n  end;<\/pre>\n
Para evitar este warning, voc\u00ea dever\u00e1 passar a usar a fun\u00e7\u00e3o CharInSet.<\/p>\n
var\r\n  Status : Char;\r\nbegin\r\n\r\n  if CharInSet(Status, ['a', 's', 'c']) then\r\n  begin\r\n    ...\r\n  end;<\/pre>\n
O c\u00f3digo abaixo ir\u00e1 gerar a mensagem W1057 Implicit string cast from ‘ShortString’ to ‘string’<\/strong><\/p>\n
var\r\n  s : ShortString;\r\n  u : string;\r\nbegin\r\n  u := s;\r\nend;<\/pre>\n
Para eliminar este mensagem basta fazer um cast da var\u00edavel ShortString para String, este c\u00f3digo ser\u00e1 compat\u00edvel com vers\u00f5es anteriores ao Delphi 2009.<\/p>\n
var\r\n  s : ShortString;\r\n  u : string;\r\nbegin\r\n  u := String(s);\r\nend;<\/pre>\n
A mesma situa\u00e7\u00e3o se aplica para vari\u00e1veis AnsiString gerando a mensagem W1057 Implicit string cast from ‘AnsiString’ to ‘string’<\/strong><\/p>\n
var\r\n  a : AnsitString;\r\n  u : string;\r\nbegin\r\n  u := s;\r\nend;<\/pre>\n
Basta fazer um cast da vari\u00e1vel AnsiString para String e a mensagem ser\u00e1 eliminada.<\/p>\n
var\r\n  a : AnsitString;\r\n  u : string;\r\nbegin\r\n  u := AnsiString(s);\r\nend;<\/pre>\n
A mensagem W1058 Implicit string cast with potential data loss from ‘string’ to ‘AnsiString’<\/strong> precisa ser analizada com cuidado, podemos fazer o cast e resolver o problema, mas voc\u00ea precisa saber o que est\u00e1 fazendo.<\/p>\n
var\r\n  a : AnsitString;\r\n  u : string;\r\nbegin\r\n  u := s;\r\nend;<\/pre>\n
Se voc\u00ea tem certeza que a vari\u00e1vel a<\/strong> cont\u00e9m apenas caracteres Ansi, poder\u00e1 fazer o cast sem problemas.<\/p>\n
var\r\n  a : AnsitString;\r\n  u : string;\r\nbegin\r\n  u := AnsiString(s);\r\nend;<\/pre>\n
At\u00e9 aqui vimos as mensagens geradas pelo compilador, Unicode vai muito mais al\u00e9m e se voc\u00ea quiser exportar sua aplica\u00e7\u00e3o para pa\u00edses asi\u00e1ticos por exemplo, ter\u00e1 que suportar Unicode, existem 3 artifos no EDN que eu recomendo a leitura, s\u00e3o eles:<\/p>\n