Re: [delphi-br] MaskEdit
Filipe, bom dia. Fiquei muito tempo sem programar e posso estar dando um bola fora, mas vc já tentou um repaint? procedure TFrmClientes.DBEdit13Enter(Sender: TObject); begin clientdataset1CEP.EditMask := emptystr; clientdataset1CEP.repaint; end; []s Fabrício Veloso Ramos On Thu, 7 Oct 2004 10:21:39 -0300, Filipe [EMAIL PROTECTED] escreveu: De: Filipe [EMAIL PROTECTED] Data: Thu, 7 Oct 2004 10:21:39 -0300 Para: ((Delphi [EMAIL PROTECTED] Assunto: [delphi-br] MaskEdit Bom Dia, pessoal... Estou com um problema... Tenho um Dbedit q, dependendo do numero de caracteres, ele formata para cpf ou cnpj. isso no evento OnExit do dbEdit, conforme a procedure: procedure TFrmClientes.DBEdit13Exit(Sender: TObject); begin if length(dbedit13.Text) = 14 then clientdataset1CGC.EditMask := '99\.999\.999\/\-99;0' else if length(dbedit13.Text) = 11 then clientdataset1CGC.EditMask := '999\.999\.999\-99;0'; //CNPJ: 03.811.444/0002-15 //CPF: 045.007.199-54 end; Mas se a pessoa digita um cpf, se arrepende, e quer voltar paa digitar um cnpj, naum da! a máscara continua igual!!! Então, no evento OnEnter do dbedit eu fiz: procedure TFrmClientes.DBEdit13Enter(Sender: TObject); begin clientdataset1CEP.EditMask := emptystr; //tb tentei clientdataset1CEP.EditMask := ''; end; Mas a máscara continua... Será q alguém sabe como posso resetar a máscara via código??? Obs.: o campo eh char, estou usando clientdataset + Ibx, Fb 1.5 e D7. Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] MaskEdit
Opa... Caiu a ficha! Eu dei um exemplo pensando no MaskEdit e não no ClientDataSet. Eu ainda trabalho com o Delphi 3! :-) Pelo que entedi, vc utiliza DBEDIT. Neste caso, talvez um repaint no form funcione. Não tenho nem como testar para lhe ajudar... Eu trabalho com edit e maskedit. Espero ter lhe ajudado. []s Fabrício Veloso Ramos On Thu, 7 Oct 2004 10:48:43 -0300, Filipe [EMAIL PROTECTED] escreveu: De: Filipe [EMAIL PROTECTED] Data: Thu, 7 Oct 2004 10:48:43 -0300 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] MaskEdit naum existe isso aki... - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, October 07, 2004 10:27 AM Subject: Re: [delphi-br] MaskEdit Filipe, bom dia. Fiquei muito tempo sem programar e posso estar dando um bola fora, mas vc já tentou um repaint? procedure TFrmClientes.DBEdit13Enter(Sender: TObject); begin clientdataset1CEP.EditMask := emptystr; clientdataset1CEP.repaint; end; []s Fabrício Veloso Ramos On Thu, 7 Oct 2004 10:21:39 -0300, Filipe [EMAIL PROTECTED] escreveu: De: Filipe [EMAIL PROTECTED] Data: Thu, 7 Oct 2004 10:21:39 -0300 Para: ((Delphi [EMAIL PROTECTED] Assunto: [delphi-br] MaskEdit Bom Dia, pessoal... Estou com um problema... Tenho um Dbedit q, dependendo do numero de caracteres, ele formata para cpf ou cnpj. isso no evento OnExit do dbEdit, conforme a procedure: procedure TFrmClientes.DBEdit13Exit(Sender: TObject); begin if length(dbedit13.Text) = 14 then clientdataset1CGC.EditMask := '99\.999\.999\/\-99;0' else if length(dbedit13.Text) = 11 then clientdataset1CGC.EditMask := '999\.999\.999\-99;0'; //CNPJ: 03.811.444/0002-15 //CPF: 045.007.199-54 end; Mas se a pessoa digita um cpf, se arrepende, e quer voltar paa digitar um cnpj, naum da! a máscara continua igual!!! Então, no evento OnEnter do dbedit eu fiz: procedure TFrmClientes.DBEdit13Enter(Sender: TObject); begin clientdataset1CEP.EditMask := emptystr; //tb tentei clientdataset1CEP.EditMask := ''; end; Mas a máscara continua... Será q alguém sabe como posso resetar a máscara via código??? Obs.: o campo eh char, estou usando clientdataset + Ibx, Fb 1.5 e D7. Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] daniel; triangulo de pascal
Daniel, não sei se entendi sua pergunta... A fórmula usa fatorial ( ! ), mas serve para calcular o triângulo de pascal. O bom é que é possível utilizá-la em matriz para facilitar a programação. []s Fabrício Veloso Ramos On Tue, 5 Oct 2004 11:14:38 -0300 (ART), Daniel Roma [EMAIL PROTECTED] escreveu: De: Daniel Roma [EMAIL PROTECTED] Data: Tue, 5 Oct 2004 11:14:38 -0300 (ART) Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; triangulo de pascal esse calculo ,M[x,y] = x! / y! * (x - y)! , é paca fatorial? --- [EMAIL PROTECTED] escreveu: - Nossa!!! Matemática... O cálculo pode ser baseado em Matriz. Só para ressaltar, iniciando do zero. Vou colocar apenas 3 linhas, que já terei que digitar pra dedéu... M[x,y] = x! / y! * (x - y)! A primeira linha: M[0,0] = 0! / 0! * (0-0)! M[0,0] = 1 / 1 * 1 = 1 Resultado: 1 --- Segunda Linha / Primeira coluna (repete o cálculo acima) Segunda Linha / Segunda Coluna (repete o valor pq fatorial de 1 tb é 1) Resultado: 11 -- Terceira Linha / Primeira Coluna M[2,0] = 2! / 0! * (2-0)! Resultado: 1 Terceira Linha / Segunda Coluna (até que enfim um resultado diferente... ufa! ) M[2,1] = 2! / 1! * (2-1)! = 2 / 1 * 1 Resultado: 2 Expliquei a lógica... Agora é só montar o algoritmo, com loop, e programar... []s Fabrício On Fri, 1 Oct 2004 16:27:51 -0300, Eduardo Jedliczka [EMAIL PROTECTED] escreveu: De: Eduardo Jedliczka [EMAIL PROTECTED] Data: Fri, 1 Oct 2004 16:27:51 -0300 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; triangulo de pascal Bom, a sua fórmula está errada... E sinceramente não me lembro qual é a fórmula correta... mas você pode implementar um algortmo funcional para isto: guarde numa string os valores antes da soma e em outra string os valores já somados, assim poderá fazer um for com um copy... Só uma pergunta, a 5ª Linha é 14341 ou 14641 ??? [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: danielromabr To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:49 AM Subject: [delphi-br] daniel; triangulo de pascal eu sei como um triangulo de pascal se forma: 1 11 121 1331 14341 mas estou com dificuldade em passa-lo para o pascal: como se calcula o triangulo? eu estou tentando fazer ele em uma matriz, mas acho que a formula que vi,(a+b) elevado a n, está incorreta. obrigado pela ajuda -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96Assine Infoem 5x de R$ 21,48 Mais... Capricho ManequimBoa Forma NovaExame - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/
[delphi-br] DELPHI + UML
Pessoal, bom dia. Talvez eu esteja pedindo demais, mas se alguém puder me ajudar, agradeço. Estou estudando programação DELPHI no padrão UML, mas como trabalhei muito tempo com estruturada, estou com dificuldade em absorver o novo padrão. Comprei um livro (que ainda não chegou) que vi indicado em mensagens anteriores e pesquisei bastante na net, porém não achei um exemplo *prático* (não quis dizer simples), utilizando programação OO. Gostaria de ter um exemplo do uso de UML na criação de um form/tela de atualização de dados. Nem que seja com apenas 2 campos. Pode ser tutorial, link, dica, etc... Só preciso ver um exemplo prático. Minhas dúvidas são básicas como: Posso usar objeto para acesso a banco de dados e facilitar o desenvolvimento para múltiplos bancos, já que alguns possuem característica específicas? Para exibir informações de um banco, devo utilizar objetos e carregá-las em Edit ou DBEdit? E qual a melhor maneira de consultá-las? Desde já, muito abrigado! Fabrício -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] daniel; triangulo de pascal
Nossa!!! Matemática... O cálculo pode ser baseado em Matriz. Só para ressaltar, iniciando do zero. Vou colocar apenas 3 linhas, que já terei que digitar pra dedéu... M[x,y] = x! / y! * (x - y)! A primeira linha: M[0,0] = 0! / 0! * (0-0)! M[0,0] = 1 / 1 * 1 = 1 Resultado: 1 --- Segunda Linha / Primeira coluna (repete o cálculo acima) Segunda Linha / Segunda Coluna (repete o valor pq fatorial de 1 tb é 1) Resultado: 11 -- Terceira Linha / Primeira Coluna M[2,0] = 2! / 0! * (2-0)! Resultado: 1 Terceira Linha / Segunda Coluna (até que enfim um resultado diferente... ufa! ) M[2,1] = 2! / 1! * (2-1)! = 2 / 1 * 1 Resultado: 2 Expliquei a lógica... Agora é só montar o algoritmo, com loop, e programar... []s Fabrício On Fri, 1 Oct 2004 16:27:51 -0300, Eduardo Jedliczka [EMAIL PROTECTED] escreveu: De: Eduardo Jedliczka [EMAIL PROTECTED] Data: Fri, 1 Oct 2004 16:27:51 -0300 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; triangulo de pascal Bom, a sua fórmula está errada... E sinceramente não me lembro qual é a fórmula correta... mas você pode implementar um algortmo funcional para isto: guarde numa string os valores antes da soma e em outra string os valores já somados, assim poderá fazer um for com um copy... Só uma pergunta, a 5ª Linha é 14341 ou 14641 ??? [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: danielromabr To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:49 AM Subject: [delphi-br] daniel; triangulo de pascal eu sei como um triangulo de pascal se forma: 1 11 121 1331 14341 mas estou com dificuldade em passa-lo para o pascal: como se calcula o triangulo? eu estou tentando fazer ele em uma matriz, mas acho que a formula que vi,(a+b) elevado a n, está incorreta. obrigado pela ajuda -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] daniel; triangulo de pascal
Opa... Esqueci de um detalhe... Se não me engano, o correto é resolver primeiro a multiplicação... M[x,y] = x! / ( y! * (x - y)! ) Agora deve estar correto. []s Fabrício On Fri, 1 Oct 2004 16:43:00 -0300, [EMAIL PROTECTED] escreveu: De: [EMAIL PROTECTED] Data: Fri, 1 Oct 2004 16:43:00 -0300 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; triangulo de pascal Nossa!!! Matemática... O cálculo pode ser baseado em Matriz. Só para ressaltar, iniciando do zero. Vou colocar apenas 3 linhas, que já terei que digitar pra dedéu... M[x,y] = x! / y! * (x - y)! A primeira linha: M[0,0] = 0! / 0! * (0-0)! M[0,0] = 1 / 1 * 1 = 1 Resultado: 1 --- Segunda Linha / Primeira coluna (repete o cálculo acima) Segunda Linha / Segunda Coluna (repete o valor pq fatorial de 1 tb é 1) Resultado: 11 -- Terceira Linha / Primeira Coluna M[2,0] = 2! / 0! * (2-0)! Resultado: 1 Terceira Linha / Segunda Coluna (até que enfim um resultado diferente... ufa! ) M[2,1] = 2! / 1! * (2-1)! = 2 / 1 * 1 Resultado: 2 Expliquei a lógica... Agora é só montar o algoritmo, com loop, e programar... []s Fabrício On Fri, 1 Oct 2004 16:27:51 -0300, Eduardo Jedliczka [EMAIL PROTECTED] escreveu: De: Eduardo Jedliczka [EMAIL PROTECTED] Data: Fri, 1 Oct 2004 16:27:51 -0300 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; triangulo de pascal Bom, a sua fórmula está errada... E sinceramente não me lembro qual é a fórmula correta... mas você pode implementar um algortmo funcional para isto: guarde numa string os valores antes da soma e em outra string os valores já somados, assim poderá fazer um for com um copy... Só uma pergunta, a 5ª Linha é 14341 ou 14641 ??? [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: danielromabr To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:49 AM Subject: [delphi-br] daniel; triangulo de pascal eu sei como um triangulo de pascal se forma: 1 11 121 1331 14341 mas estou com dificuldade em passa-lo para o pascal: como se calcula o triangulo? eu estou tentando fazer ele em uma matriz, mas acho que a formula que vi,(a+b) elevado a n, está incorreta. obrigado pela ajuda -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html