Dica do Dia- Checar se uma string é uma Sigla UF válida

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

Carlos Eduardo Paulino
cadumicro@hotmail.com