Ограничение на количество букв в слове

[LittleMonkey]

Доброго времени суток!

Нужно создать несколько ограничений при вводе почты, а именно, имя пользователя (до @) должно быть в диапазоне 5-7 букв или цифр, можно "_".

Помогите, пожалуйста, реализовать код! Буду очень благодарна за помощь!

[FaTaL]

Ну так прикаждом нажатии клавиши проверяй на соответствие твоему условию. В чём именно проблема?

[NIKOLAYY2]

Сообщение от LittleMonkey

а именно, имя пользователя (до @) должно быть в диапазоне 5-7 букв или цифр, можно "_".

Ну сделай так: Кроме цифр, англ букв, подчеркивания и знака собачки в Edit- поле ни чего не введеш.
При чем собачка должна обязательно быть последней.
Хотя в моем варианте и ряд собачек можно прописать, но этот код можно без особого труда доработать.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, '_', '@', '0'..'9', 'a'..'z']) then
    Key := #0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text[Length(Edit1.Text)] <> '@') or
  (Length(Edit1.Text) < 5) or
    (Length(Edit1.Text) > 7) then
  begin
    ShowMessage('Ошибка ввода, повторите ввод');
    Edit1.Text := '';
    Edit1.SetFocus;
    Exit;
  end
  else
  begin
    ShowMessage('Продолжаем');
    //следущий код...
  end
end;

[min@y™]

чож так сложно-то всё?

{ функция валидации. вернёт true,
  если:
    а) длина логина от 5 до 7 символов И
    б) состоит из латинских букв, цифр и символа "_" И
    в) начинается не с цифры;
  иначе вернёт false.

  d_mendeleev_1869@chemical.net <-- логин - всё, что до "@" }

const
  lmin = 5;
  lmax = 7;
  letters = ['A'..'Z', 'a'..'z', '_'];
  digits = ['0'..'9'];
  validsymbols = letters + digits;

function ValidateLogin(const s: string): Boolean;
var
  idx, len: Integer;
begin
  Result:= false;
  len:= Length(s);

  if not (len in [lmin..lmax]) or not CharInSet(s[1], letters)
    then exit;

  for idx:= 2 to len do
    if not CharInSet(s[idx], validsymbols)
      then exit;

  Result:= true;
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!