sábado, 30 de novembro de 2013

Função Valida sigla de estados brasileiros



function RSS00002(Dado : string) : boolean;
const Estados = 'SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO';
var   Posicao : integer;
begin
     Result := true;
     if Dado <> '' then
     begin
          Posicao := Pos(UpperCase(Dado),Estados);
          if (Posicao = 0) or ((Posicao mod 2) = 0) then
               Result := false
     end;
end; {TESTA_UF}

Nenhum comentário:

Postar um comentário