Re: [delphi-br] Verificar data
Ao inves de verificar com StrToDate, use a funcao EncodeDate, pois nela voce passa os parametros de ano, mes e dia e recebe uma data. Fernando denjabr wrote: > > Colegas, > > Como existem n tipos de confirgurações de data , preciso fazer com > que meu sistema aceite e interprete somente um tipo DD/MM/YY. > > Como fazer isso, pois tenho vários procedimentos em que preciso > pegar data do servidor, e data dos arquivos que irei utilizar. > > Alguem sabe como fazer isso ? > > > Sds > > Denis > > FELIZ NATAL > > -- < 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] Duvida ao trabalhar com MaskEdit
Tente: MaskEdit1.Clear; Fernando Marcelo Carvalho wrote: > Utilizo o componente MaskEdit para meus campos tipo data, o problema que está > acontecendo é quando já existe uma data cadastrada neste campo e quero > deixá-la em branco. Dá uma mensagem de erro do componente. > > Como posso fazer para corrigir isso ??? > > Atenciosamente, > > Marcelo Carvalho > > [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 <*> 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] Bold for Delphi
Weigly wrote: >Alguém aqui da lista que já trabalhou com o Bold poderia comentar sua >experiência em PVT ! > > Isto mesmo. Em private, pois ninguem da lista tem o direito de saber as esperiencias de outras pessoas com o delphi. A lista deve ser usada somente para seu proveito proprio e só vc tem o direito de saber as experiencias dos outros, não é ? -- Marcelo Almeida -- < 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] Abertura de forms
Maninho, eu deixo o FormStyle como fsStayOnTop e nada de MDIChild ou MDIForm... tudo StayOnTop. Depois para criar: if Form1 = nil then Application.CreateForm(TForm1, Form1); Form1.Show; e no OnClose: Form1 := nil; Assim funciona bem e o nil libera o Form da memória. Abraços Marcos Jordão --- Paulo Daniel Dorensbach <[EMAIL PROTECTED]> escreveu: - Ola pessoal da lista, estou novamente tocando nesye assunto porque ainda nao consegui resolver todos os meus problemas. Eu sempre crio meus forms em tempo de execucao para economizar memoria, para isto uso o codigo abaixo: ~ frm_config := Tfrm_config.create(nil); ~ try ~frm_config.Show; ~ finally ~{} ~ end; e no formem questao uso isto no onClose: ~ action := cafree; So que fazendo desta maneira, quando eu chamar o form e ele ja estiver criado, sera aberto outra janela deste form, e o que eu preciso eh que ele soh possa ser aberto uma vez e se ja estiver criado quando for chamado, que abra a janela como ela estava antes. Espero ter sido claro na esplanacao da minha duvida. Grato pela atencao! Feliz Novo Ano a todos!!! -- Paulo Daniel Dorensbach http://geocities.yahoo.com.br/dorensbach Usuario GNU/Linux 363631 - http://counter.li.org NBR para a Internet já! Porque meu navegador não é penico. http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br "De cada um conforme sua capacidade a cada um conforme sua necessidade." Karl Marx By Mozilla Thunderbird www.mozilla.org.br -- < 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: São Paulo Rio de Janeiro CuritibaPorto AlegreBelo Horizonte Brasília - 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 Termos do Serviço do Yahoo!. ___ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis -- < 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
[delphi-br] Abertura de forms
Ola pessoal da lista, estou novamente tocando nesye assunto porque ainda nao consegui resolver todos os meus problemas. Eu sempre crio meus forms em tempo de execucao para economizar memoria, para isto uso o codigo abaixo: ~ frm_config := Tfrm_config.create(nil); ~ try ~frm_config.Show; ~ finally ~{} ~ end; e no formem questao uso isto no onClose: ~ action := cafree; So que fazendo desta maneira, quando eu chamar o form e ele ja estiver criado, sera aberto outra janela deste form, e o que eu preciso eh que ele soh possa ser aberto uma vez e se ja estiver criado quando for chamado, que abra a janela como ela estava antes. Espero ter sido claro na esplanacao da minha duvida. Grato pela atencao! Feliz Novo Ano a todos!!! -- Paulo Daniel Dorensbach http://geocities.yahoo.com.br/dorensbach Usuario GNU/Linux 363631 - http://counter.li.org NBR para a Internet já! Porque meu navegador não é penico. http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br "De cada um conforme sua capacidade a cada um conforme sua necessidade." Karl Marx By Mozilla Thunderbird www.mozilla.org.br -- < 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] Máscara em edits
Voce pode usar o TMaskEdit e colocar a mascara na propriedade EditMask. Ou Voce usa um TDBEdit e coloca a mascara no seu TField: Table1.FieldByName('cep').EditMask := '0-000;0;_'; Fernando Neto wrote: > Olá, pessoal > > a dúvida é a mais simples mas, por incrível que pareça, não consegui > implementar. Em qual evento eu coloco máscara em edits? Ou em maskedits? > Nenhuma das máscaras conhecidas funcionou direito. > > Se alguém tiver uma luz, por favor > > Saudações, > > Neto > Masterserv Serviços Ltda. > Brasília/DF > visite: www.masterservltda.com.br > -- < 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] Acessando banco INterbase via Internet.
Ola, Eu tive problemas com servidor Windows XP com firewall. Resolvi adicionando a porta 3050 nas execoes do Firewall no Painel de Controle do XP. Fernando Eduardo Galvao wrote: > > Pessoal, > > Costumo me conectar ao banco de vários clientes via Internet > (Interbase) digitando, antes do banco de dados, o IP da máquina, assim: > > xxx.xxx.xxx.xxx:c:\..\.gdb > > Só que em algumas máquinas isto não funciona, ele > retorna que não foi possível a conexão. > > - Unable to complete network request to host "xxx.xxx.xxx.xxx". > - Failed to establish a connection. > > 1) Consigo 'pingar' a máquina normalmente. > > > 2) Isto tem a ver com firewall?? Alguns clientes meus são > da UFMG, tenho certeza que COM FIREWALL, e mesmo assim consigo > acessar. > > 3) Qual a porta que é utilizada para este tipo de conexão? > > 4) Alguma dica do que pode estar causando isto em algumas > (poucas) máquinas? > > Saudações, > Eduardo Paci Galvão > Engenheiro Eletricista UFMG 1990 > www.egalvao.com.br > MSN: [EMAIL PROTECTED] > Skype: eduardogalvao > > -- > > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.298 / Virus Database: 265.6.3 - Release Date: 21/12/2004 > > > [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 <*> 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
[delphi-br] Cálculo
? Pessoal, boa tarde e um feliz natal a todos; Sou iniciante em programação Delphi e ká estou eu estudando e me deparei com um problema!!! Tô fazendo um programinha, cujo a intenção é recolher dados de Salário da população e número de Filhos. Até aà ok!!! Coloquei no Form dois Edit's, um Botton para processar a informação e um Memo, onde saÃrão os cálculos!!! Os Cálculos são estes: Média de salários da população, média de filhos, maior salário e percentual de pessoas com salário até 100,00 reais. Beleza!!! Coloquei um while, e minha condição de saÃda é um salário negativo. Mas não tô conseguindo prossessar o cálculo A cada volta do loop, ele me trás o cálculo que o sistema pede!!! O que tenho feito de errado Mais uma pergunta: Se o usuário náo digitar nada nos Edit's e clicar direto no Button!! Dá o seguinte erro: --- Debugger Exception Notification --- Project Project_Ex3.exe raised exception class EConvertError with message ''' is not a valid floating point value'. Process stopped. Use Step or Run to continue. --- OK Help --- Como faço para evitar isso??? E a respeito do cálculo, como faço? Segue o código. Agradeço se houver alguem experiente no grupo que possa me dá uma luz, a final, ninguém nasce sabendo!!! procedure TForm1.ProcessarClick(Sender: TObject); Var Salario, Maior_Salario, Soma_Salario, Soma_Filhos,Media_Salario, Media_Filho, Salario_Inicial, Percentual: Real; Filhos, Cont, Conta_Sal_100: Integer; begin Salario:= StrtoFloat (Edit1.Text); Filhos:= StrtoInt (Edit2.Text); While Salario < 0 do Soma_Salario:=0; Soma_Filhos:=0; Cont:=0; Conta_Sal_100:=0; Salario_Inicial:=Salario; Maior_Salario:=0; begin Soma_Salario:=Soma_Salario + Salario; Soma_Filhos:=Soma_Filhos + Filhos; if Salario<= 100 then Conta_Sal_100:=Conta_Sal_100 + 1; if Salario >= Salario_Inicial then Maior_Salario:= Salario; Cont:=Cont + 1; end; Edit1.Clear; Edit2.Clear; Edit1.SetFocus; Media_Salario:=Soma_Salario/Cont; Media_Filho:=Soma_Filhos/Cont; Percentual:=(Conta_Sal_100/Cont)/100; Memo1.Lines.Add('A Média de Salário da População é de R$ ' + Floattostr(Media_Salario) + #13); Memo1.Lines.Add('A Média de Filhos da População é de ' + Floattostr(Media_Filho) + ' Filhos' + #13); Memo1.Lines.Add('O Maior de Salário da População é de R$ ' + Floattostr(Maior_Salario) + #13); Memo1.Lines.Add('O Percentual de pessoas que ganham menos de R$ 100,00 : ' + Floattostr(Percentual) + '%' + #13); end; [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 <*> 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
[delphi-br] KEY VIOLATION
Olá pessoal, minha itenção é mostrar em um DBGrid todos os pedidos feito por um cliente. Utilizei o Mater Detail para relacionar os códigos das tabelas de cliente e pedido, só que a Key violation aparece quando quero incluir um pedido novo de um mesmo cliente. Como fazer sem utilizar SQL? Desde já agradeço, Thiago. -- < 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
[delphi-br] Máscara em edits
Olá, pessoal a dúvida é a mais simples mas, por incrível que pareça, não consegui implementar. Em qual evento eu coloco máscara em edits? Ou em maskedits? Nenhuma das máscaras conhecidas funcionou direito. Se alguém tiver uma luz, por favor Saudações, Neto Masterserv Serviços Ltda. Brasília/DF visite: www.masterservltda.com.br --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.809 / Virus Database: 551 - Release Date: 09/12/2004 [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 <*> 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