Цикл и Edit

[TaYgA]

Здравствуйте! Столкнулся с такой проблемой: требуется проверять все символы введённые в поле Edit и когда встретятся символы '@' и '.ru' то в Label поставить галочку, а если не встретятся поставить крестик... Пробывал написать так:

procedure TForm.Edit1Change(Sender: TObject);
var
   i: Integer;
   l: Boolean;
begin
  l:=false;
  for i:=0 to Length(Edit1.Text[i])-1 do
    if (Edit1.Text[i]='@') or (Edit1.Text[i]='.ru') then begin
      l:=true;
      break;
    end;
  if l then Label.Caption:='V'
    else
      Label.Caption:='X';
end;

Данный код не работает

[Don Karleone]

Конечно не будет работать!

if (Pos('@',Edit1.Text) <> 0) and (Pos('.ru',Edit1.Text) <> 0)
  then Label1.Caption:='v'
  else Label1.Caption:='x'

вроде так.
А вообще Edit1.Text[i] - это один символ. А вы его хотите сравнить сразу с тремя символами: Edit1.Text[i] = '.ru'.

[TaYgA]

Don Karleone, спасибо! Всё работает! Да, три символа я не учёл...