Função para validar nome e sobrenome?

Delphi

06/06/2004

Ae pessoal

Essa é 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

[]´s

Luís Erucci


Erucci

Erucci

Curtidas 0

Respostas

Ltres

Ltres

06/06/2004

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;



GOSTEI 0
POSTAR