Ввод в edit ФИО без сокращений

[gdu]

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

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var ts : TStringList;
  isError : boolean;
  s : string;
begin
   s := Trim(Edit1.Text);
   isError := (Trim(s)='');
   if Not isError then begin
     ts := TStringList.create;
     try
     ts.Delimiter := ' ';
     ts.DelimitedText := Trim(s);
     if ts.Count<3 then isError := true
     else
        if ((Length(ts.Strings[1])<3)
         or (Length(ts.Strings[2])<3) ) then isError := true;
     finally
       FreeAndNil(ts)
     end;
   end;
   if isError then
     label1.Caption := 'Ошибка! Введите Фамилию, Имя, Отчество полностью'
   else
     label1.Caption := 'Всё корректно!';
end;

p.s. при желании сюда же легко добавить проверку на наличие точки в строке - если есть в строке точка - то это ошибка.

Чуть позже попробую, отпишусь.

[gdu]

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

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var ts : TStringList;
  isError : boolean;
  s : string;
begin
   s := Trim(Edit1.Text);
   isError := (Trim(s)='');
   if Not isError then begin
     ts := TStringList.create;
     try
     ts.Delimiter := ' ';
     ts.DelimitedText := Trim(s);
     if ts.Count<3 then isError := true
     else
        if ((Length(ts.Strings[1])<3)
         or (Length(ts.Strings[2])<3) ) then isError := true;
     finally
       FreeAndNil(ts)
     end;
   end;
   if isError then
     label1.Caption := 'Ошибка! Введите Фамилию, Имя, Отчество полностью'
   else
     label1.Caption := 'Всё корректно!';
end;

p.s. при желании сюда же легко добавить проверку на наличие точки в строке - если есть в строке точка - то это ошибка.

Спасибо! это как раз то, что доктор прописал!!!! Работает.

[Serge_Bliznykov]

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

Спасибо! это как раз то, что доктор прописал!!!! Работает.

пожалуйста.

только уберите функцию Trim() - это рудимент, он остался после того, как я заменил Trim(Edit1.Text) на переменную s (так):

   s := Trim(Edit1.Text);
   isError := (s='');
   if Not isError then begin
     ts := TStringList.create;
     try
     ts.Delimiter := ' ';
     ts.DelimitedText := s;
     if ts.Count<3 then isError := true

[Аватар]

Там бы еще длину фамилии проверить, а вдруг только одна буква )

[Serge_Bliznykov]

Сообщение от Аватар

Там бы еще длину фамилии проверить, а вдруг только одна буква )

две буквы может быть.
а запретить фио из одной буквы легко:

    if ts.Count<3 then isError := true
     else
        if ((Length(ts.Strings[0])<2) or (Length(ts.Strings[1])<3)
         or (Length(ts.Strings[2])<3) ) then isError := true;

[newerow1989]

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

две буквы может быть.

Согласен! Эш - есть такая фамилия
Есть еще иностранные имена, например, американский Брюс Ли.

Я думаю, что кроме точки нужно диалоговое окно добавить для проверки с таким сообщением: Действительно, что Ваше имя состоит из 2-х букв?

[stalker1995s]

Мб как вариант, сделать три отдельных Едитра, при нажатии проблема в котором осуществляется переход к следующему эдиту, и проверку на >1 символа? В 95% случаев прокатит)

[gdu]

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

Мб как вариант, сделать три отдельных Едитра, при нажатии проблема в котором осуществляется переход к следующему эдиту, и проверку на >1 символа? В 95% случаев прокатит)

3 едита это очень просто и топорно, не хочется использовать такой вариант.

[Аватар]

Это не топорно, а правильно )