Ola,Aqui vai uma dica rapida para verificar se uma string e uma sigla UF valida:Funcaofunction 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 utilizacao:if Not ChecarUF(TextEdit1.Text) then Showmessage('Sigla UF invalida');Simples nao e? Carlos Eduardo Paulinocadumicro@hotmail.com[MorfikBR]Blogs : www.morfikbr.wordpress.com / www.morfikbr.blogspot.comGrupo : http://br.groups.yahoo.com/group/Morfikbr/ Twitter : www.twitter.com/morfikbrYoutube : http://www.youtube.com/morfikbrContato : morfikbr@gmail.com / morfikbr@yahoo.com.br Ola,Segue a dica de uma funcao um tanto complexa mas bem util para nossos sistemas, com ela podemos identificar o dia em que cai o feriado de pascoa de qualquer ano passado.Function Pascoa(ano: integer):TDate;var y,m,d: word; g,i,j,c,h,l: integer; e: TDate;begin G := ano mod 19; C := ano div 100; H := (C C div 4 (8*C+13) div 25 + 19*G + 15) mod 30; I := H (H div 28)*(1 -(H div 28)*(29 div (H+1))*((21 G) div 11)); J := (ano + ano div 4 + I + 2 C + C div 4) mod 7; L := I J; m := 3 + (L + 40) div 44; d := L + 28 31*(m div 4); y := ano; E := EncodeDate(y,m,d); Result := E;end;Como utilizar?var dPascoa : TDateTime;BegindPascoa := Pascoa(2011); // Passamos o ano 2011Showmessage( Em 2011 a pascoa e + dia + IntToStr(dPascoa.Day) + // Retornamos somente o dia da data de + FormatDateTime(mmmm, dPascoa) ); // Retornamos o nome do mes formatado da dataEnd;E isso ai, espero que tenham gostado e desejo Feliz Pascoa a todos. E manerem no chocolate .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 Ola,Finalizando a primeira serie Morfik Passo a Passo Contas a pagar / receber, foram publicadas as ultimas video-aulas.Nestas ultimas etapas foram demonstrados tecnicas de criacao de menu e relatorios com consultas no modo wizard e manual.Espero que tenham gostado e agradeco a todos os comentarios nos canais MorfikBR.Video aula Morfik Passo a Passo Contas a pagar / receber Parte 05http://www.youtube.com/watch?v=WTBEdw1UdNM&feature=player_embeddedVideo aula Morfik Passo a Passo Contas a pagar / receber Parte 06 Finalhttp://www.youtube.com/watch?v=XzBMxOTuleU&feature=player_embedded[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.brgrato.Carlos Eduardo Paulino cadumicro@hotmail.com Agora, neste exato momento, voce vera algumas formas de tratar datas com as bibliotecas do Morfik. Assim como no vimos no artigo "Operacoes com Strings Metodos Auxiliares", para trabalharmos com Data Morfik tambem conta com classes auxiliares que sao bastante uteis para nossas aplicacoes. Veremos a seguir os metodos contidos na biblioteca SystemHelperMethods, para manipulacao do tipo TDateTime: Adicionando Removendo parte de uma data. Todos os metodos para adicionar ou remover parte de uma data comecam com ADD (adicionar), no entanto, para remover parte de uma data, basta passarmos um valor negativo. Vamos ver agora como fazer isso para cada parte da data atual: var dData : TDateTime;begin dData := Now; // Atribuindo a data atual a variavel {Ano} dData.AddYear(1); // proximo ano dData.AddYear(-1); // ano anterior {Mes} dData.AddMonths(1); // proximo mes dData.AddMonths(-1); // mes anterior {Dia} dData.AddDays(1);