Que vergonha... Silvio Clécio
Se eu disser que não entendo metade do que a maioria aqui na lista diz, estarei mentindo, por que eu só entendo 1/10, isso sendo MUITO boa pra mim. O prof ainda não ensinou banco de dados, estou fazendo por enquanto, digamos o esqueleto do meu projeto. Eu que me adianto, por que não aguento a lerdeza das aulas, fico agoniada. Sei que tem tanta coisa pra aprender e o povo fica de conversa!! Será que não tem uma coisa bem 'fraquinha' pra iniciante?? De qualquer forma eu agradeço de coração. Abraço Janise Dantas From: Silvio Clécio Sent: Monday, November 10, 2008 10:23 PM To: delphi-br@yahoogrupos.com.br Subject: Res: Res: Res: [delphi-br] Problemas com BDE em windows vista 64 Olá pessoal, Janise, porque você não usa EditMask? Tipo: SuaQuery.SeuField.EditMask := '00000\-999;0;'; Ele vai mostrar assim: 00000-000, se você quiser 00.000-000 é só modificar para '00\.000\-999;0;'. Eu uso tanto o EditMask que tenho um arquivo txt só com mascaras, daí é só copiar e colar na propriedade EditMask. ________________________________ []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ "Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!" ________________________________ De: Janise Dantas <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 10 de Novembro de 2008 13:47:19 Assunto: Re: Res: Res: [delphi-br] Problemas com BDE em windows vista 64 Eu tenho um cadastro e queria que ao digitar no edit ele fosse formatado, ou seja, tivesse esse formato: 00.000-000. Achei (não sabia fui procurar né!!), esse código mas dá erro: function tbFormataCEP( const CEP: string): string; var I: integer; begin Result := ''; for I := 1 to Length(CEP) do if CEP[I] in ['0'..'9'] then Result := Result + CEP[I]; if Length(Result) <> 8 then raise Exception.Create( 'CEP inválido.') else Result := Copy(Result, 1, 2) + '.' + Copy(Result, 3, 3) + '-' + Copy(Result, 6, 3); end; (Isso a gente coloca antes da procedure, né?? ) O erro é em: raise Exception.Create( 'CEP inválido.') Como que a gente faz isso que eu quero?? Já agradeço Abraço Janise Dantas Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
