RE: [delphi-br] Campo Memo no SQL Server 2000
Ola Stainle, bom dia Voce digita os dados em outros campos ao mesmo tempo? Lembre-se que o tamanho maximo de linha no SQL Server 2000 e 8060 bytes. Att. Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of stainle2003 Sent: 14 September 2009 18:50 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Campo Memo no SQL Server 2000 boa tarde, estou precisando gravar dados como se fosse campo memo, não estou conseguindo, uso Delphi 7 e SQLServer 2000; criei um campo tipo varchar com tamanho 8000, não sei porque ele grava até um certo limite dos dados que digito num campo memo e depois antes do post eu transfiro para o campo varchar tamanho 8000 mas não consigo gravar tudo que digitei, com um campo text que criei eu nem consigo gravar os dados nele, engraçado é que pelo Enterprise Manager eu consigo digitar os dados que aparecem no campo memo do DELPHI. se alguém tiver alguma dica, será muito benvinda. grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
RES: [delphi-br] QuickReport em colunas.
Oi Julio Cesar, não é para etiquetas eu quero imprimir numa coluna os registros de um banco de dados e na outra outro banco de dados, ou seja, na 1º coluna todas a receitas arrecadadas e na outra as despesas. Eu consegui dividir o QuickReport em 2 colunas só não estou conseguindo colocar os subdetails um ao lado do outro. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Julio Cesar Enviada em: segunda-feira, 14 de setembro de 2009 16:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] QuickReport em colunas. nao acho q seja possivel, pelo menos nunca vi assim.. mas pode usar componentes texto e preencher com os dados q vc quer no evento OnBeforeprint (acho q eh esse)... vc ta querendo fazer algo como etiquetas? julio cesar - Original Message - From: Adenes Junior To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, September 14, 2009 1:39 PM Subject: [delphi-br] QuickReport em colunas. Oi turma, Dividi o QuickReport em 2 colunas, como faço para colocar 2 QRSubDetail um ao lado do outro? Quando coloco fica um abaixo do outro. Adenes Junior [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Join
Gente?! Ninguém teve esse problema? Ninguem usa isso? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Eny Urias enyur...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Setembro de 2009 14:53:04 Assunto: [delphi-br] Join Gente, Instalei o D2009 e um projeto começou a dar pau. Eu tenho o conjunto Query + DataSetProvider + ClientDataSet + DataSource. A Query tem um sql com join e os campos da segunda tabela estao com os providerflags tudo false MAS... na hora de dar um update ele me dá o erro coluna errada... eu verifiquei com o oracle trace e ele ta usando os campos do join no update... Putz eu uso demais isso e se alguem souber como revolver isso agradeço de coração! Ahh... eu criei um projeto novinho e fiz um teste... deu pau também -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Unit não debuga
Olá pessoal, estou com um problema estranho aqui na minha máquina de desenvolvimento. Determinada unit é compilada, funciona perfeitamente, porém quando marco os pontos de debug nela, o sistema não identifica aquele ponto como um breakpoint. O engraçado é que em apenas uma unit, nas outras funcionam perfeitamente. Uso cnpack e gexperts, será que não tem nada a ver esses dois.??? Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Campo Memo no SQL Server 2000
na tabela criei como varchar(8000), o máximo que me deixa digitar, no componente QUERY, o campo começa com 255 na propriedade SIZE, qual seria o valor que devo colocar, eu faço a leitura do registro e coloco este campo no componente MEMO e para gravar eu leio o memo e atribuo ao campo, só que ele não consegue gravar tudo que digito no memo, o que eu gostaria era de saber o máximo que posso digitar, estou vendo que tenho que criar mais de um campo memo no SQLServer. grato Stainle --- Em ter, 15/9/09, Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk escreveu: De: Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk Assunto: RE: [delphi-br] Campo Memo no SQL Server 2000 Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Setembro de 2009, 3:59 Ola Stainle, bom dia Voce digita os dados em outros campos ao mesmo tempo? Lembre-se que o tamanho maximo de linha no SQL Server 2000 e 8060 bytes. Att. Steve -Original Message- From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]On Behalf Of stainle2003 Sent: 14 September 2009 18:50 To: delphi...@yahoogrup os.com.br Subject: [delphi-br] Campo Memo no SQL Server 2000 boa tarde, estou precisando gravar dados como se fosse campo memo, não estou conseguindo, uso Delphi 7 e SQLServer 2000; criei um campo tipo varchar com tamanho 8000, não sei porque ele grava até um certo limite dos dados que digito num campo memo e depois antes do post eu transfiro para o campo varchar tamanho 8000 mas não consigo gravar tudo que digitei, com um campo text que criei eu nem consigo gravar os dados nele, engraçado é que pelo Enterprise Manager eu consigo digitar os dados que aparecem no campo memo do DELPHI. se alguém tiver alguma dica, será muito benvinda. grato Stainle - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * * * * * * * This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. * * * * * * * Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Unit não debuga
Cara, posso falar até alguma coisa errada, mas pode ser que você não use não está usando essa rotina em algum lugar. Exemplo, se você tem uma procedure ou função e não usa ela em alguma chamada. Mesmo que você coloque o breakpoint, o Delphi não vai reconhecer a mesma. Espero ter dado um toque. Caso falei algo que não procede fiquem a vontade para me corrigir. 2009/9/15 Berdam berdamzi...@yahoo.com.br Olá pessoal, estou com um problema estranho aqui na minha máquina de desenvolvimento. Determinada unit é compilada, funciona perfeitamente, porém quando marco os pontos de debug nela, o sistema não identifica aquele ponto como um breakpoint. O engraçado é que em apenas uma unit, nas outras funcionam perfeitamente. Uso cnpack e gexperts, será que não tem nada a ver esses dois.??? -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- []'s Emerson Moreno Desenvolvedor Delphi O grande sábio aprende por ensinar! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Unit não debuga
Eu, por minha vez, deduzo que você tenha, no library path, uma cópia desta unit ou até mesmo uma DCU. Já aconteceu este cenário comigo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Unit não debuga
Ou ela está sendo usada, está na pasta da sua aplicação, mas não está adicionada ao projeto. isso esplicaria ela compilar, mas não debugar. Abs Daniel Augusto Bastos 2009/9/15 José Mário Silva Guedes jmariogue...@gmail.com Eu, por minha vez, deduzo que você tenha, no library path, uma cópia desta unit ou até mesmo uma DCU. Já aconteceu este cenário comigo. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Unit não debuga
fiz alguns testes, coloquei um showmessage dentro dos métodos dessa unit, quando compiilo o showmessage aparece justamente onde eu coloquei, porém o código não para no breakpoint anotado na linha acima . Estranho pacas Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 De: Emerson Moreno ecie...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 10:20:03 Assunto: Re: [delphi-br] Unit não debuga Cara, posso falar até alguma coisa errada, mas pode ser que você não use não está usando essa rotina em algum lugar. Exemplo, se você tem uma procedure ou função e não usa ela em alguma chamada. Mesmo que você coloque o breakpoint, o Delphi não vai reconhecer a mesma. Espero ter dado um toque. Caso falei algo que não procede fiquem a vontade para me corrigir. 2009/9/15 Berdam berdamzinho@ yahoo.com. br Olá pessoal, estou com um problema estranho aqui na minha máquina de desenvolvimento. Determinada unit é compilada, funciona perfeitamente, porém quando marco os pontos de debug nela, o sistema não identifica aquele ponto como um breakpoint. O engraçado é que em apenas uma unit, nas outras funcionam perfeitamente. Uso cnpack e gexperts, será que não tem nada a ver esses dois.??? - - - - - - Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual .cnpq.br/ buscatextual/ visualizacv. jsp?id=K4251629Y 0 - - - - - - _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- []'s Emerson Moreno Desenvolvedor Delphi O grande sábio aprende por ensinar! [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Hierarquia de Classes
Olá amigos. Uso Delphi 2007 e estou com dificuldades em um pacote de componentes, o KBM. Preciso, em tempo de debug, verificar a hierarquia de uma classe. Existe alguma ferramenta no Delphi para isso? -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PROVIDER FALGS
Basta atribuir os providers que forem necessários. Ex.: Campo1.ProviderFlags := [pfInUpdate, pfInWhere, pfInKey]; Campo2.ProviderFlags := [pfInUpdate, pfInWhere]; Campo3.ProviderFlags := []; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RE: [delphi-br] Campo Memo no SQL Server 2000
Me desculpe se nao entendi o seu problema, mas eu tenho campos em Queries (TADOQuery) de Size 600 e mais. Voce olha os dados da tabela no Enterprise Manager? Se os dados em seu memorando contem Linefeeds(#13#10), nem todos os dados estao visiveis na tabela de SQL, a primeira vista. Voce poderia tentar removendo os line feeds? Se voce ja sabe todo isso , peco desculpa . cuprimentos Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of Nivaldo Stainle Sent: 15 September 2009 14:02 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Campo Memo no SQL Server 2000 na tabela criei como varchar(8000), o máximo que me deixa digitar, no componente QUERY, o campo começa com 255 na propriedade SIZE, qual seria o valor que devo colocar, eu faço a leitura do registro e coloco este campo no componente MEMO e para gravar eu leio o memo e atribuo ao campo, só que ele não consegue gravar tudo que digito no memo, o que eu gostaria era de saber o máximo que posso digitar, estou vendo que tenho que criar mais de um campo memo no SQLServer. grato Stainle *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
Re: [delphi-br] Windows 7(Seven) + Delphi
A pasta Arquivos de Programas do Win7 estava como somente leitura, e na execução do Delphi7 o delphi tentava criar um um arquivo na mesma pasta, e resolvi instalando de Delphi em uma pasta fora do Arquivos de Programas do Win7. Pedro. Anakin escreveu: Pedro, Quais problemas vc teve com o delphi 7 no W 7 ? Eu instalei o D7 no W7 e funcionou perfeitamente. Att. João Carlos 2009/9/12 Pedro Neves neve...@yahoo.com mailto:neveshp%40yahoo.com Estou usando desde a versão beta, o delphi 7 teve alguns problemas, então resolvi passando para delphi 2009. O bando de dados que uso é o MySql 5.1, e tem funcionado perfeitamente. Hoje utilizo a versão 7600 do Windows 7 qué é a última e final. Att, Pedro Ricardo Diniz escreveu: Salve a todos do grupo... Gostaria de saber se alguem já tem usado o Windows 7(Seven) + Delphi (versões 7 pra cima)? Banco de dados? E tudo mais em configuração se deu algum conflito? Grato. Att, Ricardo. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off-topic] Servidor Subversion
Sim, é. Mas o do Google Code é sempre OpenSource. Qualquer um pode ver seus fontes. Atualmente eu tenho uma conta só pra usar o svn em http://www.kinghost.com.br/ Até agora não houve falhas no serviço. O serviço deles até agora me atendeu bem, e não tenho queixas sobre o atendimento. Abs Daniel Augusto Bastos 2009/9/14 Silvio Clecio silviop...@yahoo.com.br Vinicius A. Santos escreveu: eliflaviob escreveu: Alguém indica um servidor Subversion na Internet, que seja estável, confiável e de preferência que seja possível fazer backup do repositório? Nós utilizamos http://unfuddle.com/ e nunca tivemos problemas. É grátis até um certo espaço, não me lembro ao certo, acho que é 200 MB. -- Vinicius A. Santos www.msisolucoes.com.br Galera, esse serviço é o mesmo que o GoogleCode e o SourceForge oferecem? -- Silvio Clecio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows 7(Seven) + Delphi
Andrei... então este problema ocasiona apenas no rc1? Espero que na versão final isso não ocorra... rs 2009/9/14 Andrei Luís compuvale.softw...@gmail.com Olá Felipe, também passei com isso com o RC1. A partir de um build que não lembro qual foi isso parou de acontecer. [] Andrei 2009/9/14 Felipe Oriani fbori...@gmail.com fboriani%40gmail.com Na minha máquina, estou com o Win7 64 bits RC1... e instalei o delphi 7, firebird 2.1 e está rodando tudo blza! Apenas quando inicializo o delphi e quando abro um projeto, aparece uma message box com um System error.., e clique em OK, ela aparece mais umas 2 ou 3 vezes fora isso, ele opera normal, executa e compila tranquilo! alguém tem idéia do que poderia ser este erro ? Att, 2009/9/13 Anakin jcp...@gmail.com jcprog%40gmail.com Pedro, Quais problemas vc teve com o delphi 7 no W 7 ? Eu instalei o D7 no W7 e funcionou perfeitamente. Att. João Carlos 2009/9/12 Pedro Neves neve...@yahoo.com neveshp%40yahoo.comneveshp% 40yahoo.com Estou usando desde a versão beta, o delphi 7 teve alguns problemas, então resolvi passando para delphi 2009. O bando de dados que uso é o MySql 5.1, e tem funcionado perfeitamente. Hoje utilizo a versão 7600 do Windows 7 qué é a última e final. Att, Pedro Ricardo Diniz escreveu: Salve a todos do grupo... Gostaria de saber se alguem já tem usado o Windows 7(Seven) + Delphi (versões 7 pra cima)? Banco de dados? E tudo mais em configuração se deu algum conflito? Grato. Att, Ricardo. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- __ Felipe B. Oriani fbori...@gmail.com fboriani%40gmail.com | www.felipeoriani.com.br ...Examina o sentido, o modo e a direção de tuas palavras, antes de pronunciá-las.. por Emmanuel [As partes desta mensagem que não continham texto foram removidas] -- __ Felipe B. Oriani fbori...@gmail.com | www.felipeoriani.com.br ...Examina o sentido, o modo e a direção de tuas palavras, antes de pronunciá-las.. por Emmanuel [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes kbmMW
Boa noite. Alguem utiliza estes componentes kbmMW para desenvolver Ntier e tem algum breve comentário a respeito do mesmo? Sergio []´s Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Join
Tem que mudar os providers do clientdataset também, deixar igual ao da query. Eny Urias escreveu: Gente?! Ninguém teve esse problema? Ninguem usa isso? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Setembro de 2009 14:53:04 Assunto: [delphi-br] Join Gente, Instalei o D2009 e um projeto começou a dar pau. Eu tenho o conjunto Query + DataSetProvider + ClientDataSet + DataSource. A Query tem um sql com join e os campos da segunda tabela estao com os providerflags tudo false MAS... na hora de dar um update ele me dá o erro coluna errada... eu verifiquei com o oracle trace e ele ta usando os campos do join no update... Putz eu uso demais isso e se alguem souber como revolver isso agradeço de coração! Ahh... eu criei um projeto novinho e fiz um teste... deu pau também -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- */System – Soluções em Sistemas de Informação /*/Marcelo Luiz Onhate Departamento de Desenvolvimento/ marc...@systempro.com.br mailto:marc...@systempro.com.br www.systempro.com.br http://www.systempro.com.br/(54) 3321-5888 -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Hierarquia de Classes
Declara esta função: procedure ShowClass(obj: TObject); var s: String; classe: TClass; begin if not Assigned(obj) then Exit; classe:=obj.ClassType; while Assigned(classe) do begin s:=s+classe.ClassName+#13; classe:=classe.ClassParent; end; ShowMessage(s); end; e no debug chama ela assim ShowClass(xxx). Vai aparecer em modo visual, na tua aplicação a lista de descendencia das classes... José Mário Silva Guedes escreveu: Olá amigos. Uso Delphi 2007 e estou com dificuldades em um pacote de componentes, o KBM. Preciso, em tempo de debug, verificar a hierarquia de uma classe. Existe alguma ferramenta no Delphi para isso? -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas] -- */System – Soluções em Sistemas de Informação /*/Marcelo Luiz Onhate Departamento de Desenvolvimento/ marc...@systempro.com.br mailto:marc...@systempro.com.br www.systempro.com.br http://www.systempro.com.br/(54) 3321-5888 -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] PROVIDER FALGS
Bom gente funciona, não aconteceu o que esperava, mas é possivel sim. Obrigada. Sds. :D --- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu Penso q isso pode ser feito em tempo de execução, mas somente com o ClientDataSet fechado. Se o ClientDataSet estiver associado a um TDataSetProvider, o dataset a ele associado tb deve estar fechado. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de v.silva31 Enviada em: segunda-feira, 14 de setembro de 2009 15:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] PROVIDER FALGS Pessoal é possivel configurar provider falgs em tempo de execução em um clientdataset? grata. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Jedi dando erro
Delphi 7. Vou tentar instalar o rxLIb.. PS: Alguem conhece um componente do tipo ComboBox com um calendario anexo.. para preenchimento de datas.. --- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu O mais importante vc ñ mencionou. Qual a versão do Delphi q vc usa? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Denilson Albuquerque Enviada em: segunda-feira, 14 de setembro de 2009 13:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Jedi dando erro Olá pessoal!!! Meu primeiro post (ou melhor dúvida). Sou novato no delphi e instalei o Jedi mas ta dando erro na hora de iniciar o Delphi. Quando vou compilar qq programinha exemplo da erro de divisão por zero. Acho que é compatibilidade com outas Units? Zeoslib?? Winskin?? Desde já agradeço. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBGRID
Gente mais dúvidas. Tenho um projeto em Delphi 6. Uso uma tela de consulta geral, com dois edits, que deve retornar qualquer valor encontrado dentro de 4 tabelas diferentes. Uso um TSQLCLIENTDATASET, ligado a um datasource que aponta para uma grid. O problema que o SELECT me retorna mais de 1500 registros, mas a grid mostra 2,3 registros apenas. o que pode estra acontecendo? desde já agradeço.
Re: [delphi-br] Hierarquia de Classes
José Mário Silva Guedes escreveu: Olá amigos. Uso Delphi 2007 e estou com dificuldades em um pacote de componentes, o KBM. Preciso, em tempo de debug, verificar a hierarquia de uma classe. Existe alguma ferramenta no Delphi para isso? Não entendi o que vc quis dizer com: Preciso, em tempo de debug, verificar a hierarquia de uma classe. Seja mais específico por favor. Para verificar a hierarquia de uma classe, vai descendo, de classes em classe, para ver qual classe descende de quem e assim por diante. -- Vinicius A. Santos www.msisolucoes.com.br
Re: [delphi-br] Hierarquia de Classes
Opa. Então, queria saber se existe, para ter a mesma solução proposta Marcelo, algo como o Watch List. Imaginei que o GExperts pudesse ter algo nesta linha mas não identifiquei nada. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componentes kbmMW
Sérgio, a empresa em que trabalho já usa esta suite a anos com grande sucesso. Estou me aprofundando nestes componentes e acho uma tecnologia muito poderosa e interessante. Basicamente, em linhas gerais, ele usa o Indy como provedor TCP/IP. A missão do KBM MW é facilitar a construção da infra-estrutura de soluções baseadas em camadas. Sendo uma alternativa muito interessante às tecnologias. Pode funcionar como um servidor RPC. -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alterar valor do registro
nao é mais facil desisntalar o drive da usb?
2009/9/10 Eduardo Silva eduko...@yahoo.com.br
Sim, mas isso não tem problema. Eu preciso do programinha alterando o valor
do registro, a idéia seria compactar o exe com senha. Ai, qdo eu precisar
usar um pen drive, eu descompacto, uso o programa e compacto novamente.
É um micro local...sem rede, etcpois preciso bloquear que as pessoas
usem pen drives e outros dispositivos USB
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: quinta-feira, 10 de setembro de 2009 13:56
Para: delphi-br
Assunto: RE: [delphi-br] Alterar valor do registro
Prioridade: Alta
O usuário que logado na máquina, quando roda esse código, possui direitos
administrativos sobre ela?
Sds.
To: delphi...@yahoogrup
mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br
os.com.br
From: eduko...@yahoo.
mailto:edukobra%40yahoo.com.bredukobra%2540yahoo.com.br
com.br
Date: Thu, 10 Sep 2009 13:51:16 -0300
Subject: [delphi-br] Alterar valor do registro
Galera, fiz o seguinte código para alterar o valor do registro e controlar
a
liberação/travamento das portas USB do meu micro.
Só que não esta funcionando (não esta alterando o valor).
Alguém pode me dar uma mão?
Obrigado,
procedure TForm1.btnLiberaClick(Sender: TObject);
begin
// HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR
// Valor 3 para liberar
// Chama o construtor do objeto
Registro := TRegistry.Create;
{ Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela
ainda não exista. }
Registro.OpenKey (Raiz, True);
// Grava as informações do form
Registro.WriteInteger ('Start', 3);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;
procedure TForm1.btnTravaClick(Sender: TObject);
begin
// HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR
// Valor 4 para bloquear
// Chama o construtor do objeto
Registro := TRegistry.Create;
{ Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela
ainda não exista. }
Registro.OpenKey (Raiz, True);
// Grava as informações do form
Registro.WriteInteger ('Start', 4);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;
.
__
Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique
aqui.
http://www.windowsl
http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_m
edium=Taglineutm_campaign=MobileServices200908
ive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_ca
mpaign=MobileServices200908
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Email enviado com Atraso - Indy
Pessoal,
Estou usando o código abaixo para enviar email e os emails estão chegando com 3
horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha
===IdMessage.Date := now; e não resolveu.
Alguem tem alguma dica?
Segue o código que uso no envio.
procedure TSendEmail.Execute;
var
SMTP: TIdSMTP;
IdMessage: TIdMessage;
begin
SMTP := TIdSMTP.Create(nil);
IdMessage := TIdMessage.Create(nil);
try
SMTP.Host := self.ServidorSMTP;
if self.GeraLog=1 then LogMailThread('Host: '+self.ServidorSMTP);
SMTP.Port := self.Porta;
SMTP.Password := self.Senha;
SMTP.Username := self.Usuario;
if self.Autenticacao=1 then SMTP.AuthType := atDefault else
SMTP.AuthType := atNone;
IdMessage.From.Address := self.Remetente;
IdMessage.From.Name := self.NomeRemetente;
Idmessage.BccList.EMailAddresses := Destinatario;
if self.GeraLog=1 then LogMailThread('Para: '+Destinatario);
IdMessage.Subject:= self.Assunto;
IdMessage.Body.Text := self.TextoEmail;
IdMessage.ContentType:= 'text/html';
IdMessage.Date := now;
try
SMTP.Connect;
SMTP.Send(IdMessage);
except
on e: Exception do
begin
if self.GeraLog=1 then LogMailThread(E.Message);
end;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
IdMessage.Destroy;
SMTP.Destroy;
end;
end;
RE: [delphi-br] Campo Memo no SQL Server 2000
não tenho o porque desculpá-los, descobri que no campo MEMO só consigo digitar 255 caracteres, deve ser isto que está truncando a digitação de mais dados. grato pela atenção. abraços. Stainle --- Em ter, 15/9/09, Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk escreveu: De: Wilson, Stephen stephen.wil...@ipswichhospital.nhs.uk Assunto: RE: [delphi-br] Campo Memo no SQL Server 2000 Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Setembro de 2009, 11:48 Me desculpe se nao entendi o seu problema, mas eu tenho campos em Queries (TADOQuery) de Size 600 e mais. Voce olha os dados da tabela no Enterprise Manager? Se os dados em seu memorando contem Linefeeds(#13# 10), nem todos os dados estao visiveis na tabela de SQL, a primeira vista. Voce poderia tentar removendo os line feeds? Se voce ja sabe todo isso , peco desculpa . cuprimentos Steve -Original Message- From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br]On Behalf Of Nivaldo Stainle Sent: 15 September 2009 14:02 To: delphi...@yahoogrup os.com.br Subject: RE: [delphi-br] Campo Memo no SQL Server 2000 na tabela criei como varchar(8000) , o máximo que me deixa digitar, no componente QUERY, o campo começa com 255 na propriedade SIZE, qual seria o valor que devo colocar, eu faço a leitura do registro e coloco este campo no componente MEMO e para gravar eu leio o memo e atribuo ao campo, só que ele não consegue gravar tudo que digito no memo, o que eu gostaria era de saber o máximo que posso digitar, estou vendo que tenho que criar mais de um campo memo no SQLServer. grato Stainle * * * * * * * This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. * * * * * * * Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBGRID
ve aí como está a propriedade PacketRecords do seu ClientDataset []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: v.silva31 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 15, 2009 9:51 AM Subject: [delphi-br] DBGRID Gente mais dúvidas. Tenho um projeto em Delphi 6. Uso uma tela de consulta geral, com dois edits, que deve retornar qualquer valor encontrado dentro de 4 tabelas diferentes. Uso um TSQLCLIENTDATASET, ligado a um datasource que aponta para uma grid. O problema que o SELECT me retorna mais de 1500 registros, mas a grid mostra 2,3 registros apenas. o que pode estra acontecendo? desde já agradeço. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Email enviado com Atraso - Indy
o problema pode ser no seu servidor de envio. Pois depois que saiu do seu sistema, quem controla isso é o servidor. Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 De: rmpena25 rmpen...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 13:51:11 Assunto: [delphi-br] Email enviado com Atraso - Indy Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] desenho duplicata.
Pessoal, boa tarde, algum amigo do bem, teria o desenho de uma duplicata para quickreports que faça impressão em folha branca? Fico grato se alguém poder doar este form.. irei aproveitar só o desenho Nada de programação abraço Logo AGA-B Hilderaldo Barbosa 1Analista de Sistemas AGA-B Sistemas e Consultoria + Av. Cristiano Machado, 1440/105 Sagrada Família - Belo Horizonte/MG CEP: 31.140-660 (Telefax: (+55) 31 3482-9714 ( CEL: (+55) 31 9748-2932 ( CEL: (+55) 34 9179-1714 * mailto:hideraldo_barb...@yahoo.com.br%20%20 hideraldo_barb...@yahoo.com.br mailto:hideraldo_barb...@hotmail.com%20 hideraldo_barb...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows 7(Seven) + Delphi
Isso Felipe, como eu disse, a partir de outro build q testei (72xx não lembro exatamente), o problema parou de acontecer. Estou usando o build 7600, que é tido como a versão final, e está funcionando bem. [] Andrei 2009/9/15 Felipe Oriani fbori...@gmail.com Andrei... então este problema ocasiona apenas no rc1? Espero que na versão final isso não ocorra... rs 2009/9/14 Andrei Luís compuvale.softw...@gmail.com Olá Felipe, também passei com isso com o RC1. A partir de um build que não lembro qual foi isso parou de acontecer. [] Andrei 2009/9/14 Felipe Oriani fbori...@gmail.com fboriani%40gmail.com Na minha máquina, estou com o Win7 64 bits RC1... e instalei o delphi 7, firebird 2.1 e está rodando tudo blza! Apenas quando inicializo o delphi e quando abro um projeto, aparece uma message box com um System error.., e clique em OK, ela aparece mais umas 2 ou 3 vezes fora isso, ele opera normal, executa e compila tranquilo! alguém tem idéia do que poderia ser este erro ? Att, 2009/9/13 Anakin jcp...@gmail.com jcprog%40gmail.com Pedro, Quais problemas vc teve com o delphi 7 no W 7 ? Eu instalei o D7 no W7 e funcionou perfeitamente. Att. João Carlos 2009/9/12 Pedro Neves neve...@yahoo.com neveshp%40yahoo.com neveshp% 40yahoo.com Estou usando desde a versão beta, o delphi 7 teve alguns problemas, então resolvi passando para delphi 2009. O bando de dados que uso é o MySql 5.1, e tem funcionado perfeitamente. Hoje utilizo a versão 7600 do Windows 7 qué é a última e final. Att, Pedro Ricardo Diniz escreveu: Salve a todos do grupo... Gostaria de saber se alguem já tem usado o Windows 7(Seven) + Delphi (versões 7 pra cima)? Banco de dados? E tudo mais em configuração se deu algum conflito? Grato. Att, Ricardo. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- __ Felipe B. Oriani fbori...@gmail.com fboriani%40gmail.com | www.felipeoriani.com.br ...Examina o sentido, o modo e a direção de tuas palavras, antes de pronunciá-las.. por Emmanuel [As partes desta mensagem que não continham texto foram removidas] -- __ Felipe B. Oriani fbori...@gmail.com | www.felipeoriani.com.br ...Examina o sentido, o modo e a direção de tuas palavras, antes de pronunciá-las.. por Emmanuel [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Email enviado com Atraso - Indy
se seu servidor fica fora do pais ira usar a data dele quase certeza.. entre em contato com eles 2009/9/15 Berdam berdamzi...@yahoo.com.br o problema pode ser no seu servidor de envio. Pois depois que saiu do seu sistema, quem controla isso é o servidor. -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- De: rmpena25 rmpen...@yahoo.com.br rmpena25%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 13:51:11 Assunto: [delphi-br] Email enviado com Atraso - Indy Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject := self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Join
Obrigada Marcelo pela atenção, mas isso eu já tinha feito. Mas eu descobri na net que isso é um bug do D2009. Eu já baixei a atualização... e já resolveu o problema... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles - Mensagem original De: Marcelo Luiz Onhate marc...@systempro.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 15 de Setembro de 2009 9:32:17 Assunto: Re: Res: [delphi-br] Join Tem que mudar os providers do clientdataset também, deixar igual ao da query. Eny Urias escreveu: Gente?! Ninguém teve esse problema? Ninguem usa isso? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 14 de Setembro de 2009 14:53:04 Assunto: [delphi-br] Join Gente, Instalei o D2009 e um projeto começou a dar pau. Eu tenho o conjunto Query + DataSetProvider + ClientDataSet + DataSource. A Query tem um sql com join e os campos da segunda tabela estao com os providerflags tudo false MAS... na hora de dar um update ele me dá o erro coluna errada... eu verifiquei com o oracle trace e ele ta usando os campos do join no update... Putz eu uso demais isso e se alguem souber como revolver isso agradeço de coração! Ahh... eu criei um projeto novinho e fiz um teste... deu pau também -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- */System – Soluções em Sistemas de Informação /*/Marcelo Luiz Onhate Departamento de Desenvolvimento/ marc...@systempro.com.br mailto:marc...@systempro.com.br www.systempro.com.br http://www.systempro.com.br/(54) 3321-5888 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] calculo da idade de nascimento no momento do cadastro
Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
[delphi-br] Remover borda do Combobox
Como faço para remover a borda do combobox? Estou usando Delphi 7 e preciso que seja com o combobox nativo do delphi. Vlw Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Sent from Joinville, Santa Catarina, Brasil [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
e aproveitando caso vc queira saber anos ... meses e dias . procedure TForm1.BitBtn1Click(Sender: TObject); var Ano, Mes: Integer; Total_dias: Real; begin //Descobrir a idade somente em anos, meses ou dias... ShowMessage(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + ' anos'); ShowMessage(IntToStr(MonthsBetween(Date, StrToDate(MaskEdit1.Text))) + ' meses'); ShowMessage(IntToStr(DaysBetween(Date, StrToDate(MaskEdit1.Text))) + ' dias'); end; gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
Boa Tarde Gustavo . Eu uso assim function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; var D1, M1, A1, D2, M2, A2: Word; begin DecodeDate(Data1, A1, M1, D1); DecodeDate(Data2, A2, M2, D2); Result := A2 - A1; if (M1 M2) or ((M1 = M2) and (D1 D2)) then Dec(Result); end; procedure TForm1.Button1Click(Sender: TObject); var DataNasc: TDateTime; begin DataNasc := StrToDate(MaskEdit1.Text); ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); end; Espero ter ajudado !1 Luciano Angelini Prefeitura de Lupionópolis-Pr gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] Email enviado com Atraso - Indy
O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido como Hora de Greenwich) http://pt.wikipedia.org/wiki/Greenwich_Mean_Time Atte,Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/9/09, rmpena25 rmpen...@yahoo.com.br escreveu: Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; ,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Email enviado com Atraso - Indy
Ricardo, Se eu envio pelo Outlook a data/hora fica correta. Isso só acontece se mando pelo Delphi usando o Indy. Tá muito estranho... --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido como Hora de Greenwich) http://pt.wikipedia.org/wiki/Greenwich_Mean_Time Atte,Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/9/09, rmpena25 rmpen...@... escreveu: Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; ,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: Email enviado com Atraso - Indy
opa.. eu tenho um sistema so de envio de e-mail no delphi 2009, usando componentes indy10 quando envio por ele, na hora chega no meu email. eu uso o gmail pra enviar. qual seu servidor de email?? To: delphi-br@yahoogrupos.com.br From: rmpen...@yahoo.com.br Date: Tue, 15 Sep 2009 19:18:35 + Subject: [delphi-br] Re: Email enviado com Atraso - Indy Ricardo, Se eu envio pelo Outlook a data/hora fica correta. Isso só acontece se mando pelo Delphi usando o Indy. Tá muito estranho... --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido como Hora de Greenwich) http://pt.wikipedia.org/wiki/Greenwich_Mean_Time Atte,Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/9/09, rmpena25 rmpen...@... escreveu: Pessoal, Estou usando o código abaixo para enviar email e os emails estão chegando com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha ===IdMessage. Date := now; e não resolveu. Alguem tem alguma dica? Segue o código que uso no envio. procedure TSendEmail.Execute; var SMTP: TIdSMTP; IdMessage: TIdMessage; begin SMTP := TIdSMTP.Create( nil); IdMessage := TIdMessage.Create( nil); try SMTP.Host := self.ServidorSMTP; if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP ); SMTP.Port := self.Porta; SMTP.Password := self.Senha; SMTP.Username := self.Usuario; if self.Autenticacao= 1 then SMTP.AuthType := atDefault else SMTP.AuthType := atNone; IdMessage.From. Address := self.Remetente; IdMessage.From. Name := self.NomeRemetente; Idmessage.BccList. EMailAddresses := Destinatario; if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ; IdMessage.Subject:= self.Assunto; IdMessage.Body. Text := self.TextoEmail; IdMessage.ContentTy pe:= 'text/html'; IdMessage.Date := now; try SMTP.Connect; SMTP.Send(IdMessage ); except on e: Exception do begin if self.GeraLog= 1 then LogMailThread( E.Message) ; end; end; finally if SMTP.Connected then SMTP.Disconnect; IdMessage.Destroy; SMTP.Destroy; end; end; ,___ __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] _ Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já! http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DBGRID
Esta desabilitada valor -1 --- Em delphi-br@yahoogrupos.com.br, Walter Chagas \(Bol\) wchag...@... escreveu ve aí como está a propriedade PacketRecords do seu ClientDataset []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@... http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@... SKYPE: WalterChagasJr - Original Message - From: v.silva31 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 15, 2009 9:51 AM Subject: [delphi-br] DBGRID Gente mais dúvidas. Tenho um projeto em Delphi 6. Uso uma tela de consulta geral, com dois edits, que deve retornar qualquer valor encontrado dentro de 4 tabelas diferentes. Uso um TSQLCLIENTDATASET, ligado a um datasource que aponta para uma grid. O problema que o SELECT me retorna mais de 1500 registros, mas a grid mostra 2,3 registros apenas. o que pode estra acontecendo? desde já agradeço. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off-topic] Servidor Subversion
Eu utilizo o KingHost também e é excelente, porém o que o Eli está querendo é saber se dá pra fazer backup dos arquivos do subversion mesmo, não só da última versão, mas do log todo sabe. Eu não fucei muito ainda, não tenho certeza, você que usa o KingHost também, sabe se é possível Daniel? abs - Original Message - From: Daniel Augusto Bastos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 15, 2009 10:20 AM Subject: Re: [delphi-br] [off-topic] Servidor Subversion Sim, é. Mas o do Google Code é sempre OpenSource. Qualquer um pode ver seus fontes. Atualmente eu tenho uma conta só pra usar o svn em http://www.kinghost.com.br/ Até agora não houve falhas no serviço. O serviço deles até agora me atendeu bem, e não tenho queixas sobre o atendimento. Abs Daniel Augusto Bastos 2009/9/14 Silvio Clecio silviop...@yahoo.com.br Vinicius A. Santos escreveu: eliflaviob escreveu: Alguém indica um servidor Subversion na Internet, que seja estável, confiável e de preferência que seja possível fazer backup do repositório? Nós utilizamos http://unfuddle.com/ e nunca tivemos problemas. É grátis até um certo espaço, não me lembro ao certo, acho que é 200 MB. -- Vinicius A. Santos www.msisolucoes.com.br Galera, esse serviço é o mesmo que o GoogleCode e o SourceForge oferecem? -- Silvio Clecio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Email enviado com Atraso - Indy
Provavelmente, ao preencher a data e hora do seu e-mail, vc está colocando a
data e hora locais sem converter para o GMT. Por isso acontece a diferença.
Para a sua próxima pergunta - como fazer a conversão para o GMT - não tenho a
resposta sobre como ou se é possível. Provavelmente é possível e existe uma
maneira.
[]'sRicardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/9/09, rmpena25 rmpen...@yahoo.com.br escreveu:
De: rmpena25 rmpen...@yahoo.com.br
Assunto: [delphi-br] Re: Email enviado com Atraso - Indy
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 15 de Setembro de 2009, 16:18
Ricardo,
Se eu envio pelo Outlook a data/hora fica correta. Isso só acontece se mando
pelo Delphi usando o Indy.
Tá muito estranho...
--- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso ricardo_engsoft@
... escreveu
O servidor de e-mail está usando o GMT (Greenwich Mean Time, também conhecido
como Hora de Greenwich)
http://pt.wikipedia .org/wiki/ Greenwich_ Mean_Time
Atte,Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/9/09, rmpena25 rmpen...@.. . escreveu:
Pessoal,
Estou usando o código abaixo para enviar email e os emails estão chegando com
3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a linha
===IdMessage. Date := now; e não resolveu.
Alguem tem alguma dica?
Segue o código que uso no envio.
procedure TSendEmail.Execute;
var
SMTP: TIdSMTP;
IdMessage: TIdMessage;
begin
SMTP := TIdSMTP.Create( nil);
IdMessage := TIdMessage.Create( nil);
try
SMTP.Host := self.ServidorSMTP;
if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP );
SMTP.Port := self.Porta;
SMTP.Password := self.Senha;
SMTP.Username := self.Usuario;
if self.Autenticacao= 1 then SMTP.AuthType := atDefault else
SMTP.AuthType := atNone;
IdMessage.From. Address := self.Remetente;
IdMessage.From. Name := self.NomeRemetente;
Idmessage.BccList. EMailAddresses := Destinatario;
if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ;
IdMessage.Subject:= self.Assunto;
IdMessage.Body. Text := self.TextoEmail;
IdMessage.ContentTy pe:= 'text/html';
IdMessage.Date := now;
try
SMTP.Connect;
SMTP.Send(IdMessage );
except
on e: Exception do
begin
if self.GeraLog= 1 then LogMailThread( E.Message) ;
end;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
IdMessage.Destroy;
SMTP.Destroy;
end;
end;
,___
_ _ _ _ _ _
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Capturar valor em arquivo UDL
Boa tarde pessoal;
Eu consegui esse exemplo:
var
strLinha: String;
Parte : TStringList;
begin
strLinha := 'a b;Alexsandro Que;Q;f;alex';
Parte := TStringList.Create;
try
Parte.Clear;
ExtractStrings([';'],[ ], PChar(strLinha), Parte);
ShowMessage(Parte[1]);
finally
Parte.Free;
end;
end;
No caso desse, ele pega o Alexsandro Que... acredito que estou quase lá !!!
Será que tem alguma forma de ele pegar só o ultimo campo, independente de
quantos houver ?
Aê eu mataria esse desafio ...
Pois abriria o arquivo e pegaria somente o ultimo campo ...
Quem poder me ajudar agradeço muito !!!
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos eduardo@...
escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@...
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs a...@...
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele esta
tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu
colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
Re: [delphi-br] Unit não debuga
2009/9/15 Berdam berdamzi...@yahoo.com.br:
fiz alguns testes, coloquei um showmessage dentro dos métodos dessa unit,
quando compiilo o showmessage aparece justamente onde eu coloquei, porém o
código não para no breakpoint anotado na linha acima .
Estranho pacas
Adiciona {$D+} no cabeçalho da unit para adicionar informações de debug.
Joao Morais
Re: Res: [delphi-br] API para mudar Aparência do Windows
Denilson Alexandre dos Santos Silva escreveu: Bom dia a todos, Obrigado Silvio pela resposta. Era quase isso que eu queria. Vou explicar melhor. Estou usando em meus formulários um componente Skin. E o que está acontecendo é que alguns componentes já existentes na minha aplicação estão com o fundo padrão do Windows (o que me referi a propriedade Objetos 3D). Então, o que eu estou precisando é colocar esses componentes com a mesma cor dos outros objetos. Tem um objeto (JvInspector) que não tem nenhuma propriedade de cor. Por isso que queria mudar a propriedade Objetos 3D, que resolveria o meu problema, só que era automático e não abrir somente a tela. Então, se tiver algum jeito de mudar essa cor de fundo deles, é o que eu preciso. Desde já, agradeço a todos. Brother, eu testei um demo (C:\Arquivos de programas\Borland\Delphi7\jvcl\examples\JvInspector) e vi a propriedade Style no JvInspector, mudei para isDotNet, o JvInspector ficou bem estiloso; ele também tem a propriedade Painter, use um JvInspectorDotNETPainter junto e configure as cores. Sucesso aí. -- Silvio Clecio.
Re: [delphi-br] Re: Capturar valor em arquivo UDL
Tente com: ShowMessage( Parte[ Pred( Parte.Count ) ] ); []'s Ricardo 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 15/9/09, alexsandro_qs a...@ig.com.br escreveu: De: alexsandro_qs a...@ig.com.br Assunto: [delphi-br] Re: Capturar valor em arquivo UDL Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 15 de Setembro de 2009, 17:45 Boa tarde pessoal; Eu consegui esse exemplo: var strLinha: String; Parte : TStringList; begin strLinha := 'a b;Alexsandro Que;Q;f;alex' ; Parte := TStringList. Create; try Parte.Clear; ExtractStrings( [';'],[ ], PChar(strLinha) , Parte); ShowMessage( Parte[1]) ; finally Parte.Free; end; end; No caso desse, ele pega o Alexsandro Que... acredito que estou quase lá !!! Será que tem alguma forma de ele pegar só o ultimo campo, independente de quantos houver ? Aê eu mataria esse desafio ... Pois abriria o arquivo e pegaria somente o ultimo campo ... Quem poder me ajudar agradeço muito !!! --- Em delphi...@yahoogrup os.com.br, Eduardo Silva dos Santos eduardo.drd@ ... escreveu O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai.. ; var ArqIni: TIniFile; StrList:TStringList ; begin StrList := TStringList. Creat; ArqIni := TIniFile.Create( 'c:\arqu1. udl' ); try aTexto := ArqIni.ReadString( 'oledb', 'Data source', ''); StrList.Delimiter := ';'; StrList.DelimitedTe xt := aTexto; //pronto você tem um StringList com todas as linhas separadas //Basta percorrer o mesmo e pegar o valor que você deseja.. finally ArqIni.Free; StrList.Free; end; end; Att, . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo.drd@ ... Site: http://www.drdsiste mas.com.br/ . . . . ... 2009/9/11 alexsandro_qs a...@... Obrigado Ricardo; Eu estou tentando como aquivo ini E fiz assim: procedure LeIni(var aTexto: string); var ArqIni: TIniFile; begin ArqIni := TIniFile.Create( 'c:\arqu1. udl'); try aTexto := ArqIni.ReadString( 'oledb', 'Data source', aTexto); finally ArqIni.Free; end; procedure TForm1.Button1Click (Sender: TObject); var //cria arquivo ini ArqIni: TIniFile; begin ArqIni := TIniFile.Create( 'c:\arqu1. udl'); try ArqIni.WriteString( 'oledb', 'Data source', 'aTexto'); finally ArqIni.Free; end; 2 Problemas: 1º Como eu declaro a palavra Data Source ? ( pois tem espaços) 2º como poderia tratar nesse código o separadar de linhas ; pois ele esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu colocar uma linha abaixo da outra Ex.: InitialCatalog= ERP; Data_Source= www.servidor. com.br Se alguem poder me ajudar com isso eu agradeço muito Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Capturar valor em arquivo UDL
rapaz.. a dica que te passei resolve seu problema, é só percorrer o
stringList, mais fácil que isso impossível..
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
2009/9/15 alexsandro_qs a...@ig.com.br
Boa tarde pessoal;
Eu consegui esse exemplo:
var
strLinha: String;
Parte : TStringList;
begin
strLinha := 'a b;Alexsandro Que;Q;f;alex';
Parte := TStringList.Create;
try
Parte.Clear;
ExtractStrings([';'],[ ], PChar(strLinha), Parte);
ShowMessage(Parte[1]);
finally
Parte.Free;
end;
end;
No caso desse, ele pega o Alexsandro Que... acredito que estou quase lá
!!!
Será que tem alguma forma de ele pegar só o ultimo campo, independente de
quantos houver ?
Aê eu mataria esse desafio ...
Pois abriria o arquivo e pegaria somente o ultimo campo ...
Quem poder me ajudar agradeço muito !!!
--- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
Eduardo Silva dos Santos eduardo@... escreveu
O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;
var
ArqIni: TIniFile;
StrList:TStringList;
begin
StrList := TStringList.Creat;
ArqIni := TIniFile.Create('c:\arqu1.udl' );
try
aTexto := ArqIni.ReadString('oledb', 'Data source', '');
StrList.Delimiter := ';';
StrList.DelimitedText := aTexto;
//pronto você tem um StringList com todas as linhas separadas...
//Basta percorrer o mesmo e pegar o valor que você deseja..
finally
ArqIni.Free;
StrList.Free;
end;
end;
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@...
Site: http://www.drdsistemas.com.br/
...
2009/9/11 alexsandro_qs a...@...
Obrigado Ricardo;
Eu estou tentando como aquivo ini
E fiz assim:
procedure LeIni(var aTexto: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
finally
ArqIni.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
//cria arquivo ini
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\arqu1.udl');
try
ArqIni.WriteString('oledb', 'Data source', 'aTexto');
finally
ArqIni.Free;
end;
2 Problemas:
1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
2º como poderia tratar nesse código o separadar de linhas ; pois ele
esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra se
eu colocar uma linha abaixo da outra
Ex.:
InitialCatalog=ERP;
Data_Source=www.servidor.com.br
Se alguem poder me ajudar com isso eu agradeço muito
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Informações sobre o Intraweb
Galera, Continuando a minha caminha no intraweb eu pergunto: 1 - Existem dois tipos de páginas no intraweb: Application e Page. Vocês utilizam qual tipo? 2 - Qual seria a melhor maneira de um formulário chamar outro? Valeu pessoal! Um grande abraço, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [DTDelphi] desenho duplicata.
Ai... Ve se te server... - Original Message - From: Hideraldo Barbosa To: delphi-bol...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br ; dtdel...@yahoogrupos.com.br Sent: Tuesday, September 15, 2009 2:19 PM Subject: [DTDelphi] desenho duplicata. Pessoal, boa tarde, algum amigo do bem, teria o desenho de uma duplicata para quickreports que faça impressão em folha branca? Fico grato se alguém poder doar este form.. irei aproveitar só o desenho Nada de programação abraço Logo AGA-B Hilderaldo Barbosa 1Analista de Sistemas AGA-B Sistemas e Consultoria + Av. Cristiano Machado, 1440/105 Sagrada Família - Belo Horizonte/MG CEP: 31.140-660 (Telefax: (+55) 31 3482-9714 ( CEL: (+55) 31 9748-2932 ( CEL: (+55) 34 9179-1714 * mailto:hideraldo_barb...@yahoo.com.br%20%20 hideraldo_barb...@yahoo.com.br mailto:hideraldo_barb...@hotmail.com%20 hideraldo_barb...@hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
