Dica Checar se uma string é uma Sigla UF válida

[Carlos Eduardo Paulino]

Olá,

Aqui vai uma dica rápida para verificar se uma string é uma sigla UF
válida:

Função

function ChecarUF(UF : String) : boolean;
const
Estados = `SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO';
var
Posicao : integer;
begin
Posicao := Pos(UpperCase(UF), Estados);
Result := ( Posicao <> 0) and ( Not (Posicao mod 2) = 0);
end;

Exemplo de utilização:

if Not ChecarUF(TextEdit1.Text) then
Showmessage(`Sigla UF inválida');

Simples não é?

Acompanhem as notícias nos canais MorfikBR e participem do grupo de
discussão
para compartilharmos experiências e construirmos nossos projetos.

Blog: www.morfikBR.wordpress.com
Twitter: www.twitter.com/morfikBR.

Carlos Eduardo Paulino
cadu...@hotmail.com