Not in [�1�, �2�] - n�o funciona, pq?

Question

Por que se eu negar a express�o abaixo ela nao funciona?

 

 sTipoCarne := Trim(Copy(slLista.Strings[0], 1, 1));
 if [color=red]NOT[/color] sTipoCarne[1] in [�1�, �2�, �3�] then
    begin
      ShowMessage(�Tipo de carn�, n�o definido!�);
      Application.Terminate;
      exit;
    end;

Celamar · Answer

[quote:d2c7587455=�celamar�]Por que se eu negar a express�o abaixo ela nao funciona?[code:1:d2c7587455]  sTipoCarne := Trim(Copy(slLista.Strings&#91;0&93;, 1, 1)); if NOT sTipoCarne&91;1&93; in &91;�1�, �2�, �3�&93; then    begin      ShowMessage(�Tipo de carn�, n�o definido!�);      Application.Terminate;      exit;    end;[/code:1:d2c7587455][/quote:d2c7587455]...

Vitor Rubio · Answer

n�o sei se � tarde demais pra eu responder mas, l� vai:

express�es com conjuntos, tipo in, devem ser isoladas com parenteses

fa�a o teste:

procedure TForm1.Button1Click(Sender: TObject);
var  sTipoCarne: string;
begin
 sTipoCarne := Trim(Copy(�4�, 1, 1));
 if NOT (sTipoCarne[1] in [�1�, �2�, �3�] )then
    begin
      ShowMessage(�Tipo de carn�, n�o definido!�);
    end;
end;

assim funciona ^^

F�rum Not in [�1�, �2�] - n�o funciona, pq? #300848