[DELPHI] VALIDAR UF


Com o exemplo a seguir podemos facilmente verificar se o texto digitado é uma UF (Unidade da Federação) válida.

Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, e altere as propriedade do Form:

Caption = VALIDAR UF
Name = Frm_Principal
Position = poDesktopCenter

Adicione ao formulário um TLabel, um TEdit e um TButton disponível na paleta Standard do Delphi (Tool Palette -> Standard) e altere suas propriedades conforme baixo:

PROPERTIES TLABEL:
Caption  = UF

PROPERTIES TBUTTON:
Caption  = Validar
Name = btnValidar

Deixe o layout parecido com o da imagem a seguir.



Dê um duplo no btnValidar e adicione o código abaixo:

procedure TFrm_Principal.btnValidarClick(Sender: TObject);
const
  Estados = 'SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO';
var
  Posicao: Integer;
  UF: String;
begin
  // Atribui a variável UF o texto do Edit1 retirando o espaço do início e do fim (Trim) e deixa tudo em maiúsculo
  UF := UpperCase(Trim(Edit1.Text));
  // Faz a validação
  Posicao := Pos(UF, Estados);
  if not((Posicao = 0) or ((Posicao mod 2) = 0) or ((UF) = '')) then
    ShowMessage('UF válida')
  else
    ShowMessage('UF inválida');
end;

Salve as alterações (File -> Save All), coloque o nome uPrincipal para Unit e Principal para o nome do projeto.

Pronto, execute a aplicação (menu Run -> Run ou Pressione F9) e veja o resultado.

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】

Download

Nenhum comentário:

Postar um comentário