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

[MorfikBR]
Blogs : www.morfikbr.wordpress.com / www.morfikbr.blogspot.com
Grupo : http://br.groups.yahoo.com/group/Morfikbr/

Twitter : www.twitter.com/morfikbr
Youtube : http://www.youtube.com/morfikbr
Contato : morfikbr@gmail.com / morfikbr@yahoo.com.br