Fun��o para validar nome e sobrenome?

Question

Ae pessoalEssa � bem simples s� que eu n�o estou conseguindo bolar.Preciso de uma fun��o que verifique se num EDIT foi digitado o Nome e o Sobrenome da pessoa.Algu�m teria uma fun��o assim[]�sLu�s Eru...

Ltres · Answer

coloca essa rotina no exit do edit para validar

procedure TForm1.Edit1Exit(Sender: TObject);
var
  n: integer;
  blz: boolean;
begin

  blz := False;
  for n := 1 to Length(TEdit(Sender).Text) do
    if TEdit(Sender).Text[n] = � � then
    begin
      blz := True;
      Break;
    end;

  if not blz then
  begin
    ShowMessage(� Preencher com nome completo! �);
    TEdit(Sender).SetFocus;
  end;
end;

F�rum Fun��o para validar nome e sobrenome? #236368