Длина пароля

[Lifefine]

Добрые люди,помогите,как сделать чтобы при вводе пароля не должна меньше 4 цифр или букв и при этом система бы сообщала о маленьком пароле.
вот мой код:

if (Edit2.Text=Edit3.Text) then
                              begin
                                ShowMessage('Пароли совпали!');
                                Edit4.SetFocus;
                              end
                             else begin
                                    ShowMessage('Неверный пароль!');
                                    Edit3.SetFocus;
                                  end;
end;

[artemavd]

procedure TFMain.Button1Click(Sender: TObject);
begin
if IntToStr(Length(Edit1.Text)) < '4' then
  begin
   ShowMessage('Короткий пароль!');
  end;
end;

[Stilet]

if IntToStr(Length(Edit1.Text)) < '4' then

Не слабо ты просыпаешся...
Автору:

if Length(Edit1.Text)<4 then

[artemavd]

Не слабо ты просыпаешся...

Ну мой вариант тоже работает же

[Lifefine]

Всем большое спасибо! Очень помогли!

[Stilet]

artemavd

Я и не говорю что он не рабочий, просто экзотический. )

[artemavd]

Я и не говорю что он не рабочий, просто экзотический. )

Видать я не привык идти легкими путями)). Сорри за оффтоп, но как эти лишние преобразования могут сказаться на скорости работе программы?

[TwiX]

Если это ставится на конвеер, то скорость будет пониже, а тут, где проверяется эта штука раз в минут пять, ничего плохого с работоспособностью не произойдёт)