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

Delphi

26/10/2005

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

Celamar

Curtidas 0

Respostas

Celamar

Celamar

26/10/2005

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

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



GOSTEI 0
Vitor Rubio

Vitor Rubio

26/10/2005

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


GOSTEI 0
POSTAR