[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
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário