RES: [delphi-br] Re: Separar tirulo de eritora + i mportação
Sim, sempre antes terá um traço sim. Entendi De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Encontrar Handle de componente em outra aplicação.
Olá. Eu preciso enviar um comando para um ListBox que está em outra aplicação. Eu sei que posso enviar o camando com SendMessage ou PostMessage. Mas para isso eu preciso saber qual o Handle do ListBox. Do programa eu acho com FindWindow. Mas de um componente de outro programa como eu posso achar? Valeu. -- Leodinei Bielak http://leodinei.blogspot.com/ The whole point of getting things done is knowing what to leave undone.
[delphi-br] Fomatação de número de conta - Bancos
Olá pessoal, Alguém teria, ou sabe onde posso encontrar a formatação de números de contas de cada banco? Por exemplo, alguns bancos não usam dígito verificador no número da agência, em outros, o tipo da conta é diferente, etc. Abraços, Ruberval. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Separar tirulo de eritora + importação
Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em delphi-br@yahoogrupos.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Simular clique no formulário
depois do form1.show; faça: form1.activate; - Original Message - From: Fabio Gomes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 7:55 PM Subject: Re: [delphi-br] Simular clique no formulário Não deu, cara. Tentei o form1.click no oncreate, no onshow do formulário e não simula o clique. Acontece que estou com problemas de dar o foco no form de login.. No oncreate do form principal eu estou criando o form de login, e ele não fica com o foco no login, ficando com o foco no form principal. Tem alguma outra alternativa? Alcistemas Informática [EMAIL PROTECTED] escreveu: Kra, no delphi 7 pelo menos é assim: form1.Click; - Original Message - From: Fabio Gomes To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 3:45 PM Subject: [delphi-br] Simular clique no formulário Caros amigos, Preciso simular um clique do mouse no formulário de login. Como faço isso no Delphi 2007? Alguém tem algo para me passar de exemplo? Preciso muito. Aguardo uma ajuda Fábio Gomes. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [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] Re: Separar tirulo de eritora + i mportação
Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por - Editora e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Separar tirulo de eritora + im portação
Tente assim: function Acha_Editora( Linha : String ) : String ; var Pos : Integer ; begin Linha := Trim(Linha) ; Pos := length(Linha) ; while (Pos 0) and (copy(Linha,Pos,1) '-') do Pos := Pos - 1; Result := trim(Copy(Linha,Pos+1,length(Linha)-Pos)) ; end; Com esta função, vc começa do final da string a procurar um traço. - Original Message - From: Jaques To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 14, 2008 9:34 AM Subject: RES: [delphi-br] Re: Separar tirulo de eritora + importação Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por '- Editora' e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Separar tirulo de eritora + i mportação
Isso mesmo, em todos tem EDITORA Como faço essa verificação com posição? Cria um for ? assim copia para uma variável e vai comparando? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jaques Enviada em: quinta-feira, 14 de fevereiro de 2008 09:34 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por - Editora e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Separar tirulo de eritora + i mportação
BLZ, certinho, fiz para a editora e depois realizei o mesmo procedimento para o titulo só que de 0 ate pos 1, primeiro tiro a editora e depois o que sobrar é o titulo. Certinho Agradeço a todos pela ajuda. Obrigado De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de André Moraes - GMail Enviada em: quinta-feira, 14 de fevereiro de 2008 10:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Separar tirulo de eritora + importação Tente assim: function Acha_Editora( Linha : String ) : String ; var Pos : Integer ; begin Linha := Trim(Linha) ; Pos := length(Linha) ; while (Pos 0) and (copy(Linha,Pos,1) '-') do Pos := Pos - 1; Result := trim(Copy(Linha,Pos+1,length(Linha)-Pos)) ; end; Com esta função, vc começa do final da string a procurar um traço. - Original Message - From: Jaques To: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br Sent: Thursday, February 14, 2008 9:34 AM Subject: RES: [delphi-br] Re: Separar tirulo de eritora + importação Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por '- Editora' e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [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] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MDI - Mudança na propriedade WindowState
Estou desenvolvendo minha primeira aplicação MDI e me deparei com um problema, ao chamar um form WindowState = wsNormal todos os outros forms que estão maximizados são restaurados, ou seja, o form que está com o foco no momento influência todos os outros que estão abertos causando uma poluição visual na aplicação... alguém já passou por isso??? Rodrigo Favre Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form Diferente
Olá Ghuilherme, tudo bem?! Cara, uma solução que uso há tempos e nunca me trouxe problemas foi criar uma imagem bitmap com a parte externa do contorno que você quer (no caso um caminhão) em uma cor sólida, como magenta ou verde claro. Depois, dentro das propriedades desse form, no Delphi, sete a cor de transparência para a mesma cor que você utilizou ao criar a imagem. Remova as bordas do form (setar como none) e voilá! Seu form com um desenho de caminhão está pronto!!! Nota: tem que ser imagem BMP pois o JPG usa compressão e a cor sólida (por exemplo, fúcsia) acaba virando um monte de meios tons da cor original... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6233 [EMAIL PROTECTED] - Original Message - From: Guilherme Alves To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 4:41 PM Subject: [delphi-br] Form Diferente Oi galera, Eu estou fazendo um sistema e gostaria de fazer um form de login diferente.. por exemplo... eu já vi form ser arrendondado e quadrado. Gostaria de fazer um form parecido com um carro ou caminhão, algo que lembre transportadora.. algo do tipo.. Existe isso? Eu sei que vai ficar bem estranho... mas gostaria de saber se isso existe Obrigado, Guilherme - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [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] MDI - Mudança na propriedade Wind owState
Até onde eu sei isso é padrão em uma aplicação MDI. Veja outros programas que utilizam MDI e você vai notar isso. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Enviada em: quinta-feira, 14 de fevereiro de 2008 11:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] MDI - Mudança na propriedade WindowState Estou desenvolvendo minha primeira aplicação MDI e me deparei com um problema, ao chamar um form WindowState = wsNormal todos os outros forms que estão maximizados são restaurados, ou seja, o form que está com o foco no momento influência todos os outros que estão abertos causando uma poluição visual na aplicação... alguém já passou por isso??? Rodrigo Favre Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sistema para administrar parque infantil em shopping
Olá companheiros, alguém conhece um sistema (free ou pago) ou empresa que vende um sistema de administração de parque infantil que geralmente são encontrados em shopping? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Separar tirulo de eritora + i mportação
Tenta a sugestão do André.. Ele percorre a string de trás para frente.. Só não vai funcar se vc tiver algo como Editora abril Editouro OU assim DsTitulo := COPY(Linha,0,POS( - Editora)) DsEditora := COPY(linha, POS( - Editora)-1, Length (Linha)) http://www.simple.inf.br Jaques Dix Desenvolvedor Telefone (47) 2111-4800 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 09:22 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Isso mesmo, em todos tem EDITORA Como faço essa verificação com posição? Cria um for ? assim copia para uma variável e vai comparando? De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Jaques Enviada em: quinta-feira, 14 de fevereiro de 2008 09:34 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por - Editora e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 [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] Re: Separar tirulo de eritora + i mportação
Blz Jaques, já usei o do André e deu certinho! Agradeço a ajuda! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jaques Enviada em: quinta-feira, 14 de fevereiro de 2008 11:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Tenta a sugestão do André.. Ele percorre a string de trás para frente.. Só não vai funcar se vc tiver algo como Editora abril Editouro OU assim DsTitulo := COPY(Linha,0,POS( - Editora)) DsEditora := COPY(linha, POS( - Editora)-1, Length (Linha)) HYPERLINK http://www.simple.inf.brhttp://www.simple.inf.br Jaques Dix Desenvolvedor Telefone (47) 2111-4800 -Mensagem original- De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 09:22 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.brdelphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Isso mesmo, em todos tem EDITORA Como faço essa verificação com posição? Cria um for ? assim copia para uma variável e vai comparando? De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Jaques Enviada em: quinta-feira, 14 de fevereiro de 2008 09:34 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Hummm o problema se encontra no exemplo que você passou antes: PALAVRAS DE CHICO XAVIER - (ESPIRITO EMMANUEL) - EDITORA IDE Em todas as linhas a palavra Editora existe? Daí você pode procurar por - Editora e usar as funções de posição e copy... Jaques Dix Desenvolvedor -Mensagem original- De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Rodrigo Alex Marchiori Enviada em: quinta-feira, 14 de fevereiro de 2008 07:05 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: RES: [delphi-br] Re: Separar tirulo de eritora + importação Sim, sempre antes terá um traço sim. Entendi De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de marcosksb Enviada em: quinta-feira, 14 de fevereiro de 2008 00:12 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Re: Separar tirulo de eritora + importação Mais assim antes da editora sempre vai ter um traço ? por que ai vc poderia fazer assim correr o arquivo lendoa s linha e procurando o traço quando achar cria uma linha nova salvando em outro arquivo --- Em HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Rodrigo Alex Marchiori [EMAIL PROTECTED] escreveu Olá pessoal, estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil registros de livros e os campos titulo e editora estão juntos exemplo: O LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA. Gostaria de saber se tem como criar uma função ou procedure para retornar os dois separados? O LIVRO DOS ESPIRITOS EDITORA IDE/BOA NOVA Agradeço desde já; Att Rodrigo Skype rodrigo_marchiori No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008 15:20 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1277 - Release Date: 13/2/2008 20:00 No virus found in this outgoing message. Checked by AVG Free
[delphi-br] Propagar message entre form e frame contido no form
O subject ficou uma droga, por isso vou tentar explicar melhor aqui. Tenho um form principal, com um PageControl e alguns TabSheets. Em cada TabSheet, há um frame com os módulos do aplicativo. Em alguns frames (que não tem o evento onkeypress/down/up) existem componentes como TMenuItem ou TEdits que respondem a eventos de teclado. Até aí tudo bem. Mas quando, no form principal, o foco está fora do componente do frame, não há resposta aos atalhos de teclado. Então, pensei em colocar um evento onkeypress ou onkeydown no form principal e passar uma mensagem para o frame que está no tabsheet ativo, com a tecla pressionada. Achei alguma coisa com sendmessage e perform, mas não deu muito certo (erro de estouro de pilha) no fonte abaixo. procedure TfPrincipal2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F6 then begin if not Assigned(fPrincipal) then Application.CreateForm(TfPrincipal, fPrincipal); fPrincipal.ShowModal; end else if Pages.ActivePage=tsJogos then FDj.Perform(WM_KEYDOWN,Key,0); FDj é o frame contido no tabsheet tsJogos Alguma idéia do que fazer? Grato pela ajuda. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Pegar destino de um atalho
Boa Tarde PessoALL, Gostaria de saber como faço para pegar a informação de destino na propriedade de um atalho. Por exemplo: Uma calculadora que campo destino está desta forma: Destino: c:\calculadora\calc.exe Eu gostaria de pegar este caminho: c:\calculadora\calc.exe. Obrigado pela atenção. Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Declaraçao de forms
Atraves do menu faço a chamada do form form.show, só q esta dando erro de execução. Alguem pode me ajudar - como declaro um form e porque do erro. Atenciosamente Simone Cristina
[delphi-br] Leitura de arquivo texto
Quando efetuo uma leitura de um arquivo texto para gravar o banco de
dados esta dando a mensagem OUT OF MEMORY, eu uso a rotina abaixo:
AssignFile(Nomearquivo, OpenDialog1.FileName);
Screen.Cursor := crSQLWait;
ProgressBar1.Min := 0;
ProgressBar1.Max := Tilinha;
Reset(Nomearquivo);
dm.qrytemp.DisableControls;
while not Eoln(Nomearquivo) do
begin
Form1.Caption := Copy(Entrada,1,126);
inc(ilinha);
Readln(Nomearquivo,Entrada);
if Copy(Entrada,1,2) '90' then
Begin
dm.qrytemp.Insert;
dm.qrytemp.FieldByname('MAQUINA').Value := 0;
dm.qrytemp.FieldByName('linha').AsString := Copy
(Entrada,1,126);
if Copy(Entrada,1,2) = '50' then
Begin
dm.qrytemp.FieldByname
('CNPJ').Asstring := Copy(Entrada,3,14);
dm.qrytemp.FieldByname
('NOTA').Asstring := Copy(Entrada,46,6);
End;
if Copy(Entrada,1,2) = '53' then
Begin
dm.qrytemp.FieldByname
('CNPJ').Asstring := Copy(Entrada,3,14);
dm.qrytemp.FieldByname
('NOTA').Asstring := Copy(Entrada,46,6);
End;
if Copy(Entrada,1,2) = '54' then
Begin
dm.qrytemp.FieldByname
('CNPJ').Asstring:= Copy(Entrada,3,14);
dm.qrytemp.FieldByname
('NOTA').Asstring:= Copy(Entrada,22,6);
dm.qrytemp.FieldByname
('produto').Asstring := Copy(Entrada,38,14);
dm.qrytemp.FieldByName
('ITEM').AsString:= Copy(Entrada,35,3);
End;
if Copy(Entrada,1,2) = '75' then
dm.qrytemp.FieldByName
('Produto').AsString := Copy(Entrada,19,14);
dm.qrytemp.Post;
End;
// ProgressBar1.Position := iLinha;
End;
dm.qrytemp.EnableControls;
Precsisode um ajuda para otimizar o codigo acima para que ele fique
mais leve.
Uso D7 + IBX + FIREBIRD 1.5
sds
Auriston
Res: [delphi-br] Leitura de arquivo texto
O que vc pode fazer é a cada 50 registros por exemplo gravar o arquivo
fisicamente no banco e continuar exportando.
Sempre que gravar os arquivos fisicamente feche e abra a tabela de novo, mas
sem registros ...
- Mensagem original
De: auriston.delphi [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 14 de Fevereiro de 2008 15:51:32
Assunto: [delphi-br] Leitura de arquivo texto
Quando efetuo uma leitura de um arquivo texto para gravar o banco
de
dados esta dando a mensagem OUT OF MEMORY, eu uso a rotina abaixo:
AssignFile(Nomearqu ivo, OpenDialog1. FileName) ;
Screen.Cursor := crSQLWait;
ProgressBar1. Min := 0;
ProgressBar1. Max := Tilinha;
Reset(Nomearquivo) ;
dm.qrytemp.DisableC ontrols;
while not Eoln(Nomearquivo) do
begin
Form1.Caption := Copy(Entrada, 1,126);
inc(ilinha);
Readln(Nomearquivo, Entrada);
if Copy(Entrada, 1,2) '90' then
Begin
dm.qrytemp.Insert;
dm.qrytemp.FieldByn ame('MAQUINA' ).Value := 0;
dm.qrytemp.FieldByN ame('linha' ).AsString := Copy
(Entrada,1,126) ;
if Copy(Entrada, 1,2) = '50' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring := Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring := Copy(Entrada, 46,6);
End;
if Copy(Entrada, 1,2) = '53' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring := Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring := Copy(Entrada, 46,6);
End;
if Copy(Entrada, 1,2) = '54' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring:= Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring:= Copy(Entrada, 22,6);
dm.qrytemp.FieldByn ame
('produto'). Asstring := Copy(Entrada, 38,14);
dm.qrytemp.FieldByN ame
('ITEM').AsString:= Copy(Entrada, 35,3);
End;
if Copy(Entrada, 1,2) = '75' then
dm.qrytemp.FieldByN ame
('Produto'). AsString := Copy(Entrada, 19,14);
dm.qrytemp.Post;
End;
// ProgressBar1. Position := iLinha;
End;
dm.qrytemp.EnableCo ntrols;
Precsisode um ajuda para otimizar o codigo acima para que ele fique
mais leve.
Uso D7 + IBX + FIREBIRD 1.5
sds
Auriston
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px
RES: [delphi-br] Declaraçao de forms
Vá em Tools - Environment Options - Aba Designer Veja se a opção Auto create forms data modules está marcada. Essa opção cria automaticamente os forms e módulos de data na unit do dpr (a unit pode ser acessada com ctrl+f12 e o nome do projeto). Se você não quer todas as telas sendo criadas quando o projeto for executado, então desmarque essa opção. Vá em Project - Options - Aba Forms Veja quais são os formulários e módulos de data que estão sendo criados no momento da execução do projeto em Auto-Create Forms. Tire os Formulários que não sejam necessários, agora crie-os assim: Application.CreateForm( TForm1, Form1 ); Form1.Show(); ou Form1.ShowModal(); Enfim, acho que é isso. -- Vitor Luiz Redes -- Bureau Redsystem Software [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de simone_cristina01 Enviada em: quinta-feira, 14 de fevereiro de 2008 15:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Declaraçao de forms Atraves do menu faço a chamada do form form.show, só q esta dando erro de execução. Alguem pode me ajudar - como declaro um form e porque do erro. Atenciosamente Simone Cristina [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Caindo a Conexão...
Vc usa o SDAC ? Quanto vc pagou na Licença ? Doretto. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 11:21 AM Subject: Re: [delphi-br] Caindo a Conexão... Doretto, a solução do seu problema chama-se SDAC, é um pacote de componentes de acesso a dados para o MSSQL. veja em www.crlab.com/sdac recentemente a coreLab criou a tecnologia DisconnectedModel e LocalFailOver, ideal para conexões remotas, com ela vc consegue trabalhar de forma muita rápida em conexões remotas, caso ocorra a perda de conexão do componente reconecta de forma transparente. caso queira baixar o trial e fazer uns testes conte comigo para coisa. Em 13/02/08, Doretto [EMAIL PROTECTED] escreveu: Bom dia !!! Estou com o seguinte problema.. Trabalho com Delphi5 e Mssql2000 e estou com problema de queda de conexão quando o cliente esta usando um terminal remoto em outra cidade. Ex: Computador1: Servidor de dados (Bauru) Computador2: Terminal remoto (Jau) Computador3: Terminal remoto (Ribeirão Preto) Se o cliente usa o sistema em bauru (Computador1) conectado direto no banco o sistema funciona redondo, sem quedas de conexão. Mas se usa remotamente (Computador2 ou Computador3) o sistema gera erro de falha de conexão em certos momentos, as vezes fica duas ou três horas sem cair a conexão depois começa a cair e assim por diante, isto gera erro de dados e problemas sérios para a integridade dos mesmos. O clientes esta está desanimado e eu também.. não sei mais o que fazer para resolver este problema.. Tentei sem muito sucesso fazer um sistema em delphi7 c/ dbExpress, também cai a conexão c/ menos freqüência. Ps: Para a conexão no terminal eu uso o BDE do Delphi5. O clientes não quer saber se a internet oscila, pois a mesma segundo ele não cai, ele quer que eu resolva a situação Os amigos tem alguma idéia do que fazer ? Doretto. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2871 (20080213) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Propagar message entre form e frame contido no form
A rotina abaixo passa por todos os eventos onkeydown dos componentes inseridos em qualquer TFrame que esteja no Formulário. Claro que, teoricamente, pq eu não testei, hehehehe. procedure TfPrincipal2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var VKey : Word; VShift : TShiftState; Contador, Contador2 : Integer; begin VKey := Key; VShift := Shift; For Contador := 0 to ComponentCount 1 do begin If Components[ Contador ] is TFrame then begin For Contador2 := 0 to TFrame( Components[ Contador ] ).ComponentCount -1 do Begin If Assigned( TFrame( Components[ Contador ] ).Components[ Contador2 ].OnKeyDown ) then TFrame( Components[ Contador ] ).Components[ Contador2 ].OnKeyDown( SELF, VKey, VShift ) End End end end -- Vitor Luiz Redes -- Bureau Redsystem Software [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guionardo Furlan Enviada em: quinta-feira, 14 de fevereiro de 2008 14:21 Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Assunto: [delphi-br] Propagar message entre form e frame contido no form O subject ficou uma droga, por isso vou tentar explicar melhor aqui. Tenho um form principal, com um PageControl e alguns TabSheets. Em cada TabSheet, há um frame com os módulos do aplicativo. Em alguns frames (que não tem o evento onkeypress/down/up) existem componentes como TMenuItem ou TEdits que respondem a eventos de teclado. Até aí tudo bem. Mas quando, no form principal, o foco está fora do componente do frame, não há resposta aos atalhos de teclado. Então, pensei em colocar um evento onkeypress ou onkeydown no form principal e passar uma mensagem para o frame que está no tabsheet ativo, com a tecla pressionada. Achei alguma coisa com sendmessage e perform, mas não deu muito certo (erro de estouro de pilha) no fonte abaixo. procedure TfPrincipal2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F6 then begin if not Assigned(fPrincipal) then Application.CreateForm(TfPrincipal, fPrincipal); fPrincipal.ShowModal; end else if Pages.ActivePage=tsJogos then FDj.Perform(WM_KEYDOWN,Key,0); FDj é o frame contido no tabsheet tsJogos Alguma idéia do que fazer? Grato pela ajuda. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo. http://guionardo.blogspot.com blogspot.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagem com Rave
Amigos, ao imprimir um arquivo .bmp de 10.000 kb em toda a extensão de uma
pagina, o processamento disso é muito demorado.
Eu monta a pagina na mão usando o objeto RvSystem e leio a imagem de um
arquivo, como:
image1 := TImage.Create(Self);
Image1.picture.LoadFromFile('Fotos.bmp');
PrintBitmapRect(1,5,215,285,image1.Picture.Bitmap);
Existe alguma configuração no objeto RvSystem ou outra forma para que ao montar
minhas paginas de relatorios, possa conseguir mais desempenho.
Obrigado.
Celio.
-
Célio Bernardo de Lima
Diretor de Projetos e Novas Tecnologias
siatech.com.br
-
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form Diferente
Boa tarde, Eduardo Legal. consegui fazer funcionar. Eu consegui fazer com uma imagem simples... mas com um logotipo eu nao consegui... o bm estraga mesmo a imagem, ne? Mas valeu , obrigado Edu Nicácio [EMAIL PROTECTED] escreveu: Olá Ghuilherme, tudo bem?! Cara, uma solução que uso há tempos e nunca me trouxe problemas foi criar uma imagem bitmap com a parte externa do contorno que você quer (no caso um caminhão) em uma cor sólida, como magenta ou verde claro. Depois, dentro das propriedades desse form, no Delphi, sete a cor de transparência para a mesma cor que você utilizou ao criar a imagem. Remova as bordas do form (setar como none) e voilá! Seu form com um desenho de caminhão está pronto!!! Nota: tem que ser imagem BMP pois o JPG usa compressão e a cor sólida (por exemplo, fúcsia) acaba virando um monte de meios tons da cor original... Abraço. -- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno CTIS Tecnologia S/A Tel.: (11) 3150-6233 [EMAIL PROTECTED] - Original Message - From: Guilherme Alves To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 4:41 PM Subject: [delphi-br] Form Diferente Oi galera, Eu estou fazendo um sistema e gostaria de fazer um form de login diferente.. por exemplo... eu já vi form ser arrendondado e quadrado. Gostaria de fazer um form parecido com um carro ou caminhão, algo que lembre transportadora.. algo do tipo.. Existe isso? Eu sei que vai ficar bem estranho... mas gostaria de saber se isso existe Obrigado, Guilherme - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] Leitura de arquivo texto
Duas coisas:
1) Carrega o texto todo em um TStringList e navega nele, ao invés de navegar
fazendo esse lance de abrir/percorrer/fechar. Daí, percorre só o TStringList.
Fica mais rápido.
2) Não faz esse lance de post! Vai comer mais memória mesmo, pq as atualizações
vão ficar todas na estação. O ideal mesmo é abrir uma transação, emitir
explicitamente os INSERTs/DELETEs/UPDATEs no banco e depois, comitar ou
cancelar a transação caso esta dê problema.
Com isso tudo, vai ficar uma bala!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 14 Feb 2008 11:27:06 -0800
Subject: Res: [delphi-br] Leitura de arquivo texto
O que vc pode fazer é a cada 50 registros por exemplo gravar o arquivo
fisicamente no banco e continuar exportando.
Sempre que gravar os arquivos fisicamente feche e abra a tabela de novo, mas
sem registros ...
- Mensagem original
De: auriston.delphi [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 14 de Fevereiro de 2008 15:51:32
Assunto: [delphi-br] Leitura de arquivo texto
Quando efetuo uma leitura de um arquivo texto para gravar o banco de
dados esta dando a mensagem OUT OF MEMORY, eu uso a rotina abaixo:
AssignFile(Nomearqu ivo, OpenDialog1. FileName) ;
Screen.Cursor := crSQLWait;
ProgressBar1. Min := 0;
ProgressBar1. Max := Tilinha;
Reset(Nomearquivo) ;
dm.qrytemp.DisableC ontrols;
while not Eoln(Nomearquivo) do
begin
Form1.Caption := Copy(Entrada, 1,126);
inc(ilinha);
Readln(Nomearquivo, Entrada);
if Copy(Entrada, 1,2) '90' then
Begin
dm.qrytemp.Insert;
dm.qrytemp.FieldByn ame('MAQUINA' ).Value := 0;
dm.qrytemp.FieldByN ame('linha' ).AsString := Copy
(Entrada,1,126) ;
if Copy(Entrada, 1,2) = '50' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring := Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring := Copy(Entrada, 46,6);
End;
if Copy(Entrada, 1,2) = '53' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring := Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring := Copy(Entrada, 46,6);
End;
if Copy(Entrada, 1,2) = '54' then
Begin
dm.qrytemp.FieldByn ame
('CNPJ').Asstring := Copy(Entrada, 3,14);
dm.qrytemp.FieldByn ame
('NOTA').Asstring := Copy(Entrada, 22,6);
dm.qrytemp.FieldByn ame
('produto'). Asstring := Copy(Entrada, 38,14);
dm.qrytemp.FieldByN ame
('ITEM').AsString := Copy(Entrada, 35,3);
End;
if Copy(Entrada, 1,2) = '75' then
dm.qrytemp.FieldByN ame
('Produto'). AsString := Copy(Entrada, 19,14);
dm.qrytemp.Post;
End;
// ProgressBar1. Position := iLinha;
End;
dm.qrytemp.EnableCo ntrols;
Precsisode um ajuda para otimizar o codigo acima para que ele fique
mais leve.
Uso D7 + IBX + FIREBIRD 1.5
sds
Auriston
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
[delphi-br] QuickReport Paradox
Olá Tenho uma tabela com vários campos representando um documento de porte aéreo. Este tipo de documento é recebido por nós e digitado. No caso do documento estar errado, recebemos uma carta corretiva indicando os campos incorretos e corrigindo o valor. Pergunta: preciso fazer uns relatórios onde mostram os campos do porte aéreo que estão corretos e os campos da correção quando existe erro, neste caso omitimos o valor que está no porte aéreo. Como faço para montar esses relatórios usando SQL e passando para o quickreport? PORTEAEREO.DB ID_PORTE ORIGEM DESTINO VALOR1 VALOR2 ... CORRECAO.DB ID_CORRECAO ID_PORTE VALOR1_CORRETO VALOR2_CORRETO ... A modelagem pode ser refeita se for preciso. Agradeço a ajuda pessoal.
Re: [delphi-br] Caindo a Conexão...
Eu uso o MyDAC, tenho um colega que usa o SDAC, os recursos são parecidos, pelo menos os mais importantes. quando comprei o MyDAC 3.55 paguei $69 recebi o upgrade gratuito pra versão 4 e depois paguei $49 para fazer o upgrade para a versão 5. da uma olhada no site da CoreLab, baixa o trial, faz uns testes, se resolver seu problema vc compra.. te garanto que vc vai gostar, ele é compatível com todas as versão do MS-SQL e o Suporte é muito bom, por e-mail e pelo Forum. http://crlab.com/sdac/ http://crlab.com/sdac/ordering.html http://crlab.com/forums/viewforum.php?f=6 baixa o trial ae e qq dúvida sobre a tecnologia disconnectedModel e LocalFailOver tamo ae. Em 14/02/08, Doretto [EMAIL PROTECTED] escreveu: Vc usa o SDAC ? Quanto vc pagou na Licença ? Doretto. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 13, 2008 11:21 AM Subject: Re: [delphi-br] Caindo a Conexão... Doretto, a solução do seu problema chama-se SDAC, é um pacote de componentes de acesso a dados para o MSSQL. veja em www.crlab.com/sdac recentemente a coreLab criou a tecnologia DisconnectedModel e LocalFailOver, ideal para conexões remotas, com ela vc consegue trabalhar de forma muita rápida em conexões remotas, caso ocorra a perda de conexão do componente reconecta de forma transparente. caso queira baixar o trial e fazer uns testes conte comigo para coisa. Em 13/02/08, Doretto [EMAIL PROTECTED]doretto%40qualitysystem.com.br escreveu: Bom dia !!! Estou com o seguinte problema.. Trabalho com Delphi5 e Mssql2000 e estou com problema de queda de conexão quando o cliente esta usando um terminal remoto em outra cidade. Ex: Computador1: Servidor de dados (Bauru) Computador2: Terminal remoto (Jau) Computador3: Terminal remoto (Ribeirão Preto) Se o cliente usa o sistema em bauru (Computador1) conectado direto no banco o sistema funciona redondo, sem quedas de conexão. Mas se usa remotamente (Computador2 ou Computador3) o sistema gera erro de falha de conexão em certos momentos, as vezes fica duas ou três horas sem cair a conexão depois começa a cair e assim por diante, isto gera erro de dados e problemas sérios para a integridade dos mesmos. O clientes esta está desanimado e eu também.. não sei mais o que fazer para resolver este problema.. Tentei sem muito sucesso fazer um sistema em delphi7 c/ dbExpress, também cai a conexão c/ menos freqüência. Ps: Para a conexão no terminal eu uso o BDE do Delphi5. O clientes não quer saber se a internet oscila, pois a mesma segundo ele não cai, ele quer que eu resolva a situação Os amigos tem alguma idéia do que fazer ? Doretto. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2871 (20080213) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Simular clique no formulário
Olha.. realmente não sei o que acontece que nao consigo dar o foco no login vai sabe! Alcistemas Informática [EMAIL PROTECTED] escreveu: depois do form1.show; faça: form1.activate; - Original Message - From: Fabio Gomes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 7:55 PM Subject: Re: [delphi-br] Simular clique no formulário Não deu, cara. Tentei o form1.click no oncreate, no onshow do formulário e não simula o clique. Acontece que estou com problemas de dar o foco no form de login.. No oncreate do form principal eu estou criando o form de login, e ele não fica com o foco no login, ficando com o foco no form principal. Tem alguma outra alternativa? Alcistemas Informática [EMAIL PROTECTED] escreveu: Kra, no delphi 7 pelo menos é assim: form1.Click; - Original Message - From: Fabio Gomes To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Wednesday, February 13, 2008 3:45 PM Subject: [delphi-br] Simular clique no formulário Caros amigos, Preciso simular um clique do mouse no formulário de login. Como faço isso no Delphi 2007? Alguém tem algo para me passar de exemplo? Preciso muito. Aguardo uma ajuda Fábio Gomes. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Declaraçao de forms
Você precisa detalhar mais o problema. Qual erro dá? Qual o código da chamada? O Form já está criado quando você tenta dar o Show? Você não precisa declarar o Form, apenas inclui um novo form na aplicação. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] Refresh no clientdataset
O método Refresh do ClientDataset traz todos os registros novamente, ou apenas os registros que foram atualizados? Eu estava pensando: Se o Refresh traz novamente todos os registros ele não tem serventia nenhuma, pois se eu fechar e abrir o ClientDataset, fará o mesmo efeito. Qual a opinião do pessoal? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] CRYSTAL REPORT
Pessoal como faço pra dar uma quebra de linha num CrossTab? Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas]
