Ошибка. Operator not applicable to this oparand type

[_-Re@l-_]

Вот код:

for i:=1 to length(pass) do
     begin
          a:=copy(pass,i,1);
          if (not a in ['a'..'z']) then begin
...

Выдаёт ошибку: Operator not applicable to this oparand type. В чём дело?

[baster128]

Очень маленький кусочек кода. Ошибка соответствия типов данных а - это что?

[Serge_Bliznykov]

baster128 +1

_-Re@l-_
объявите a не char (как это у вас)
а var a : string (можно a : string[1] - если уверены, что там не будет более одного символа!)

[_-Re@l-_]

как бы если чё a у меня и так string( я уж не на столько идиот)
Вот

var
  Form1: TForm1;
  i:integer;
  a:string;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
     Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    for i:=1 to 2 do
     begin
          if i = 1 then begin
          a:=copy(Edit1.Text,1,1);
          if a<>'1' then begin
          MessageDlg('Error!',mtError,[mbOk],0);
          exit
          end
          end;
          if i = 2 then begin
          a:=copy(Edit1.Text,2,1);
          if a<>'a' then begin
          MessageDlg('Error!',mtError,[mbOk],0);
          exit
          end
          end;
          if i = 3 then begin
          a:=copy(Edit1.Text,length(Edit1.Text),1);
          if a<>'x' then begin
          MessageDlg('Error!',mtError,[mbOk],0);
          exit
          end
          end
     end;
     if (copy(Edit1.Text,1,1) = '1') and (copy(Edit1.Text,2,1) = 'a')
     and (copy(Edit1.Text,length(Edit1.Text),1) = 'x') then
     MessageDlg('Верно',mtWarning,[mbOk],0);
end;

P.S. Я уже исправил, можете закрывать тему.

[VintProg]

String - это указатель.

[Serge_Bliznykov]

P.S. Я уже исправил, можете закрывать тему.

а.. я, мне кажется, понял в чём была ошибка!
Приоритет операции NOT выше всех остальных...
поэтому надо было так:

if not (a in ['a'..'z']) then begin
...

[Stilet]

Я уже исправил

Вертай взад... Это плохо ты исправил, не рекомендую так программировать.