RES: RES: [delphi-br] Importação de Arquivo
O que ocorre é que dentro deste arquivo existem campos em branco. Ex.: 100,,098 Eis umas das dificuldades. Abraço. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Dionísio Enviada em: terça-feira, 13 de julho de 2010 22:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo É só parsear o conteúdo byte a byte pra identificar o que está dentro de aspas duplas. Se for encontrada uma aspa dupla, você sabe que até que uma outra aspa dupla seja encontrada, uma eventual vírgula fará parte do dado. -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 13 de julho de 2010 21:06, Marcelo leite_rom...@yahoo.com.br escreveu: Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,00 03,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. 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: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: ral...@gmail.com ralprd%40gmail.com mailto:ralprd%40gmail.comralprd%2540gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,00 03,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,00 03,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,00 03,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,00 03,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,00 03,2 ,006,,33903900,100,00 Já vasculhei
RES: RES: [delphi-br] Importação de Arquivo
O problema é que os campos tem tamanhos variados, não teria como eu dar um copy. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Wagne®_Fix Enviada em: terça-feira, 13 de julho de 2010 16:26 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito bem... Tem um cliente meu que importa mais ou menos uns 1000 dados diários para o Banco e nunca deu problema... AssignFile(arq,g); Reset ( arq ); ReadLn ( arq, linha ); Tot := 0; AuxTot := 0; while not Eof ( arq ) do begin AuxLinha := ''; AuxPed := ''; AuxChassi := ''; AuxLinha := Copy(linha,53,1); AuxPed := Copy(linha,1,10); AuxChassi := Copy(linha,51,10); end; De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM: ocid=WLCRM: Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [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] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER.
Re: [delphi-br] QuickReport
Que Delphi ?Isso ocorre com Rave? ou Só no QReport? --- Em ter, 13/7/10, ricardo_n2 rica...@n2solutions.com.br escreveu: De: ricardo_n2 rica...@n2solutions.com.br Assunto: [delphi-br] QuickReport Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 13 de Julho de 2010, 13:56 Boa tarde pessoal. Seguinte sou novo no Delphi, e estou fazendo um sistema de ERP. O meu problema é o seguinte, quando vou emitir as minhas notas fiscais a primeira sai certo no lay-out da segunda pra frente ele desloca uma linha para cima a cada nota impressa, sendo que o tamanho do meu formulário está customizado para 215,00 mm de altura com 167,00 mm de largura. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conversão RichEdit para HTML
Salve, pessoal estou desenvolvendo um aplicativo para envio de email em massa, porem estou meio estacionado na criação da mensagem ou seja consegui criar o editor com o richedit, porem na hora de converter utilizando o jvrichedittohtml ele nao leva as imagens, como consigo resolver isto? Alguem ja passou por isto e pode me ajudar? -- Pablo Farias [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
A rotina q te mandei faz justamente isso, ignora as virgulas pega a Aspas + a virgula , para identificar o final do campo valido quero dizer... foi esta a intenção mais a noite vou estar com o delphi e posso fazer a rotina funcionar caso ela nao tenha funcionado se ate la nao tiver resolvido eu monto uma e ja faço os testes e te entrego funfando Walter Chagas (Bol) escreveu: é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ Informa��o do ESET Smart Security, vers�o da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com
Re: [delphi-br] Dúvida com StringGrid
Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [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: 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
RES: [delphi-br] Importação de Arquivo
Ralp, Eu coloquei um Edit, um memo e um botão no form, no evento onclick do botão eu coloquei o código abaixo, este código gera uma linha para cada informação do registro, ai é só fazer o looping no memo. var Str: TStringList; begin Str:=TStringList.Create; Str.Delimiter:=','; Str.DelimitedText:=Edit1.Text; Memo1.Text:=Str.Text; end; Teruel De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: terça-feira, 13 de julho de 2010 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OldValue e NewValue - de novo !
Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson
RES: RES: [delphi-br] Importação de Arquivo
Ok Walter, vou testar aqui e posto o resultado. Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Daniel Azevedo Enviada em: terça-feira, 13 de julho de 2010 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo A rotina q te mandei faz justamente isso, ignora as virgulas pega a Aspas + a virgula , para identificar o final do campo valido quero dizer... foi esta a intenção mais a noite vou estar com o delphi e posso fazer a rotina funcionar caso ela nao tenha funcionado se ate la nao tiver resolvido eu monto uma e ja faço os testes e te entrego funfando Walter Chagas (Bol) escreveu: é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] OldValue e NewValue - de novo !
Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Desculpe Daniel, troquei o seu nome pelo do Walter. Não sei o que houve aqui em meu micro. Meu outlook parou de funcionar e não consigo recuperar minhas mensagens. Poderia me enviar novamente a rotina? Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Daniel Azevedo Enviada em: terça-feira, 13 de julho de 2010 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo A rotina q te mandei faz justamente isso, ignora as virgulas pega a Aspas + a virgula , para identificar o final do campo valido quero dizer... foi esta a intenção mais a noite vou estar com o delphi e posso fazer a rotina funcionar caso ela nao tenha funcionado se ate la nao tiver resolvido eu monto uma e ja faço os testes e te entrego funfando Walter Chagas (Bol) escreveu: é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DataRequest não dispara
Veja se esse exemplo pode te ajudar. procedure TForm1.Button1Click(Sender: TObject); begin ClientDataset1.DataRequest('QualquerCoisa'); end; function TForm1.DataSetProvider1DataRequest(Sender: TObject; Input: OleVariant): OleVariant; begin if (Input = 'QualquerCoisa') then ShowMessage ('Você chamou o DataRequest!'); end; [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []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: Rubem Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,”] para [;] 2) De [“,] para [;] 3) De [“,”] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato?
Re: [delphi-br] Arredondar
Joao, Vc pode multiplicar por 100 o salario para eliminar os centavos, acrescentar 8% e dividir por 100 usando MOD e nao a / (barra de divisao), assim vc tem somente a parte inteira. Obrigado. MuriloCunha On 13/07/2010 09:40, joao_jma wrote: Preciso atualizar o salário na base de dados de funcionários, aumentando em 8% Preciso arredondar os valores sempre acima para não gravar centavos. Alguma dica ??? Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br: Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD.
RES: [delphi-br] Arredondar
Declare Math no Uses Var NovoSalario,AntigoSalario,Aumento:Double; Begin AntigoSalario:= 1333; Aumento:= 8; NovoSalario:= Roundto(AntigoSalario + (AntigoSalario * (Aumento / 100)), 0); William C. Brazilino [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
Marcos Douglas wrote: 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br: Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Concordo com o Marcos mas se mesmo com dificuldade pode-se identificar um padrão é possível utilizar um parser/autômato... como se fosse avaliar uma expressão regular mesmo com repetições (float) ou não. Tente, antes de tudo, escrever uma linguagem formal da sua linha e depois utilize as possíveis soluções. []'s ancker
RES: RES: [delphi-br] Importação de Arquivo
Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PEDRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
Esse txt daí foi osso viu... []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: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 13, 2010 9:06 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []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: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []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: Marcelo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM: Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [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
Re: RES: [delphi-br] Importação de Arquivo
2010/7/14 Ralp Alves Bezerra ral...@gmail.com: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PEDRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Agora vc tem um arquivo CSV padrão. Veja: http://en.wikipedia.org/wiki/Comma-separated_values Próximo tarefa é usar este link: http://www.google.com.br/#hl=pt-BRq=delphi+csv+file+readingaq=faqi=aql=oq=gs_rfai=fp=bf16b567d30845cc ...se não quiser fazer vc mesmo. Abraço MD.
[delphi-br] Desempenho Firebird
Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Importação de Arquivo
Agora ficou barbada vei. Use esta função minha que vai funcionar, se o separador de dados for a virgula Voce poe a String num loop e declara-a na função como Frase e a virgula vai ser a parte. em cada passada no loop, ela vai tirando uma parte da string delimitada pela virgula e te retorna o dado. function ParteTexto(var Frase: string; Parte: string): string; // // Retorna uma parte de um texto antes de um caractere especificado // var i,max: integer; buff: string; begin i := 1; buff := ''; max := length(parte); while (i = length(Frase)) and (buff parte) do begin buff := buff + Frase[i]; if length(buff) max then buff := copy(buff,2,max); inc(i); end; if buff = Parte then begin Result := copy(Frase,1,i - max -1); Frase := copy(Frase,i,length(Frase)+1 -i); end else begin Result := Frase; Frase := ''; end; end; []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: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 14, 2010 10:03 AM Subject: RES: RES: [delphi-br] Importação de Arquivo Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PEDRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Com certeza, agora acho que vai dar certo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 09:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Esse txt daí foi osso viu... []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 9:06 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum
Re: [delphi-br] Desempenho Firebird
Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas depende do caso... []s Em 14 de julho de 2010 10:26, Eny Urias enyur...@yahoo.com.br escreveu: Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [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: 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] OldValue e NewValue - de novo !
O problema é que os valores de OldValue e NewValue so aparecem quando executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando o usuario sai do campo (OnExit) de desconto. Será que o valor antigo fica em memoria ? --- Em delphi-br@yahoogrupos.com.br, Marcelo leite_rom...@... escreveu Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@... Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2010, FireBird e DataSnap no FDD 2010
Galera, No próximo sábado (17/07) estarei no FDD falando um pouco sobre o desenvolvimento comercial com Delphi 2010, DataSnap e FireBird. (http://tinyurl.com/2dbyb7r) Este ano estamos comemorando 10 anos do FireBird e existem muitas apresentações legais sobre uso do banco de dados, sobre segurança e performance. Vale a pena dar uma conferida. Isso sem falar na possibilidade de fazer networking, tirar dúvidas e aprender mais num ambiente super legal com uma excelente estrutura de serviço a acomodação em um dos maiores e mais conceituados eventos do mundo da categoria. Nos vemos no sábado. Abraços, Bruno [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dicas bacanas de restaurantes, bares e etc...
Olá Amigos(as), Esse site é muito maneiro, tem várias promoções (mais em conta até que as que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode encontrar em outras cidades. Vale a pena conferir. O link é: http://www.peixeurbano.com.br/convite/5TPAhttp://www.peixeurbano.com.br/convite/5TEH Com tempo, façam o cadastro que você tmbém ganha descontos. Abraços Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para:
RES: Res: [delphi-br] OldValue e NewValue - de novo !
Não, não fica! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Alysson Enviada em: quarta-feira, 14 de julho de 2010 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] OldValue e NewValue - de novo ! O problema é que os valores de OldValue e NewValue so aparecem quando executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando o usuario sai do campo (OnExit) de desconto. Será que o valor antigo fica em memoria ? --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Marcelo leite_rom...@... escreveu Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@... Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o separador será ponto-e-vírgula. Não vejo problema nenhum nisso. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,”] para [;] 2) De [“,] para [;] 3) De [“,”] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[delphi-br] Adicionar opcao ao menu da DevExpress
Pessoal, Alguem sabe como adicionar opcoes (TdxBarButton) ao menu da DevExpress? Quero construir algo semelhante ao descrito abaixo: | |- Analises(já existente em DesignTime) |- Solo (adicionado em RunTime) |- Foliar (adicionado em RunTime) |- Laranja(adicionado em RunTime) |- Maça (adicionado em RunTime) |- Uva (adicionado em RunTime) |- Agua (adicionado em RunTime) |- Fertilizantes (adicionado em RunTime) Como eu insiro estas opcoes no menu? Obrigado MuriloCunha
RES: RES: [delphi-br] Importação de Arquivo
O que ocorre é o seguinte: Neste arquivo texto contém um campo histórico da seguinte forma. exemplo: “Pagamento efetuado em 25/14, visto que houve atraso.” Note que existe uma vírgula dentro do histórico. Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por ponto e vírgula, a vírgula contida dentro do campo histórico também será substituída por ponto e vírgula. (é vírgula demais!) Neste caso, pode ser interpretada como novo campo. Será que existe alguma maneira de antes de eliminar as aspas duplas e substituir as vírgulas por ponto e vírgula, efetuar uma pesquisa em tudo que se encontra dentro das aspas duplas e se for encontrada alguma vírgula a mesma ser eliminada? Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o separador será ponto-e-vírgula. Não vejo problema nenhum nisso. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,”] para [;] 2) De [“,] para [;] 3) De [“,”] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com
RE: RES: RES: [delph i-br] Importação de Arquivo
Mas se for prestar bem atenção ao formato do texto, basta remover as seguintes sequencias de caracteres por ponto-e-vírgula: 1) ','; 2) ','; 3) ',' Isso não impacta, por exemplo, no conteúdo de um campo literal(string) como o que vc ilustrou. Pensei q isto estivesse claro! Sds. To: delphi-br@yahoogrupos.com.br From: ral...@gmail.com Date: Wed, 14 Jul 2010 11:54:06 -0300 Subject: RES: RES: [delphi-br] Importação de Arquivo O que ocorre é o seguinte: Neste arquivo texto contém um campo histórico da seguinte forma. exemplo: Pagamento efetuado em 25/14, visto que houve atraso. Note que existe uma vírgula dentro do histórico. Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por ponto e vírgula, a vírgula contida dentro do campo histórico também será substituída por ponto e vírgula. (é vírgula demais!) Neste caso, pode ser interpretada como novo campo. Será que existe alguma maneira de antes de eliminar as aspas duplas e substituir as vírgulas por ponto e vírgula, efetuar uma pesquisa em tudo que se encontra dentro das aspas duplas e se for encontrada alguma vírgula a mesma ser eliminada? Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o separador será ponto-e-vírgula. Não vejo problema nenhum nisso. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,] para [;] 2) De [,] para [;] 3) De [,] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de
RES: RES: [delphi-br] Importação de Arquivo
O arquivo original http://www.grupog2gestao.com.br/NE201005.txt De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:00 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais
RES: RES: RES: [delphi-br] Importação de Arquivo
Desculpe pessoal é porque eu realmente nunca importei um arquivo de texto com esta estrutura. Seguindo a dica do Rubem, consegui esta procedure para tratar o arquivo antes da importação: procedure FileReplaceString( const FileName, searchstring, replacestring: string ); var fs: TFileStream; S: string ; begin fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); try SetLength(S, fs.Size); fs.ReadBuffer(S[1], fs.Size); finally fs.Free; end ; S := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); fs := TFileStream.Create(FileName, fmCreate); try fs.WriteBuffer(S[1], Length(S)); finally fs.Free; end ; Estou utilizando da seguinte maneira: StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); Funcionou parcialmente. O problema agora é com os campos do tipo float que não estão entre aspas duplas. Eles continuam com a vírgula na delimitação. E se eu substituir as vírgulas por ponto e vírgula, a vírgula do histórico também muda. Ai gera o problema. ;0254;Atender as necessidades das Escolas deste Municipio, conforme Termo de Contrato no 021/2010.;2295.32,787.00,1508.32, Abraço. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:57 Para: delphi-br Assunto: RE: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Mas se for prestar bem atenção ao formato do texto, basta remover as seguintes sequencias de caracteres por ponto-e-vírgula: 1) ','; 2) ','; 3) ',' Isso não impacta, por exemplo, no conteúdo de um campo literal(string) como o que vc ilustrou. Pensei q isto estivesse claro! Sds. To: delphi-br@yahoogrupos.com.br From: ral...@gmail.com Date: Wed, 14 Jul 2010 11:54:06 -0300 Subject: RES: RES: [delphi-br] Importação de Arquivo O que ocorre é o seguinte: Neste arquivo texto contém um campo histórico da seguinte forma. exemplo: Pagamento efetuado em 25/14, visto que houve atraso. Note que existe uma vírgula dentro do histórico. Retirar as aspas duplas é beleza, porém, se for substituir as vírgulas por ponto e vírgula, a vírgula contida dentro do campo histórico também será substituída por ponto e vírgula. (é vírgula demais!) Neste caso, pode ser interpretada como novo campo. Será que existe alguma maneira de antes de eliminar as aspas duplas e substituir as vírgulas por ponto e vírgula, efetuar uma pesquisa em tudo que se encontra dentro das aspas duplas e se for encontrada alguma vírgula a mesma ser eliminada? Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o separador será ponto-e-vírgula. Não vejo problema nenhum nisso. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,] para [;] 2) De [,] para [;] 3) De [,] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os
[delphi-br] Urgente: Pedendo estado de inserção após tela de confirmação
Olá amigos Estou com um sério problema na minha aplicação delphi 7 + mysql + ADO. Estava funcionando tudo perfeitinho numa rotina de registro de entrada a anos, após uma alteração solicitada pelo meu usuário, eu coloquei apenas uma mensagem de confirmação e após a confirmação o mesmo mudou o estado de dsInset para dsInactive. Estou tentando encontrar o problema e não consigo será que alguém já passou por isso ? Segue abaixo um trecho do código que parou de funcionar logo após a mensagem de confirmação. *procedure TFormEntradas.GravarEntradaContribuicao(vContaContabil : String); begin try //Iniciar a inserção de dados na tabela de contribuição if (DBLookupFormaPagto.KeyValue = Null) or (DBLookupFormaPagto.KeyValue = 0) Then begin DBLookupFormaPagto.SetFocus; Application.MessageBox('O campo Forma de Pagamento é de preenchimento OBRIGATÓRIO.','Aviso do Sistema',MB_OK + MB_ICONWARNING); Exit; end; vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.','')); if (Trim(dbevlrEntrada.Text) = '') or (vVlrEntrada = 0) Then dbevlrEntrada.SelectAll; //Até aqui o DataSet está com Inserção if (Application.MessageBox(Pchar('Confirma a CONTRIBUIÇÃO no valor de R$ '+FormatFloat('#,##0.00', vVlrEntrada)+' ?'), 'Entrada de Contribuição', MB_ICONQUESTION + MB_YESNO) = IDYES) then begin //Após a confirmação do valor o mesmo muda para dsInactive e não entra na rotina abaixo //Gostaria de entender o motivo dessa mudança.. Screen.Cursor := crSQLWait; //Aqui if (dtsEntradas.DataSet.State in [dsInsert, dsEdit]) and (dtsContaContabil.DataSet.FieldByName('cta_contabilred').Value 0) and (dtsFormaPgto.DataSet.FieldByName('cod_formapgto').Value 0) Then begin vVlrEntrada := StrToFloat(BuscaTroca(dbevlrEntrada.Text,'.','')); vDtaEntrada := FormatDateTime('/mm/dd',Now); vHraEntrada := FormatDateTime('HH:mm',Now); btnImprimir.Enabled := True; * Obrigado, Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dicas bacanas de restaurantes, bares e etc...
kakakakakakaka tcs tcs tcs Em 14 de julho de 2010 11:00, Jorge Ericsson jericsson...@gmail.comescreveu: Olá Amigos(as), Esse site é muito maneiro, tem várias promoções (mais em conta até que as que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode encontrar em outras cidades. Vale a pena conferir. O link é: http://www.peixeurbano.com.br/convite/5TPA http://www.peixeurbano.com.br/convite/5TEH Com tempo, façam o cadastro que você tmbém ganha descontos. Abraços Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas] -- Marcos A. de A. Bernardo xmarcos@gmail.com 11 - 9462-2657 / 11- 3205-1499 http://bagusconsultoria.wordpress.com/ [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: 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
Res: RES: RES: RES: [delphi-br] Importação de Arquivo
você nao viu a solução que eu mandei ontem? = segue a forma de você resolver: ( Eu coloquei um ClientDatSet no form e criei 15 Fields chamdos: campo1...2..3..4..15 como string e campo16 como Float, os tamanhos são de acordo a cada campo do txt ) procedure TForm1.Button1Click(Sender: TObject); var arq: TextFile; linha:string; begin ClientDataSet1.CreateDataSet; AssignFile(arq,'dados.txt'); Reset(arq); while not Eof(arq) do begin ClientDataSet1.Append; ReadLn(arq,linha);//Ler os dados da linha; linha := StringReplace(linha,',',';',[rfReplaceAll]); linha := StringReplace(linha,'','',[rfReplaceAll]); //Delete(linha,1,1);//apaga a 1ª aspas duplas; ClientDataSet1.Fields[0].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[1].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[2].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[3].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[4].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[5].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[6].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[7].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[8].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[9].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[10].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[11].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[12].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[13].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); ClientDataSet1.Fields[14].AsString := Copy(linha,1,Pos(';',linha)-1); Delete(linha,1,Pos(';',linha)); linha := StringReplace(linha,'.','',[rfReplaceAll]);//Transforma os '.' em ',' para separar a casa de milar; linha := StringReplace(linha,';',',',[rfReplaceAll]);//Transforma os ';' em '.' para separar a casa decimal; ClientDataSet1.Fields[15].AsFloat := StrToFloat(linha);//FormatFloat('###,###,#0.00',StrToFloat(linha)); ClientDataSet1.Post; end; end; espero ter ajudado. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Ralp Alves Bezerra ral...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 12:45:15 Assunto: RES: RES: RES: [delphi-br] Importação de Arquivo Desculpe pessoal é porque eu realmente nunca importei um arquivo de texto com esta estrutura. Seguindo a dica do Rubem, consegui esta procedure para tratar o arquivo antes da importação: procedure FileReplaceString( const FileName, searchstring, replacestring: string ); var fs: TFileStream; S: string ; begin fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); try SetLength(S, fs.Size); fs.ReadBuffer(S[1], fs.Size); finally fs.Free; end ; S := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); fs := TFileStream.Create(FileName, fmCreate); try fs.WriteBuffer(S[1], Length(S)); finally fs.Free; end ; Estou utilizando da seguinte maneira: StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); StringReplace(Entrada, ',' , ';' , [rfReplaceAll] ); Funcionou parcialmente. O problema agora é com os campos do tipo float que não estão entre aspas duplas. Eles continuam com a vírgula na delimitação. E se eu substituir as vírgulas por ponto e vírgula, a vírgula do histórico também muda. Ai gera o problema. ;0254;Atender as necessidades das Escolas deste Municipio, conforme Termo de Contrato no 021/2010.;2295.32,787.00,1508.32, Abraço. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:57 Para: delphi-br Assunto: RE: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Mas se for prestar bem atenção ao formato do texto, basta remover as seguintes sequencias de caracteres por ponto-e-vírgula: 1) ','; 2) ','; 3) ',' Isso não impacta, por exemplo, no conteúdo de um campo literal(string) como o que vc ilustrou. Pensei q isto estivesse claro! Sds. To: delphi-br@yahoogrupos.com.br From: ral...@gmail.com Date: Wed, 14 Jul 2010 11:54:06 -0300 Subject: RES: RES:
RES: RES: [delphi-br] Importação de Arquivo
Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber o significado e tipo de dados de cada um deles. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 11:07 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo O arquivo original http://www.grupog2gestao.com.br/NE201005.txt De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas:
Re: [delphi-br] Dúvida com StringGrid
É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] OldValue e NewValue - de novo !
Usa o evento OnSetText do field para fazer a validação, ai vc só escrever o valor no campo se for um valor válido. Em 14 de julho de 2010 10:42, Jean Alysson jeanp...@gmail.com escreveu: O problema é que os valores de OldValue e NewValue so aparecem quando executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando o usuario sai do campo (OnExit) de desconto. Será que o valor antigo fica em memoria ? --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Marcelo leite_rom...@... escreveu Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@... Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [As partes desta mensagem que não continham texto foram removidas] [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: 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] Importação de Arquivo
var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra ral...@gmail.comescreveu: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PEDRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. 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 Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas] [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: 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
[delphi-br] Conversão RichEdit para HTML
Salve, pessoal estou desenvolvendo um aplicativo para envio de email em massa, porem estou meio estacionado na criação da mensagem ou seja consegui criar o editor com o richedit, porem na hora de converter utilizando o jvrichedittohtml ele nao leva as imagens, como consigo resolver isto? Alguem ja passou por isto e pode me ajudar? -- Pablo Farias [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OldValue e NewValue - de novo !
Usa o evento OnSetText do field para fazer a validação. Em 14 de julho de 2010 08:20, Jean Alysson jeanp...@gmail.com escreveu: Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [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: 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: RES: [delphi-br] Importação de Arqui vo
__ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do ESET Smart Security, vers�o da vacina 5277 (20100714) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com
Res: Res: [delphi-br] OldValue e NewValue - de novo !
Voce usa TFields, pois aqui teste na saida do campo e tenho tanto o new quanto old value. De: Jean Alysson jeanp...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 10:42:17 Assunto: Re: Res: [delphi-br] OldValue e NewValue - de novo ! O problema é que os valores de OldValue e NewValue so aparecem quando executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando o usuario sai do campo (OnExit) de desconto. Será que o valor antigo fica em memoria ? --- Em delphi-br@yahoogrupos.com.br, Marcelo leite_rom...@... escreveu Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@... Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [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] Desempenho Firebird
*Boa tarde!* O Firebird é muito bom, mas como qualquer sistema gerenciador de banco de dados, precisa ser bem configurado e o banco precisa ser bem projetado, afinal ele não faz milagres. Lógico que Oracle será sempre Oracle, como DB2 será sempre DB2, mas o Firebird dá conta do recado sim! O que falta geralmente é pessoas que sabem realmente mexer nele e para isso existem bons livros e o FDD que todo ano acontece em Piracicaba e este ano será dia 17 de julho, quem puder comparecer, poderá ver com os mestres e doutores no Firebird que ele dá conta perfeitamente do recado. *Obrigado,* ** *Fabiano* Em 14 de julho de 2010 10:39, Fellipe Henrique felli...@gmail.comescreveu: Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas depende do caso... []s Em 14 de julho de 2010 10:26, Eny Urias enyur...@yahoo.com.br escreveu: Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [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: RES: [delphi-br] Importação de Arquivo
Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e Delimiter. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabricio Colombo Enviada em: quarta-feira, 14 de julho de 2010 09:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra ral...@gmail.comescreveu: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PE DRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. 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 Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MethodAddress retornando NIL
Boa tarde pessoal, alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu criar o método teste para o form2, funciona, retornando o ponteiro. No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes. procedure TForm2.teste ; begin ShowMessage('OLA'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:=pointer(form2) ; routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Grato, Eric Developer Systems
Re: [delphi-br] Versão Delphi pa ra aprendizado
Simplesmente foram descontinuados. []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: Daniel Augusto Bastos To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 08, 2010 2:16 PM Subject: Re: [delphi-br] Versão Delphi para aprendizado Meio fora da lista, e to meio perdido .. O que aconteceu com as versões turbo? Abs Daniel Augusto Bastos Em 7 de julho de 2010 20:50, Mário Guedes jmariogue...@gmail.com escreveu: Irmãos de fé - tomei minha decisão! Obrigado a todos! *José Mário Silva Guedes* e-mail: jmariogue...@gmail.com [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Versão Delphi pa ra aprendizado
Simplesmente foram descontinuados. []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: Daniel Augusto Bastos To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 08, 2010 2:16 PM Subject: Re: [delphi-br] Versão Delphi para aprendizado Meio fora da lista, e to meio perdido .. O que aconteceu com as versões turbo? Abs Daniel Augusto Bastos Em 7 de julho de 2010 20:50, Mário Guedes jmariogue...@gmail.com escreveu: Irmãos de fé - tomei minha decisão! Obrigado a todos! *José Mário Silva Guedes* e-mail: jmariogue...@gmail.com [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desempenho Firebird
Sim o Firebird é bom, mas,, esse mas é que mata... fiz um teste num mesmo servidor, mesmo aplicativo (delphi) , mesmo metodologia de acesso e gravação de dados (winserver NTFS) , mesma ferramenta de acesso. (dbexpress e depois com Zeos). E o postgresql ganhou com louvor no acesso, na velocidade de resposta. O que ajuda no caso do firebird é a distribuição que é muito simples para instalar no usuário final. Vai instalar um server postgresql, ou sqlserver ? no firebird, vc pode automatizar todo o processo. se vc quiser o servidor firebird é instalado, junto ao programa, e o usuário se quer ve, algo do firebird no processo. Agora em questão de perfomace, com certeza há SGBD melhores. No quisito SEGURANÇA o firebird sózinho não oferece nenhuma segunça, mesmo que vc mude a senha do sysdba . O que se pode fazer é esconder o acesso ao .fdb nem sei se com os outros SGBD é assim, mas enfim, isso é uma falha grande. No mais para o dia a dia o firebird é que tem de melhor custo x beneficio. Mas como já foi dito, cada caso deve ser analisado a parte. 2010/7/14 Fabiano Moura mctbra...@gmail.com *Boa tarde!* O Firebird é muito bom, mas como qualquer sistema gerenciador de banco de dados, precisa ser bem configurado e o banco precisa ser bem projetado, afinal ele não faz milagres. Lógico que Oracle será sempre Oracle, como DB2 será sempre DB2, mas o Firebird dá conta do recado sim! O que falta geralmente é pessoas que sabem realmente mexer nele e para isso existem bons livros e o FDD que todo ano acontece em Piracicaba e este ano será dia 17 de julho, quem puder comparecer, poderá ver com os mestres e doutores no Firebird que ele dá conta perfeitamente do recado. *Obrigado,* ** *Fabiano* Em 14 de julho de 2010 10:39, Fellipe Henrique felli...@gmail.comfellipeh%40gmail.com escreveu: Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas depende do caso... []s Em 14 de julho de 2010 10:26, Eny Urias enyur...@yahoo.com.brenyurias%40yahoo.com.br escreveu: Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [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] -- Leonardo Quinino [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: 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
RES: RES: [delphi-br] Importação de Arquivo (Res olvido)
Gostaria de agradecer a todos na lista que se despuseram a sanar minha dúvida. O exemplo que o Rubem Rocha enviou serviu como uma luva. Gostaria de agradecer também ao nobres colegas Daniel Azevedo, Fabricio Colombo, Jean Barreiros, Walter Chagas, Marcos Douglas e a todos que de alguma maneira me ajudaram em mais esta empreitada. Muito obrigado, Abraço a todos. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 14:01 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e Delimiter. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Fabricio Colombo Enviada em: quarta-feira, 14 de julho de 2010 09:23 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com escreveu: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PE DRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [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] MethodAddress retornando NIL
Olha o help! MethodAddress só funciona para métods published! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: quarta-feira, 14 de julho de 2010 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] MethodAddress retornando NIL Boa tarde pessoal, alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu criar o método teste para o form2, funciona, retornando o ponteiro. No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes. procedure TForm2.teste ; begin ShowMessage('OLA'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:=pointer(form2) ; routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Grato, Eric Developer Systems [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desempenho Firebird
*Boa tarde!* Leonardo, o problema da maioria dos desenvolvedores que usam o Firebird na minha opinião e de vários especialistas experts no Firebird (que é o caso dos russos que fazem parte da IBSourgeon, Cantú, entre outros, que sempre estão no FDD) dizem, que os usuários tem o costume de instalar e deixar a configuração de fábrica (não que isto esteja errado, mas alguns problemas de performance poderia ser resolvido mudando algumas configurações), muitos nem mesmo sabem a diferença entre o Super Server e o Classic Server e no que poderia melhorar numa escolha ou configuração do banco de dados. Sem dúvida que cada caso deve ser analisado a parte, mas na grande maioria das vezes e para a grande maioria das aplicações, o Firebird dá conta do recado e tranquilo, como é o meu caso, que tenho clientes de missão crítica, aonde tem mais ou menos 120 transações sendo feitos simultaneamente, sem falar das rotinas internas do banco (triggers, stored procedures) que uso muito e de alguns relatórios pesados, que apesar de ser apenas leitura indexada do banco, mas os relatórios pesados (pesado no sentido de realizar o processamento de dados e alguns cálculos complexos e que na aplicação demoraria e muito para ser feito), são feitos diretamente no banco, trazendo somente o resultado para a aplicação. Já vi também, casos que os desenvolvedores criam as tabelas, campos e não criam índices, deixando assim uma consulta mais lenta e é logico que cada caso é um caso e deve ser analisado muito bem, mas muitos utilizam os bancos de dados somente como repositório de dados, não usando nada a mais do banco que poderia deixar mais rápido. *Obrigado,* *Fabiano* Em 14 de julho de 2010 15:22, Leonardo Quinino leonardo.quin...@gmail.comescreveu: Sim o Firebird é bom, mas,, esse mas é que mata... fiz um teste num mesmo servidor, mesmo aplicativo (delphi) , mesmo metodologia de acesso e gravação de dados (winserver NTFS) , mesma ferramenta de acesso. (dbexpress e depois com Zeos). E o postgresql ganhou com louvor no acesso, na velocidade de resposta. O que ajuda no caso do firebird é a distribuição que é muito simples para instalar no usuário final. Vai instalar um server postgresql, ou sqlserver ? no firebird, vc pode automatizar todo o processo. se vc quiser o servidor firebird é instalado, junto ao programa, e o usuário se quer ve, algo do firebird no processo. Agora em questão de perfomace, com certeza há SGBD melhores. No quisito SEGURANÇA o firebird sózinho não oferece nenhuma segunça, mesmo que vc mude a senha do sysdba . O que se pode fazer é esconder o acesso ao .fdb nem sei se com os outros SGBD é assim, mas enfim, isso é uma falha grande. No mais para o dia a dia o firebird é que tem de melhor custo x beneficio. Mas como já foi dito, cada caso deve ser analisado a parte. 2010/7/14 Fabiano Moura mctbra...@gmail.com *Boa tarde!* O Firebird é muito bom, mas como qualquer sistema gerenciador de banco de dados, precisa ser bem configurado e o banco precisa ser bem projetado, afinal ele não faz milagres. Lógico que Oracle será sempre Oracle, como DB2 será sempre DB2, mas o Firebird dá conta do recado sim! O que falta geralmente é pessoas que sabem realmente mexer nele e para isso existem bons livros e o FDD que todo ano acontece em Piracicaba e este ano será dia 17 de julho, quem puder comparecer, poderá ver com os mestres e doutores no Firebird que ele dá conta perfeitamente do recado. *Obrigado,* ** *Fabiano* Em 14 de julho de 2010 10:39, Fellipe Henrique felli...@gmail.com fellipeh%40gmail.com escreveu: Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas depende do caso... []s Em 14 de julho de 2010 10:26, Eny Urias enyur...@yahoo.com.br enyurias%40yahoo.com.br escreveu: Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] -- _
Re: RES: [delphi-br] MethodAddress retornando NIL
eu tinha olhado, mas postei aqui para saber se há alguma forma de fazer. Alguém conhece ? --- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu Olha o help! MethodAddress só funciona para métods published! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: quarta-feira, 14 de julho de 2010 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] MethodAddress retornando NIL Boa tarde pessoal, alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu criar o método teste para o form2, funciona, retornando o ponteiro. No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes. procedure TForm2.teste ; begin ShowMessage('OLA'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:=pointer(form2) ; routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Grato, Eric Developer Systems [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] MethodAddress retornando NIL
Eu fiz assim: http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html *José Mário Silva Guedes* e-mail: jmariogue...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] MethodAddress retornando NIL
Olá José, o seu exemplo e do about.com, em resumo é o mesmo que postei, funcionando somente para os próprios métodos (published), e eu quero testar (ponteiro)/chamar métodos do edit, combobox, form, etc, ou seja, irei informar o objeto do componente e a string com o nome do método. Sabe alguma forma ? Grato, Eric --- Em delphi-br@yahoogrupos.com.br, Mário Guedes jmariogue...@... escreveu Eu fiz assim: http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html *José Mário Silva Guedes* e-mail: jmariogue...@... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Parametros sem DataType
Olá galera, Tenho um SQLQuery criado dinamicamente com uma instrução SQL e nela alguns parametros (*:*CAMPO), o que acontece é que não estão vindo os tipos desses parâmentros automáticamente como deveria vir... alguém sabe o que fazer para corrigir isso? Algum comando especial? 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) [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Adicionar colunas em TcxGrid - correcao
Pessoal, Como eu faço para adicionar colunas em meu TcxGrid EM RUNTIME (grid da DevExpress)?? Obrigado MuriloCunha
[delphi-br] Adicionar colunas em TcxGrid
Pessoal, Como eu faço para adicionar colunas em meu TcxGrid (grid da DevExpress)?? Obrigado MuriloCunha
[delphi-br] OpenDialog padronizado
É possível que o OpenDialog, ao ser aberto pelo usuário, exiba os arquivos (cf o Filter programado) em ordem decrescente de Data ? (isto é, exiba os arquivos mais recentes) Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desempenho Firebird
Com certeza, cada caso é um caso, além de outras questões que tem versões de banco de dados (ae, não só o firebird, mas outros titulos tbm), que funcionam melhor com o server linux, ou server windows, etc,etc. Ae onde entra o ajuste fino que você citou. 2010/7/14 Fabiano Moura mctbra...@gmail.com *Boa tarde!* Leonardo, o problema da maioria dos desenvolvedores que usam o Firebird na minha opinião e de vários especialistas experts no Firebird (que é o caso dos russos que fazem parte da IBSourgeon, Cantú, entre outros, que sempre estão no FDD) dizem, que os usuários tem o costume de instalar e deixar a configuração de fábrica (não que isto esteja errado, mas alguns problemas de performance poderia ser resolvido mudando algumas configurações), muitos nem mesmo sabem a diferença entre o Super Server e o Classic Server e no que poderia melhorar numa escolha ou configuração do banco de dados. Sem dúvida que cada caso deve ser analisado a parte, mas na grande maioria das vezes e para a grande maioria das aplicações, o Firebird dá conta do recado e tranquilo, como é o meu caso, que tenho clientes de missão crítica, aonde tem mais ou menos 120 transações sendo feitos simultaneamente, sem falar das rotinas internas do banco (triggers, stored procedures) que uso muito e de alguns relatórios pesados, que apesar de ser apenas leitura indexada do banco, mas os relatórios pesados (pesado no sentido de realizar o processamento de dados e alguns cálculos complexos e que na aplicação demoraria e muito para ser feito), são feitos diretamente no banco, trazendo somente o resultado para a aplicação. Já vi também, casos que os desenvolvedores criam as tabelas, campos e não criam índices, deixando assim uma consulta mais lenta e é logico que cada caso é um caso e deve ser analisado muito bem, mas muitos utilizam os bancos de dados somente como repositório de dados, não usando nada a mais do banco que poderia deixar mais rápido. *Obrigado,* *Fabiano* Em 14 de julho de 2010 15:22, Leonardo Quinino leonardo.quin...@gmail.com leonardo.quinino%40gmail.comescreveu: Sim o Firebird é bom, mas,, esse mas é que mata... fiz um teste num mesmo servidor, mesmo aplicativo (delphi) , mesmo metodologia de acesso e gravação de dados (winserver NTFS) , mesma ferramenta de acesso. (dbexpress e depois com Zeos). E o postgresql ganhou com louvor no acesso, na velocidade de resposta. O que ajuda no caso do firebird é a distribuição que é muito simples para instalar no usuário final. Vai instalar um server postgresql, ou sqlserver ? no firebird, vc pode automatizar todo o processo. se vc quiser o servidor firebird é instalado, junto ao programa, e o usuário se quer ve, algo do firebird no processo. Agora em questão de perfomace, com certeza há SGBD melhores. No quisito SEGURANÇA o firebird sózinho não oferece nenhuma segunça, mesmo que vc mude a senha do sysdba . O que se pode fazer é esconder o acesso ao .fdb nem sei se com os outros SGBD é assim, mas enfim, isso é uma falha grande. No mais para o dia a dia o firebird é que tem de melhor custo x beneficio. Mas como já foi dito, cada caso deve ser analisado a parte. 2010/7/14 Fabiano Moura mctbra...@gmail.com mctbrasil%40gmail.com *Boa tarde!* O Firebird é muito bom, mas como qualquer sistema gerenciador de banco de dados, precisa ser bem configurado e o banco precisa ser bem projetado, afinal ele não faz milagres. Lógico que Oracle será sempre Oracle, como DB2 será sempre DB2, mas o Firebird dá conta do recado sim! O que falta geralmente é pessoas que sabem realmente mexer nele e para isso existem bons livros e o FDD que todo ano acontece em Piracicaba e este ano será dia 17 de julho, quem puder comparecer, poderá ver com os mestres e doutores no Firebird que ele dá conta perfeitamente do recado. *Obrigado,* ** *Fabiano* Em 14 de julho de 2010 10:39, Fellipe Henrique felli...@gmail.comfellipeh%40gmail.com fellipeh%40gmail.com escreveu: Amigo, tenho usado Firebird em todos meus sistemas, e digo que ele sim é muito bom... agora.. usar ele para sistemas de missão crítica!? Aí eu já acho que não compensa... podem dizer o que for, o Firebird é bom? Sim! Mas depende do caso... []s Em 14 de julho de 2010 10:26, Eny Urias enyur...@yahoo.com.brenyurias%40yahoo.com.br enyurias%40yahoo.com.br escreveu: Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu
Re: [delphi-br] Dúvida com StringGrid
crie um método conforme abaixo, e associe ao stringgrid dinamicamente procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState); begin with TStringGrid(Sender) do begin if (ACol FixedCols-1) and (ARow FixedRows-1) then begin if Odd(ARow) then Canvas.Brush.Color := clYellow else Canvas.Brush.Color := clWhite; Canvas.FillRect(Rect); end; end; end; var vStringGrid: TStringGrid; begin vStringGrid := TStringGrid.Create(Self); vStringGrid.Parent := Self; vStringGrid.OnDrawCell := StringGridDrawCell; Em 14 de julho de 2010 10:06, Domingos domingosp...@gmail.com escreveu: É verdade, havia me esquecido de Parent da classe TComponent, né? Funcionou tudo bem, agora aproveitar a deixa, vocês sabem uma maneira eficiente de zebrar os Grids criados em tempo de execução? Em 13 de julho de 2010 22:21, Fabricio Colombo fabricio.colombo@gmail.com fabricio.colombo.mva%40gmail.com escreveu: Vc tem que definir o Parent do TStringGrid criado. Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.comdomingospawn%40gmail.com escreveu: Olá, bom dia a todos Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um form, eu consigo criar um Array de StringGrids e setando o tamanho executar o Create da classe TStringGrid, porém eles não são exibidos no form, alguém pode me ajudar? Eu utilizo Delphi 6 Obrigado -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.comdomingospawn% 40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com Skype: domingospawn Imagination is more important than knowledge. - Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [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: 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] Importação de Arquivo
Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, pode usar o TStringList que vai funcionar. Faça o teste abaixo com uma linha do arquivo. var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Em 14 de julho de 2010 13:15, Rubem Rocha rubem.ro...@dtmanaus.com.brescreveu: Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber o significado e tipo de dados de cada um deles. Sds. 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 Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 11:07 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo O arquivo original http://www.grupog2gestao.com.br/NE201005.txt De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:00 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. 100,10.200,25,098 Existem campos em branco 100,,10.200,25,098 Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br mailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br mailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br mailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Enviadas: Terça-feira, 13 de
Re: RES: [delphi-br] MethodAddress retornando NIL
O que vc está pretendendo fazer Eric? Em 14 de julho de 2010 16:02, Mário Guedes jmariogue...@gmail.comescreveu: Eu fiz assim: http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html *José Mário Silva Guedes* e-mail: jmariogue...@gmail.com jmarioguedes%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [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: 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] MethodAddress retornando NIL
A RTTI permite acesso somente aos elementos (propriedades e métodos) declarados na seção published de um objeto. Escopos de visibilidade abaixo disso (public, protected ou private) não tem como! Sds. To: delphi-br@yahoogrupos.com.br From: developer.syst...@yahoo.com Date: Wed, 14 Jul 2010 19:21:27 + Subject: Re: RES: [delphi-br] MethodAddress retornando NIL Olá José, o seu exemplo e do about.com, em resumo é o mesmo que postei, funcionando somente para os próprios métodos (published), e eu quero testar (ponteiro)/chamar métodos do edit, combobox, form, etc, ou seja, irei informar o objeto do componente e a string com o nome do método. Sabe alguma forma ? Grato, Eric _ QUER ANEXAR VÁRIAS FOTOS NUM EMAIL? PREPARE-SE PARA O NOVO HOTMAIL. CLIQUE AQUI. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:QUERANEXAR80:- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MethodAddress retornando NIL
MethodAddress só funciona para métodos da seção published, normalmente eventos. Ou vc pode utilizar métodos soltos, e obter o ponteiro utilizando o @. Não conheço outra forma além dessas duas. procedure Teste; begin ShowMessage('teste'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:= pointer(form2) ; routine.Code:= @teste ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Em 14 de julho de 2010 14:04, eric_developer developer.syst...@yahoo.comescreveu: Boa tarde pessoal, alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu criar o método teste para o form2, funciona, retornando o ponteiro. No lugar de form2, usarei componentes edit, combobox, etc e metodos existentes. procedure TForm2.teste ; begin ShowMessage('OLA'); end; procedure TForm2.Button1Click(Sender: TObject); var routine : TMethod ; Begin routine.data:=pointer(form2) ; routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo if routine.Code nil then begin ShowMessage('OK'); end; end; Grato, Eric Developer Systems [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: 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] MethodAddress retornando NIL
Olá Rubem, Como eu deixo os métodos do edit, combobox, etc como published ? --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha djpardalro...@... escreveu A RTTI permite acesso somente aos elementos (propriedades e métodos) declarados na seção published de um objeto. Escopos de visibilidade abaixo disso (public, protected ou private) não tem como! Sds.
Re: RES: [delphi-br] MethodAddress retornando NIL
executar métodos, irei passar para minha função, o objeto e a string com o nome do método, exemplo: myCallMethod( edit1, 'SETFOCUS' ) ; --- Em delphi-br@yahoogrupos.com.br, Fabricio Colombo fabricio.colombo@... escreveu O que vc está pretendendo fazer Eric? Em 14 de julho de 2010 16:02, Mário Guedes jmariogue...@...escreveu: Eu fiz assim: http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nome.html *José Mário Silva Guedes* e-mail: jmariogue...@... jmarioguedes%40gmail.com [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] Desempenho Firebird
Desconfio desse tipo de chute. Já vi gente dizendo Firebird em sistemas de missão critica (acho que um deles é o Bruno Lichot). Não posso dizer muito pois não tenho nenhum sistema de missão critica, mas posso dizer que no quesito VOLUME DE DADOS o FB aguenta o tranco. Um camarada aqui tem um sistema que já acumulou 40 GB de dados dos mais diversos na base e roda que é uma belezinha .Tem foto, áudio, vídeo e até planilhas e arquivos PDFs gravados no BD juntos com os campos de dados. Todo BD que trabalha em missão crítica (eu até diria que até mesmo o hardware) precisa de um tuning ou de refinamentos para melhorar a performance. A diferença é que no FB esse tipo de ajuste tem que ser feito pelo DBA no braço. Ou seja, não há wizards que fazem todo o trabalho pesado. Vc tem que conhecer os conceitos para saber exatamente o que está fazendo. Outros fatores são o processador em uso e a versão do BD que está usando (SuperClassic, ClassicServer, SuperServer) que pode oferecer mais refinamentos. Só por desencargo de consciência, indica pro teu amigo ler isso aqui (http://www.sinatica.com/blog/br/index.php/artigos/firebird-superserver-classicserver-ou-superclassic) e acompanhar a Lista Firebase BR. Um BD que tenho vontade (só vontade, pois tempo eu não tenho mesmo...) de testar é o PostGree é gratuito e aguenta o tranco como os majors, pelo menos é o que dizem. Uma última dúvida: que BD entrou no lugar do FB? Tanto o Oracle XE quando o SQL Server Express tem limitações quanto ao tamanho máximo que o arquivo do BD pode assumir (acho que 4Gb em ambos) e no Oracle ainda há a limitação de núcleos de processador (só usa 1 núcleo). 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 qua, 14/7/10, Eny Urias enyur...@yahoo.com.br escreveu: De: Eny Urias enyur...@yahoo.com.br Assunto: [delphi-br] Desempenho Firebird Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 14 de Julho de 2010, 10:26 Acabei de falar com um amigo que trabalha numa empresa de rastreamento de veículos onde as informações chegam a cada milésimos de segundo e ele me disse exatamente assim: Tirei o firebird de todos os sistemas esta semana ficou 10 80 % mais rápido foi a maior c...@#$ colocar aquele firebird a coisa cresceu e ele não dava conta ... posso dizer uma coisa os plantões estão muito mais sussegados... Eu sempre tive essa dúvida... Porque o Firebird ainda é tão divulgado e utilizado entre os delphianos? Qual a vantagem em relação as versões Express do SQL e do Oracle? Existem outros bancos free bons também, não? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [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] Dicas bacanas de restaurantes, bares e etc...
Pessoal desconsidere esse e-mail, foi enviado de forma automática para todos da minha lista sem minha autorização. Desculpem.. 2010/7/14 Marcos Bernardo xmarcos@gmail.com kakakakakakaka tcs tcs tcs Em 14 de julho de 2010 11:00, Jorge Ericsson jericsson...@gmail.com escreveu: Olá Amigos(as), Esse site é muito maneiro, tem várias promoções (mais em conta até que as que aconteciam do Visa) aqui em Brasília. E se vc viaja pelo país, tb pode encontrar em outras cidades. Vale a pena conferir. O link é: http://www.peixeurbano.com.br/convite/5TPA http://www.peixeurbano.com.br/convite/5TEH Com tempo, façam o cadastro que você tmbém ganha descontos. Abraços Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas] -- Marcos A. de A. Bernardo xmarcos@gmail.com 11 - 9462-2657 / 11- 3205-1499 http://bagusconsultoria.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Adicionar colunas em TcxGrid
Em 14-07-2010 17:04, Murilo Cunha escreveu: Pessoal, Como eu faço para adicionar colunas em meu TcxGrid (grid da DevExpress)?? Obrigado MuriloCunha Faz 1 mês que não vejo a cara do DevExpress(infelizmente) por isso não consigo te passar de cabeça, minha memória sempre me deixa na mão... Mas na documentação tem muita coisa e utilize a base de conhecimento deles em www.devexpress.com A base conhecimento deles é nota 10!!
Re: [delphi-br] MethodAddress retornando NIL
Em 14-07-2010 20:44, eric_developer escreveu: Olá Rubem, Como eu deixo os métodos do edit, combobox, etc como published ? Não sei se daria certo. Apenas um parpite. Faça herança dos componentes da VCL e através de um método published utilize ponteiros para acessar as funções diretamente. O problema é que vc teria que implementar para todos os componentes... Não sei se a performance ficaria legal neste estilo que vc quer fazer. MyCall( edit1, 'Funcao1' );