Маска на авторизацию

[6666]

Необходимо сделать маску на ввод фамилии и имени и вводить их через пробел в edit, чтобы можно было вводить их только с большой буквы. При попытке ввести с маленькой выводилось бы сообщение об ошибке. Подскажите пожалуйста или у кого нибудь есть пример поделитесь плиз очень надо

[MyLastHit]

var  i:integer;
begin
  for i:=1 to length(edit1.Text) do
  if (edit1.Text[i]=' ') and (edit1.Text[i+1]>='а') and (edit1.Text[i+1]<='я') then
  showmessage('Каждое слово вводите с большой буквы!');
  if (edit1.Text[1]>='а') and (edit1.Text[1]<='я') then
  showmessage('Каждое слово вводите с большой буквы!');
end;

Улучшай сам.

[Прик]

Проще не делать никаких масок, а при выходе из edit преобразовывать начальные буквы фамилии и имени к заглавным буквам.
Те кто вводит скажет вам большое спасибо.

[6666]

спасибо большое

[6666]

Сообщение от Прик

Проще не делать никаких масок, а при выходе из edit преобразовывать начальные буквы фамилии и имени к заглавным буквам.
Те кто вводит скажет вам большое спасибо.

Сделал преобразование начальных букв в заглавные. А как теперь сделать чтобы можно вводить только три слова?

[New man]

Если нажат пробел ув еличитьь счетчик, если счетчик>3 то все

[Человек_Борща]

Если рассчитывать на фамилию, имя и отчество, то пробела будет вго два.

Считай проблелы в строке.

[6666]

а процедурку не подскажете?

[6666]

всем спасибо. разобрался.