Re: [delphi-br] Admin de Hoteis e pousadas

2009-10-26 Por tôpico Dirlei
Giovanny,

Sugiro que você projete o seu software focando os usuários e não as 
funcionalidades. Para isso, não há nada melhor do que levantar essas 
informações diretamente com uma pousada ou hotel. Você provavelmente 
conseguirá um parceiro para te fornecer essas informações se puder 
oferecer alguma vantagem a ele, nem que seja divulgando o 
estabelecimento dele.

Um abraço e bom trabalho!

Dirlei.

giovannycarvalho escreveu:
  

 Olá Pessoal,

 Eu estou precisando modelar um sistema de pousada e pequenos hotéis. 
 É um
 trabalho do semestre da minha faculdade a distância. Então eu preciso 
 saber
 quais as necessidades básicas de um estabelecimento desses.

 Por exemplo:

 Quais as informações do hóspede são necessárias;

 Quais as informações do quarto;

 Informações sobre tarifas, etc...

 Alguém aí pode me ajudar?

 Obrigado,

 



[delphi-br] devExpress

2009-10-26 Por tôpico Felipe Lopes
Ola, bom dia galera

 

Alguém já conseguiu instalar o DevExpress no Delphi 2010?

 

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] PAF-ECF

2009-10-26 Por tôpico Ricardo Lima
1.Convênio 57/95 é o Sintegra
2.Cotepe/ICMS 09/08 é Sped Contabil.

At.
Ricardo Lima

Marcelo - CH Sistemas escreveu:
  

 Olá pessoal, peguei a última versão do roteiro do PAF-ECF, e surgiu esses
 dois requisitos acima citados.

 Tabela de Índices Técnicos de Produção
 Venda do Período (Convênio 57/95 e Cotepe/ICMS 09/08)

 Porém no roteiro está mal explicado o que o sistema deve fazer nesses 2
 requisitos. Se alguém já passou por eles e puder me dar uma ajudar?

 Att.

 Marcelo

 [As partes desta mensagem que não continham texto foram removidas]

 

-- 
Estou utilizando a versão gratuita de SPAMfighter para usuários privados.
Foi removido 7946 emails de spam até hoje.
Os usuários pagantes não têm esta mensagem nos seus emails.
 Adquira SPAMfighter grátis aqui: http://www.spamfighter.com/lpt



Res: [delphi-br] PAF-ECF

2009-10-26 Por tôpico Berdam
aproveitando...
o componente acbr possui algo para geração do Sped Contábil ??

 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0







De: Ricardo Lima rlma...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 1:58:58 PM
Assunto: Re: [delphi-br] PAF-ECF

  
1.Convênio 57/95 é o Sintegra
2.Cotepe/ICMS 09/08 é Sped Contabil.

At.
Ricardo Lima

Marcelo - CH Sistemas escreveu:
 

 Olá pessoal, peguei a última versão do roteiro do PAF-ECF, e surgiu esses
 dois requisitos acima citados.

 Tabela de Índices Técnicos de Produção
 Venda do Período (Convênio 57/95 e Cotepe/ICMS 09/08)

 Porém no roteiro está mal explicado o que o sistema deve fazer nesses 2
 requisitos. Se alguém já passou por eles e puder me dar uma ajudar?

 Att.

 Marcelo

 [As partes desta mensagem que não continham texto foram removidas]

 

-- 
Estou utilizando a versão gratuita de SPAMfighter para usuários privados.
Foi removido 7946 emails de spam até hoje.
Os usuários pagantes não têm esta mensagem nos seus emails.
Adquira SPAMfighter grátis aqui: http://www.spamfigh ter.com/lpt


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Moacir - GMail
Pessoal,

Alguem ja implementou alguma coisa para NFE usando a ACBR ??

Em especial para uso aqui no RS ??

Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja 
esta usando

Sucesso !!

Moacir

D7 + Zeos + Firebird 2.0/MySQL



ajama_1 escreveu:
 Muito Obrigado Marcelo, deu certo, parabéns, solução simples e criativa.

 - Original Message - 
 From: Marcelo Luiz Onhate marc...@systempro.com.br
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, October 22, 2009 8:06 AM
 Subject: Re: [delphi-br] Evento do grid OnCellclick (herança)


   
 Basicamente
 Você precisa armarzenar oque já existe no OnCellClick em uma variável do
 tipo TDBGridClickEvent e depois quando for executar o seu cell click
 teste se existe algo nesta variável, se existe executa ela...

 var AntigoCellClick: TDBGridClickEvent;

 procedure Inicializa;
 begin
 AntigoCellClick:=grid.OnCellClick;
 grid.OnCellClick:=MeuCellClick;
 end;

 procedure MeuCellClick(Column: TColumn);
 begin
 if Assigned(AntigoCellClick) then begin
 AntigoCellClick(Column);
 end;
 //faz o resto do rolo...
 end;


 ajama_1 escreveu:
 
 Pessoal, será que alguém sabe me informar como eu faço para atribuir
 um evento a um evento já existente sem alterar o evendo que já existe ?

 procedure TLib_SkinFrm.CClick_Ex(Column: TColumn);
 begin
 Lib_CellClick_ExC(Column);
 end;

 procedure TMainForm.StGridCellClick(Column: TColumn);
 begin
 ShowMessage('teste');
 end;


 Mais eu queria manter o evento que já exite em StGridCellClick,
 quando efaço assim:

 StGrid.OnCellClick := CClick_Ex;

 ele apaga o evento anterior.

 Desde já agradeço


   
 -- 

 */System – Soluções em Sistemas de Informação
 /*/Marcelo Luiz Onhate
 Departamento de Desenvolvimento/
 marc...@systempro.com.br mailto:marc...@systempro.com.br
 www.systempro.com.br
 http://www.systempro.com.br/(54) 3321-5888



 

 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 



 

   


[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: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Marcos Douglas

 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!

Caro Moacir,
Procure no histórico de mensagens da lista que vc verá que já existem
várias pessoas utilizando estes componentes. Eu mesmo utilizo e
recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
sendo utilizado em MG.

Abraços
Marcos Douglas


Re: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico jalosii gmail
Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou 
usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o 
componente da flexdocs, mas não descarto a possibilidade de fazer envio 
direto pros httpservices(estou com mais tempo pra terminar o projeto), 
mas estou envolvido com o paf-ecf-tef tbm.

Alosi
DigitalSystem Sistemas
Bento Gonçalves-RS

Marcos Douglas escreveu:
 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!
 

 Caro Moacir,
 Procure no histórico de mensagens da lista que vc verá que já existem
 várias pessoas utilizando estes componentes. Eu mesmo utilizo e
 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
 sendo utilizado em MG.

 Abraços
 Marcos Douglas


 

   



Re: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Moacir - GMail
Marcos,

Grato pela pronta resposta.

Na verdade o que busco é a opinião de quem ja esta usando, assim como 
vc, NFER com o ACBR.

Com o uso surgem novos dados e é isto que estou buscando.

Quaisquer comentários a respeito do uso da ACBR/NFE são bem vindos, pela 
lista ou em pvt.

Sucesso a todos !

Moacir


Marcos Douglas escreveu:
 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!
 

 Caro Moacir,
 Procure no histórico de mensagens da lista que vc verá que já existem
 várias pessoas utilizando estes componentes. Eu mesmo utilizo e
 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
 sendo utilizado em MG.

 Abraços
 Marcos Douglas


 

   


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Re: Encontrei um vazamento de memória, e agora?

2009-10-26 Por tôpico josehenriqu...@ymail.com
Isso mesmo use o Eureka vc não vai se arrepender!



--- Em delphi-br@yahoogrupos.com.br, Evaldo evaldoave...@... escreveu

 Estou com um projeto grande na mão feito no delphi7, onde está dando erro 
 quando o sistema é fechado.
 
 Usei o FastMM4 para achar vazamentos, porem ele não indica o ponto exato onde 
 ocorreu o problema.
 
 Alguém pode dar alguma dica de como eu poderia localizar o ponto do vazamento?
 
 
 
 Saída do FastMM:
 
 
 FastMM has detected an error during a FreeMem operation. The block header has 
 been corrupted. 
 
 The current thread ID is 0xDB0, and the stack trace (return addresses) 
 leading to this error is:
 
 Current memory dump of 256 bytes starting at pointer address 2700B1C:
 00 00 00 00 08 00 00 00 35 51 46 34 41 4E 35 46 00 00 00 00 16 00 00 00 00 00 
 00 00 B0 0D 00 00
 FF FF FF 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
 00 00 00 00 00 00
 .  .  .  .  .  .  .  .  5  Q  F  4  A  N  5  F  .  .  .  .  .  .  .  .  .  .  
 .  .  °  .  .  .
 ÿ  ÿ  ÿ.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
 .  .  .  .  .  .
 
 
 
   
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: [delphi-br] Admin de Hoteis e pousadas

2009-10-26 Por tôpico Nazareno Neto
Rapaz, minha familia tem uma pequena pousada, no que eu poder ajudar, estou
a disposição para falar alguma coisa.

Quando for a tarde eu vo pegar uma ficha de cadastro da pousada e passo os
dados para vc, mas se estiver pensando em algo maior:

http://superdownloads.uol.com.br/download/85/sistema-controle-motel-hotel/
http://superdownloads.uol.com.br/download/56/sishotel-sistema-gerenciamento-hoteis-moteis/
http://superdownloads.uol.com.br/download/128/hotel-manager-gestao-hotel-pensao-pousada/
http://superdownloads.uol.com.br/download/189/mr-hotel/

Eu nun to falando pra copiar e sim para se tomar base no inicio do
desenvolvimento.


2009/10/24 giovannycarvalho giovannycarva...@yahoo.com.br



 Olá Pessoal,

 Eu estou precisando modelar um sistema de pousada e pequenos hotéis. É um
 trabalho do semestre da minha faculdade a distância. Então eu preciso saber
 quais as necessidades básicas de um estabelecimento desses.

 Por exemplo:

 Quais as informações do hóspede são necessárias;

 Quais as informações do quarto;

 Informações sobre tarifas, etc...

 Alguém aí pode me ajudar?

 Obrigado,

  




-- 
Nazareno Neto
Programador Delphi e Firebird

http://www.delphisistemas.com.br
nazarenon...@hotmail.com
nazareno.nobr...@gmail.com


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Ponto de entrada não encontrado

2009-10-26 Por tôpico Junior
Ao abrir o Delphi7 começou hj cedo a apresentar o seguinte erro:

“delphi.exe – Ponto de entrada não encontrado.

Não foi possível localizar o ponto de entrada do procedimento @JV na
biblioteca de vínculo dinâmico JV”.

 

O erro refere-se a biblioteca Jedi, imagino.

Desinstalei o pacote Jedi pelo Delphi (Install Packages), reiniciei o pc e
instalei todo o pacote novamente.

 

Porém o erro persiste.

 

Alguém tem idéia de como resolver isso ?

Até ontem estava tudo beleza. Nada foi instalado/desinstalado no micro. 

Por que será que começou esse erro hoje cedo ?

 

Obrigado

 

Márcio A. Jr.

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Claiton Bortolin
Boa tarde a todos.
Estou concluindo um programa para integração de 2 sistemas, o processo demora 
alguns segundos, então eu preciso de alguma maneira que demonstra as etapas que 
estão sendo executadas naquele momento, pois os usuários podem achar que o 
sistema travou e finalizar o processo(Crt+Alt+Del), usei um form que os 
processos eram carregados em uma label, mas não aparece a label quando executa, 
fica como o sistema ficasse travado, porém processando, imagina o que u usuário 
pensa ao ver o computador mais lento e o form em branco.
Poderiam me ajudar?
Desde já agradeço.


Claiton Bortolin
Coordenador em TI
 
 
  clai...@impactocontabil.com.br 
  Santa Maria - (55) 3222.3323
 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Conexao Delphi Mysql 5 + Linux

2009-10-26 Por tôpico Magnun Oliveira
Obrigado a todos, já entrei em contato com os caras e o acesso externo foi
liberado, fiz alguns testes e ok.

Porem, em algumas vezes ele perde a conexao ... alguem já trabalho em algo
parecido ? e tem alguma experiencia ?

penso que antes de cada ação terei que testar a conexao certo ?


[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Rodrigo Bevilacqua Marcondes
Uso aqui no PR/SC sem problemas desde abril-2009...

 Rodrigo ®¿®





De: Moacir - GMail prism...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 2:39:56 PM
Assunto: [delphi-br] NFe usando ACBR

Pessoal,

Alguem ja implementou alguma coisa para NFE usando a ACBR ??

Em especial para uso aqui no RS ??

Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja 
esta usando

Sucesso !!

Moacir

D7 + Zeos + Firebird 2.0/MySQL



ajama_1 escreveu:
 Muito Obrigado Marcelo, deu certo, parabéns, solução simples e criativa.

 - Original Message - 
 From: Marcelo Luiz Onhate marc...@systempro.com.br
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, October 22, 2009 8:06 AM
 Subject: Re: [delphi-br] Evento do grid OnCellclick (herança)


  
 Basicamente
 Você precisa armarzenar oque já existe no OnCellClick em uma variável do
 tipo TDBGridClickEvent e depois quando for executar o seu cell click
 teste se existe algo nesta variável, se existe executa ela...

 var AntigoCellClick: TDBGridClickEvent;

 procedure Inicializa;
 begin
 AntigoCellClick:=grid.OnCellClick;
 grid.OnCellClick:=MeuCellClick;
 end;

 procedure MeuCellClick(Column: TColumn);
 begin
 if Assigned(AntigoCellClick) then begin
 AntigoCellClick(Column);
 end;
 //faz o resto do rolo...
 end;


 ajama_1 escreveu:

 Pessoal, será que alguém sabe me informar como eu faço para atribuir
 um evento a um evento já existente sem alterar o evendo que já existe ?

 procedure TLib_SkinFrm.CClick_Ex(Column: TColumn);
 begin
 Lib_CellClick_ExC(Column);
 end;

 procedure TMainForm.StGridCellClick(Column: TColumn);
 begin
 ShowMessage('teste');
 end;


 Mais eu queria manter o evento que já exite em StGridCellClick,
 quando efaço assim:

 StGrid.OnCellClick := CClick_Ex;

 ele apaga o evento anterior.

 Desde já agradeço


  
 -- 

 */System – Soluções em Sistemas de Informação
 /*/Marcelo Luiz Onhate
 Departamento de Desenvolvimento/
 marc...@systempro.com.br mailto:marc...@systempro.com.br
 www.systempro.com.br
 http://www.systempro.com.br/(54) 3321-5888



 

 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







 

  


[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Berdam
resolvemos esse problema usando um form com um componente chamado 
trxgifanimator.

Carregamos um gif nele e mostramos essa tela enquanto determinada operação é 
executada, porém se o usuário troca de tarefa o sistema parece travado.

 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0







De: Claiton Bortolin clai...@impactocontabil.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 2:49:47 PM
Assunto: [delphi-br] Detalhe do processo em tempo real

  
Boa tarde a todos.
Estou concluindo um programa para integração de 2 sistemas, o processo demora 
alguns segundos, então eu preciso de alguma maneira que demonstra as etapas que 
estão sendo executadas naquele momento, pois os usuários podem achar que o 
sistema travou e finalizar o processo(Crt+ Alt+Del), usei um form que os 
processos eram carregados em uma label, mas não aparece a label quando executa, 
fica como o sistema ficasse travado, porém processando, imagina o que u usuário 
pensa ao ver o computador mais lento e o form em branco.
Poderiam me ajudar?
Desde já agradeço.

 - - - - - -
Claiton Bortolin
Coordenador em TI


clai...@impactocont abil.com. br 
Santa Maria - (55) 3222.3323



[As partes desta mensagem que não continham texto foram removidas]


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Rubem Rocha
Uma pequena retificação.

OCX - Controle visual para aplicações que suportem controles ActiveX.
DLL - No caso de arquitetura COM, trata-se de componente para uso em 
ferramentas de desenvolvimento que suportem COM.

Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em uma 
DLL, e não um controle ActiveX para ser denominado como um OCX!

Sds.


De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de 
jalosii gmail [jalo...@gmail.com]
Enviado: segunda-feira, 26 de outubro de 2009 5:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] NFe usando ACBR



Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou
usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o
componente da flexdocs, mas não descarto a possibilidade de fazer envio
direto pros httpservices(estou com mais tempo pra terminar o projeto),
mas estou envolvido com o paf-ecf-tef tbm.

Alosi
DigitalSystem Sistemas
Bento Gonçalves-RS

Marcos Douglas escreveu:
 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!


 Caro Moacir,
 Procure no histórico de mensagens da lista que vc verá que já existem
 várias pessoas utilizando estes componentes. Eu mesmo utilizo e
 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
 sendo utilizado em MG.

 Abraços
 Marcos Douglas

.




[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Rubem Rocha
Simplesmente não libera! Essa área fica alocada de forma fixa dentro do 
programa. Não se libera da memória. Vc deve fazer uso de matrizes esparsas, que 
usam alocação dinâmica de memória (ou seja, ponteiros!). Vc deve encontrar 
material sobre matrizes esparsas em apostilas ou outro tipo de material 
acadêmico na Internet, falando sobre este assunto. Mas fique esperto! Vc pode 
achar material sobre esse assunto usando linguagem C ou C++ para implementar 
matrizes esparsas.

Boa sorte.
Sds.


De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de 
Rodrigo Bevilacqua Marcondes [rodrig...@yahoo.com.br]
Enviado: segunda-feira, 26 de outubro de 2009 5:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Matriz em Delphi



Prezados colegas,

Tenho uma dúvida,

Tenho uma Matriz em Delphi que criei assim :

var
ITENS_ : array[1..MAX] of array[1..3] of String; //L C

Me gera uma matriz assim :
[ ][ ][ ]
[ ][ ][ ]
[ ][ ][ ]
até MAX

para acessar eu faço assim :

ITENS_[Linha][Coluna] = OI

a minha dúvida é isso fica na memória?
Se sim como faço para destruir da memória?

já tentei :

ITENS_.Free;
FreeAndNil(ITENS_)
for i to max
ITENS_[Linha][Coluna].Free

mas todos retorna Acess Violation.

Então eu não libero isso da memória , e uso centena de vezes.

E de vez em quando aparece um acess violation, dentro da rotina onde tem este 
vetor. Mas não sei se é ele.

Qualquer ajuda é bem vinda !!!

Obrigado desde já

Rodrigo ®¿®

.




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico felipe govoni
nao uso mas saiu um artigo na clube delphi com varias informações.




2009/10/26 Rubem Rocha rubem.ro...@dtmanaus.com.br



 Uma pequena retificação.

 OCX - Controle visual para aplicações que suportem controles ActiveX.
 DLL - No caso de arquitetura COM, trata-se de componente para uso em
 ferramentas de desenvolvimento que suportem COM.

 Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em
 uma DLL, e não um controle ActiveX para ser denominado como um OCX!

 Sds.

 
 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] em Nome de
 jalosii gmail [jalo...@gmail.com jalosii%40gmail.com]
 Enviado: segunda-feira, 26 de outubro de 2009 5:34
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] NFe usando ACBR


 Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou
 usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o
 componente da flexdocs, mas não descarto a possibilidade de fazer envio
 direto pros httpservices(estou com mais tempo pra terminar o projeto),
 mas estou envolvido com o paf-ecf-tef tbm.

 Alosi
 DigitalSystem Sistemas
 Bento Gonçalves-RS

 Marcos Douglas escreveu:
  Pessoal,
 
  Alguem ja implementou alguma coisa para NFE usando a ACBR ??
 
  Em especial para uso aqui no RS ??
 
  Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
  esta usando
 
  Sucesso !!
 
 
  Caro Moacir,
  Procure no histórico de mensagens da lista que vc verá que já existem
  várias pessoas utilizando estes componentes. Eu mesmo utilizo e
  recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
  sendo utilizado em MG.
 
  Abraços
  Marcos Douglas

 .

 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: RES: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico jalosii gmail
Tudo bem, não procurei direito a informação, sei que devo usar o sistema 
sempre no drive local da máquina, com a dll registrada e as pastas de 
schemas e url junto ao exe, senão só causa AVs.

t+

Rubem Rocha escreveu:
 Uma pequena retificação.

 OCX - Controle visual para aplicações que suportem controles ActiveX.
 DLL - No caso de arquitetura COM, trata-se de componente para uso em 
 ferramentas de desenvolvimento que suportem COM.

 Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em uma 
 DLL, e não um controle ActiveX para ser denominado como um OCX!

 Sds.

 
 De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de 
 jalosii gmail [jalo...@gmail.com]
 Enviado: segunda-feira, 26 de outubro de 2009 5:34
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] NFe usando ACBR



 Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou
 usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o
 componente da flexdocs, mas não descarto a possibilidade de fazer envio
 direto pros httpservices(estou com mais tempo pra terminar o projeto),
 mas estou envolvido com o paf-ecf-tef tbm.

 Alosi
 DigitalSystem Sistemas
 Bento Gonçalves-RS

 Marcos Douglas escreveu:
   
 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!

   
 Caro Moacir,
 Procure no histórico de mensagens da lista que vc verá que já existem
 várias pessoas utilizando estes componentes. Eu mesmo utilizo e
 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
 sendo utilizado em MG.

 Abraços
 Marcos Douglas
 

 .




 [As partes desta mensagem que não continham texto foram removidas]



 

   



Res: RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Rodrigo Bevilacqua Marcondes
Olá Rubem,

Eu sei criar um vetor dinâmico assim : 

e alocar dinâmico 
usando 
SETLENGTH(vetor, 20);

mas para matriz não consegui fazer dinâmico.

-

vou dar uma olhada se consigo criar assim : 
var
  mat: variant;

begin

mat := VarArrayCreate([0,0], varOleStr);

VarArrayHighBound(mat ,1) ;// Returns high bound for a dimension in a variant 
array.

vou ver o que consigo ... acho que só a aceita números .. 

obrigado

 Rodrigo ®¿®





De: Rubem Rocha rubem.ro...@dtmanaus.com.br
Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 3:43:44 PM
Assunto: RES: [delphi-br] Matriz em Delphi

  
Simplesmente não libera! Essa área fica alocada de forma fixa dentro do 
programa. Não se libera da memória. Vc deve fazer uso de matrizes esparsas, que 
usam alocação dinâmica de memória (ou seja, ponteiros!). Vc deve encontrar 
material sobre matrizes esparsas em apostilas ou outro tipo de material 
acadêmico na Internet, falando sobre este assunto. Mas fique esperto! Vc pode 
achar material sobre esse assunto usando linguagem C ou C++ para implementar 
matrizes esparsas.

Boa sorte.
Sds.

 _ _ __
De: delphi...@yahoogrup os.com.br [delphi...@yahoogrup os.com.br] em Nome de 
Rodrigo Bevilacqua Marcondes [rodrig...@yahoo. com.br]
Enviado: segunda-feira, 26 de outubro de 2009 5:43
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Matriz em Delphi

Prezados colegas,

Tenho uma dúvida,

Tenho uma Matriz em Delphi que criei assim :

var
ITENS_ : array[1..MAX] of array[1..3] of String; //L C

Me gera uma matriz assim :
[ ][ ][ ]
[ ][ ][ ]
[ ][ ][ ]
até MAX

para acessar eu faço assim :

ITENS_[Linha] [Coluna] = OI

a minha dúvida é isso fica na memória?
Se sim como faço para destruir da memória?

já tentei :

ITENS_.Free;
FreeAndNil(ITENS_ )
for i to max
ITENS_[Linha] [Coluna]. Free

mas todos retorna Acess Violation.

Então eu não libero isso da memória , e uso centena de vezes.

E de vez em quando aparece um acess violation, dentro da rotina onde tem este 
vetor. Mas não sei se é ele.

Qualquer ajuda é bem vinda !!!

Obrigado desde já

Rodrigo ®¿®

.


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Re: RES: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Evandro Siqueira
Estou usando desde 01/09 e o que posso dizer é: Show de Bola!!! Tem 
atualizações praticamente diárias e atende muito bem às nossas 
necessidades. Existe uma lista de discussão muito prestativa e a 
comunidade é muito atuante e que me ajudou muito no processo de 
implantação (http://br.groups.yahoo.com/group/projeto_cooperar_nfe/) . 
Recomendo a qualquer um que queira implementar NFe.

jalosii gmail escreveu:
 Tudo bem, não procurei direito a informação, sei que devo usar o sistema 
 sempre no drive local da máquina, com a dll registrada e as pastas de 
 schemas e url junto ao exe, senão só causa AVs.

 t+

 Rubem Rocha escreveu:
   
 Uma pequena retificação.

 OCX - Controle visual para aplicações que suportem controles ActiveX.
 DLL - No caso de arquitetura COM, trata-se de componente para uso em 
 ferramentas de desenvolvimento que suportem COM.

 Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em uma 
 DLL, e não um controle ActiveX para ser denominado como um OCX!

 Sds.

 
 De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de 
 jalosii gmail [jalo...@gmail.com]
 Enviado: segunda-feira, 26 de outubro de 2009 5:34
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] NFe usando ACBR



 Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou
 usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o
 componente da flexdocs, mas não descarto a possibilidade de fazer envio
 direto pros httpservices(estou com mais tempo pra terminar o projeto),
 mas estou envolvido com o paf-ecf-tef tbm.

 Alosi
 DigitalSystem Sistemas
 Bento Gonçalves-RS

 Marcos Douglas escreveu:
   
 
 Pessoal,

 Alguem ja implementou alguma coisa para NFE usando a ACBR ??

 Em especial para uso aqui no RS ??

 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
 esta usando

 Sucesso !!

   
 
 Caro Moacir,
 Procure no histórico de mensagens da lista que vc verá que já existem
 várias pessoas utilizando estes componentes. Eu mesmo utilizo e
 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
 sendo utilizado em MG.

 Abraços
 Marcos Douglas
 
   
 .




 [As partes desta mensagem que não continham texto foram removidas]



 

   
 



 

   

-- 
[]’s.

Evandro Siqueira
Programador de Sistemas
L’essentiel Lingerie
(79) 3254-5511 Ramal 218
skype: evandro.lessentiel





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




Re: [delphi-br] Atualizar apenas um registro de um CDS

2009-10-26 Por tôpico Magnun Oliveira
cara tentei com o refresh record e nao rolou.

um bom exemplo pra ilustra a situação seria.


tabela de cidades: id_cidade, cidade, id_estado
tabela de estados id_estado, estado, uf

exibicao da listagem de cidades (cidade, estado, uf)

São Paulo - São Paulo - SP
Nova Iguaçu - Rio de Janeiro - RJ
Belo Horizonte - Minas Gerais - MG
etc ..

essa listagem obtenho fazendo um select nas cidades e um inner join nos
estados. E marcando os campos da tabela estados como Hidden, para nao
entrarem no sql de inserção, alteração e exclusao do CDS. No caso esse eh o
cds CIDADES.

criei um form de edição com um cds para selecionar um estado, com um
parametro de entrada id_estado. No momento que dou um edit no cds_Cidades,
passo o ID_Estado como parametro e abro o CDS dos estados.

tudo funciona OK.

Porem se por acaso eu selecionar a terceira linha, alterar o nome do estado
de Minas Gerais, para MINAS, e gravar, ele faz a alteração corretamente no
banco, porem como o campo ESTADO no cds CIDADES é um resultado de Join, ele
soh exibirá o valor MINAS quando eu der um refresh nesse cds de CIDADES.

pra fazer um teste, coloquei um botao com o comando
cds_Cidades.RefreshRecord;  fiz esse processo de alteração e executei esse
comando, nao aconteceu nada.
no processo de inserção, apos o apply, rodei o comando e dah a mensagem:
record not found or changed by anothe user, conferi os dados direto no
banco e estavam inseridos corretamente,

alguem sabe como fazer esse refresh em apenas uma linha do cds ?

vlw


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Conexao Delphi Mysql 5 + Linux

2009-10-26 Por tôpico Eduardo Silva dos Santos
Olá Magnun, a depender do componente de acesso você pracisará testar a
conexão antes de fazer alguma operação.

O MyDAC 5 tem a capacidade de reconectar automaticamente e reexecutar as
queries tudo de forma transparente.
O Zeos na versão mais nova tem recurso semelhante, só não sei se ele
reexecuta as os SQL's pendentes.


Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


2009/10/26 Magnun Oliveira magnunolive...@gmail.com



 Obrigado a todos, já entrei em contato com os caras e o acesso externo foi
 liberado, fiz alguns testes e ok.

 Porem, em algumas vezes ele perde a conexao ... alguem já trabalho em algo
 parecido ? e tem alguma experiencia ?

 penso que antes de cada ação terei que testar a conexao certo ?

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]



Re: RES: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Asafe Locker
o Delphi 2010 já tem suporte a NF-E... ou melhor, ao SOAP 1.2 requerido pela 
NF-E

já estamos implementando implementando com sucesso...

estive na apresentação em SP onde um dos palestrantes, acho que o nome dele era 
Manoel Edesio, fez no melhor estilo de quem sabe faz ao vivo com o Delphi 
2010.

--- Em seg, 26/10/09, jalosii gmail jalo...@gmail.com escreveu:

De: jalosii gmail jalo...@gmail.com
Assunto: Re: RES: [delphi-br] NFe usando ACBR
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 26 de Outubro de 2009, 16:21






 





  Tudo bem, não procurei direito a informação, sei que devo 
usar o sistema 

sempre no drive local da máquina, com a dll registrada e as pastas de 

schemas e url junto ao exe, senão só causa AVs.



t+



Rubem Rocha escreveu:

 Uma pequena retificação.



 OCX - Controle visual para aplicações que suportem controles ActiveX.

 DLL - No caso de arquitetura COM, trata-se de componente para uso em 
 ferramentas de desenvolvimento que suportem COM.



 Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em uma 
 DLL, e não um controle ActiveX para ser denominado como um OCX!



 Sds.



  _ _ __

 De: delphi...@yahoogrup os.com.br [delphi...@yahoogrup os.com.br] em Nome de 
 jalosii gmail [jalo...@gmail. com]

 Enviado: segunda-feira, 26 de outubro de 2009 5:34

 Para: delphi...@yahoogrup os.com.br

 Assunto: Re: [delphi-br] NFe usando ACBR







 Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou

 usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o

 componente da flexdocs, mas não descarto a possibilidade de fazer envio

 direto pros httpservices( estou com mais tempo pra terminar o projeto),

 mas estou envolvido com o paf-ecf-tef tbm.



 Alosi

 DigitalSystem Sistemas

 Bento Gonçalves-RS



 Marcos Douglas escreveu:

   

 Pessoal,



 Alguem ja implementou alguma coisa para NFE usando a ACBR ??



 Em especial para uso aqui no RS ??



 Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja

 esta usando



 Sucesso !!



   

 Caro Moacir,

 Procure no histórico de mensagens da lista que vc verá que já existem

 várias pessoas utilizando estes componentes. Eu mesmo utilizo e

 recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está

 sendo utilizado em MG.



 Abraços

 Marcos Douglas

 



 .









 [As partes desta mensagem que não continham texto foram removidas]







  - - --



   




 

  




 

















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Marcelo Luiz Onhate
  {Classe para exibição de Mensagens Informativas durante a execução de algum 
processo.
   Exemplo:
   var fMsg: TInfoMessage;
   begin
fMsg:=TInfoMessage.Create(Self,'Primeira Mensagem...');
  ou
fMsg:=TInfoMessage.Create(Self);
...
fMesg.Text:='Segunda Mensagem...';
...
fMesg.Text:='Terceira Mensagem...';
...
fMsg.Free;
   end;}
  type TInfoMessage = class(TObject)
  private
FMemo: TMemo;
FText: String;
FForm: TForm;
procedure setText(const Value: String);
property Form: TForm read FForm write FForm;
property Memo: TMemo read FMemo write FMemo;
  public
property Text: String read FText write setText;
destructor Destroy; override;
constructor Create(AOwner: TComponent); overload;
constructor Create(AOwner: TComponent; sMsg: String); overload;
  end;




{ TInfoMessage }

constructor TInfoMessage.Create(AOwner: TComponent);
begin
  inherited Create;
  FForm:=TForm.Create(AOwner);
  if AOwnernil then
FForm.Position:=poOwnerFormCenter
  else begin
FForm.Position:=poScreenCenter;
  end;
  FForm.Height:=23;
  {$IFDEF MSWINDOWS}
FForm.BorderStyle:=bsNone;
  {$ENDIF}
  {$IFDEF LINUX}
FForm.BorderStyle:=fbsNone;
  {$ENDIF}
  FForm.BorderIcons:=[];
  Memo:=TMemo.Create(FForm);
  Memo.Parent:=FForm;
  Memo.Align:=alClient;
  Memo.Alignment:=taCenter;
  Memo.ReadOnly:=True;
  {$IFDEF MSWINDOWS}
Memo.Color:=$00985632;
Memo.Font.Color:=clWhite;
  {$ENDIF}
  {$IFDEF LINUX}
Memo.Color:=$00E3E0DF;
Memo.Font.Color:=clBlack;
  {$ENDIF}
  Memo.Font.Size:=10;
  Memo.Font.Style:=[fsBold];
  Application.ProcessMessages;
end;

constructor TInfoMessage.Create(AOwner: TComponent; sMsg: String);
begin
  Create(AOwner);
  Text:=sMsg;
end;

destructor TInfoMessage.Destroy;
begin
  if (Selfnil)then
  begin
if(Assigned(FForm))and(FForm.Showing)then
begin
  FForm.Close;
  Application.ProcessMessages;
end;
if(Assigned(FMemo))then FreeAndNil(FMemo);
if(Assigned(FForm))then FreeAndNil(FForm);
  end;
  inherited;
end;

procedure TInfoMessage.setText(const Value: String);
var iLen: Integer;
begin
  FText := StringReplace(StringReplace(Value,#13,'',[]),#10,'',[]);
  iLen:=Length(FText);
  Memo.Lines.Clear;
  Memo.Lines.Add(FText);
  FForm.Width:=iLen*8;
  if FForm.Ownernil then
FForm.Position:=poOwnerFormCenter
  else begin
FForm.Position:=poScreenCenter;
  end;
  if FText'' then
FForm.Show
  else if FForm.Showing then begin
FForm.Close;
  end;
  Application.ProcessMessages;
end;

[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
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] Detalhe do processo em tempo real

2009-10-26 Por tôpico claiton
Boa tarde a todos.
Estou concluindo um programa para integração de 2 sistemas, o processo demora 
alguns segundos, então eu preciso de alguma maneira que demonstra as etapas que 
estão sendo executadas naquele momento, pois os usuários podem achar que o 
sistema travou e finalizar o processo(Crt+Alt+Del), usei um form que os 
processos eram carregados em uma label, mas não aparece a label quando executa, 
fica como o sistema ficasse travado, porém processando, imagina o que u usuário 
pensa ao ver o computador mais lento e o form em branco.
Poderiam me ajudar?
Desde já agradeço.



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Dirlei
O form fica branco porque ele ainda não foi desenhado. Um Refresh (do 
form) ou Application.ProcessMessages resolve isso.

Dirlei.

Claiton Bortolin escreveu:
  

 Boa tarde a todos.
 Estou concluindo um programa para integração de 2 sistemas, o processo 
 demora alguns segundos, então eu preciso de alguma maneira que 
 demonstra as etapas que estão sendo executadas naquele momento, pois 
 os usuários podem achar que o sistema travou e finalizar o 
 processo(Crt+Alt+Del), usei um form que os processos eram carregados 
 em uma label, mas não aparece a label quando executa, fica como o 
 sistema ficasse travado, porém processando, imagina o que u usuário 
 pensa ao ver o computador mais lento e o form em branco.
 Poderiam me ajudar?
 Desde já agradeço.

 --
 Claiton Bortolin
 Coordenador em TI


 clai...@impactocontabil.com.br mailto:claiton%40impactocontabil.com.br
 Santa Maria - (55) 3222.3323



 [As partes desta mensagem que não continham texto foram removidas]

 



Re: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Júlio César Santiago Guiótti
Não libera nem se eu efetuar um setLength?

setLength(Array, 0);

Abraço,
Júlio César Santiago Guiótti


2009/10/26 Rubem Rocha rubem.ro...@dtmanaus.com.br



 Simplesmente não libera! Essa área fica alocada de forma fixa dentro do
 programa. Não se libera da memória. Vc deve fazer uso de matrizes esparsas,
 que usam alocação dinâmica de memória (ou seja, ponteiros!). Vc deve
 encontrar material sobre matrizes esparsas em apostilas ou outro tipo de
 material acadêmico na Internet, falando sobre este assunto. Mas fique
 esperto! Vc pode achar material sobre esse assunto usando linguagem C ou C++
 para implementar matrizes esparsas.

 Boa sorte.
 Sds.

 
 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] em Nome de
 Rodrigo Bevilacqua Marcondes [rodrig...@yahoo.com.brrodrigod6%40yahoo.com.br
 ]
 Enviado: segunda-feira, 26 de outubro de 2009 5:43
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Matriz em Delphi


 Prezados colegas,

 Tenho uma dúvida,

 Tenho uma Matriz em Delphi que criei assim :

 var
 ITENS_ : array[1..MAX] of array[1..3] of String; //L C

 Me gera uma matriz assim :
 [ ][ ][ ]
 [ ][ ][ ]
 [ ][ ][ ]
 até MAX

 para acessar eu faço assim :

 ITENS_[Linha][Coluna] = OI

 a minha dúvida é isso fica na memória?
 Se sim como faço para destruir da memória?

 já tentei :

 ITENS_.Free;
 FreeAndNil(ITENS_)
 for i to max
 ITENS_[Linha][Coluna].Free

 mas todos retorna Acess Violation.

 Então eu não libero isso da memória , e uso centena de vezes.

 E de vez em quando aparece um acess violation, dentro da rotina onde tem
 este vetor. Mas não sei se é ele.

 Qualquer ajuda é bem vinda !!!

 Obrigado desde já

 Rodrigo ®¿®

 .

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]



Re: Res: RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Marcelo Luiz Onhate
é igual:

SETLENGTH(vetor, 20,20,40...);

Rodrigo Bevilacqua Marcondes escreveu:
  

 Olá Rubem,

 Eu sei criar um vetor dinâmico assim :

 e alocar dinâmico
 usando
 SETLENGTH(vetor, 20);

 mas para matriz não consegui fazer dinâmico.




RE: Res: RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Matheus Nabao

Olá,

 

 

É a mesma coisa, mas usando laço e indice para 'n Colunas x Linhas!
 


To: delphi-br@yahoogrupos.com.br
From: rodrig...@yahoo.com.br
Date: Mon, 26 Oct 2009 11:25:36 -0700
Subject: Res: RES: [delphi-br] Matriz em Delphi

  



Olá Rubem,

Eu sei criar um vetor dinâmico assim : 

e alocar dinâmico 
usando 
SETLENGTH(vetor, 20);

mas para matriz não consegui fazer dinâmico.

-

vou dar uma olhada se consigo criar assim : 
var
mat: variant;

begin

mat := VarArrayCreate([0,0], varOleStr);

VarArrayHighBound(mat ,1) ;// Returns high bound for a dimension in a variant 
array.

vou ver o que consigo ... acho que só a aceita números .. 

obrigado

Rodrigo ®¿®


De: Rubem Rocha rubem.ro...@dtmanaus.com.br
Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 3:43:44 PM
Assunto: RES: [delphi-br] Matriz em Delphi

Simplesmente não libera! Essa área fica alocada de forma fixa dentro do 
programa. Não se libera da memória. Vc deve fazer uso de matrizes esparsas, que 
usam alocação dinâmica de memória (ou seja, ponteiros!). Vc deve encontrar 
material sobre matrizes esparsas em apostilas ou outro tipo de material 
acadêmico na Internet, falando sobre este assunto. Mas fique esperto! Vc pode 
achar material sobre esse assunto usando linguagem C ou C++ para implementar 
matrizes esparsas.

Boa sorte.
Sds.

 _ _ __
De: delphi...@yahoogrup os.com.br [delphi...@yahoogrup os.com.br] em Nome de 
Rodrigo Bevilacqua Marcondes [rodrig...@yahoo. com.br]
Enviado: segunda-feira, 26 de outubro de 2009 5:43
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Matriz em Delphi

Prezados colegas,

Tenho uma dúvida,

Tenho uma Matriz em Delphi que criei assim :

var
ITENS_ : array[1..MAX] of array[1..3] of String; //L C

Me gera uma matriz assim :
[ ][ ][ ]
[ ][ ][ ]
[ ][ ][ ]
até MAX

para acessar eu faço assim :

ITENS_[Linha] [Coluna] = OI

a minha dúvida é isso fica na memória?
Se sim como faço para destruir da memória?

já tentei :

ITENS_.Free;
FreeAndNil(ITENS_ )
for i to max
ITENS_[Linha] [Coluna]. Free

mas todos retorna Acess Violation.

Então eu não libero isso da memória , e uso centena de vezes.

E de vez em quando aparece um acess violation, dentro da rotina onde tem este 
vetor. Mas não sei se é ele.

Qualquer ajuda é bem vinda !!!

Obrigado desde já

Rodrigo ®¿®

.

__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]








  
_
Acesse seu Hotmail de onde quer que esteja através do celular. Clique aqui.
http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Marcelo Luiz Onhate
Não consigo enviar arquivo...
então segue o código direto mesmo... aheuaheua

Tenta usar esta classe que fiz para exibir mensagens durante processos 
longos...


  {Classe para exibição de Mensagens Informativas durante a execução de 
algum processo.
   Exemplo:
   var fMsg: TInfoMessage;
   begin
fMsg:=TInfoMessage.Create(Self,'Primeira Mensagem...');
  ou
fMsg:=TInfoMessage.Create(Self);
...
fMesg.Text:='Segunda Mensagem...';
...
fMesg.Text:='Terceira Mensagem...';
...
fMsg.Free;
   end;}
  type TInfoMessage = class(TObject)
  private
FMemo: TMemo;
FText: String;
FForm: TForm;
procedure setText(const Value: String);
property Form: TForm read FForm write FForm;
property Memo: TMemo read FMemo write FMemo;
  public
property Text: String read FText write setText;
destructor Destroy; override;
constructor Create(AOwner: TComponent); overload;
constructor Create(AOwner: TComponent; sMsg: String); overload;
  end;




{ TInfoMessage }

constructor TInfoMessage.Create(AOwner: TComponent);
begin
  inherited Create;
  FForm:=TForm.Create(AOwner);
  if AOwnernil then
FForm.Position:=poOwnerFormCenter
  else begin
FForm.Position:=poScreenCenter;
  end;
  FForm.Height:=23;
  {$IFDEF MSWINDOWS}
FForm.BorderStyle:=bsNone;
  {$ENDIF}
  {$IFDEF LINUX}
FForm.BorderStyle:=fbsNone;
  {$ENDIF}
  FForm.BorderIcons:=[];
  Memo:=TMemo.Create(FForm);
  Memo.Parent:=FForm;
  Memo.Align:=alClient;
  Memo.Alignment:=taCenter;
  Memo.ReadOnly:=True;
  {$IFDEF MSWINDOWS}
Memo.Color:=$00985632;
Memo.Font.Color:=clWhite;
  {$ENDIF}
  {$IFDEF LINUX}
Memo.Color:=$00E3E0DF;
Memo.Font.Color:=clBlack;
  {$ENDIF}
  Memo.Font.Size:=10;
  Memo.Font.Style:=[fsBold];
  Application.ProcessMessages;
end;

constructor TInfoMessage.Create(AOwner: TComponent; sMsg: String);
begin
  Create(AOwner);
  Text:=sMsg;
end;

destructor TInfoMessage.Destroy;
begin
  if (Selfnil)then
  begin
if(Assigned(FForm))and(FForm.Showing)then
begin
  FForm.Close;
  Application.ProcessMessages;
end;
if(Assigned(FMemo))then FreeAndNil(FMemo);
if(Assigned(FForm))then FreeAndNil(FForm);
  end;
  inherited;
end;

procedure TInfoMessage.setText(const Value: String);
var iLen: Integer;
begin
  FText := StringReplace(StringReplace(Value,#13,'',[]),#10,'',[]);
  iLen:=Length(FText);
  Memo.Lines.Clear;
  Memo.Lines.Add(FText);
  FForm.Width:=iLen*8;
  if FForm.Ownernil then
FForm.Position:=poOwnerFormCenter
  else begin
FForm.Position:=poScreenCenter;
  end;
  if FText'' then
FForm.Show
  else if FForm.Showing then begin
FForm.Close;
  end;
  Application.ProcessMessages;
end;


Re: Res: RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Dirlei
Porque você precisa desalocar essa matriz se você a utiliza centenas de 
vezes? A realocação com SetLength é cara, principalmente se o vetor 
tiver muitos elementos. Se quiser alocar e desalocar dinamicamente a 
matriz, tenha certeza de que a economia de memória é mais importante que 
a boa performance.

De qualquer forma, o SetLength serve tanto para vetores como para 
matrizes, afinal, uma matriz é um vetor de vetores.

Dirlei.

Rodrigo Bevilacqua Marcondes escreveu:
  

 Olá Rubem,

 Eu sei criar um vetor dinâmico assim :

 e alocar dinâmico
 usando
 SETLENGTH(vetor, 20);

 mas para matriz não consegui fazer dinâmico.

 -

 vou dar uma olhada se consigo criar assim :
 var
 mat: variant;

 begin

 mat := VarArrayCreate([0,0], varOleStr);

 VarArrayHighBound(mat ,1) ;// Returns high bound for a dimension in a 
 variant array.

 vou ver o que consigo ... acho que só a aceita números ..

 obrigado

 Rodrigo ®¿®

 
 De: Rubem Rocha rubem.ro...@dtmanaus.com.br 
 mailto:rubem.rocha%40dtmanaus.com.br
 Para: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Seg, Outubro 26, 2009 3:43:44 PM
 Assunto: RES: [delphi-br] Matriz em Delphi

 Simplesmente não libera! Essa área fica alocada de forma fixa dentro 
 do programa. Não se libera da memória. Vc deve fazer uso de matrizes 
 esparsas, que usam alocação dinâmica de memória (ou seja, ponteiros!). 
 Vc deve encontrar material sobre matrizes esparsas em apostilas ou 
 outro tipo de material acadêmico na Internet, falando sobre este 
 assunto. Mas fique esperto! Vc pode achar material sobre esse assunto 
 usando linguagem C ou C++ para implementar matrizes esparsas.

 Boa sorte.
 Sds.

  _ _ __
 De: delphi...@yahoogrup os.com.br [delphi...@yahoogrup os.com.br] em 
 Nome de Rodrigo Bevilacqua Marcondes [rodrig...@yahoo. com.br]
 Enviado: segunda-feira, 26 de outubro de 2009 5:43
 Para: delphi...@yahoogrup os.com.br
 Assunto: [delphi-br] Matriz em Delphi

 Prezados colegas,

 Tenho uma dúvida,

 Tenho uma Matriz em Delphi que criei assim :

 var
 ITENS_ : array[1..MAX] of array[1..3] of String; //L C

 Me gera uma matriz assim :
 [ ][ ][ ]
 [ ][ ][ ]
 [ ][ ][ ]
 até MAX

 para acessar eu faço assim :

 ITENS_[Linha] [Coluna] = OI

 a minha dúvida é isso fica na memória?
 Se sim como faço para destruir da memória?

 já tentei :

 ITENS_.Free;
 FreeAndNil(ITENS_ )
 for i to max
 ITENS_[Linha] [Coluna]. Free

 mas todos retorna Acess Violation.

 Então eu não libero isso da memória , e uso centena de vezes.

 E de vez em quando aparece um acess violation, dentro da rotina onde 
 tem este vetor. Mas não sei se é ele.

 Qualquer ajuda é bem vinda !!!

 Obrigado desde já

 Rodrigo ®¿®

 .

 __
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com

 [As partes desta mensagem que não continham texto foram removidas]

 



Re: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Joao Morais
2009/10/26 Rodrigo Bevilacqua Marcondes rodrig...@yahoo.com.br:
 Prezados colegas,

 Tenho uma dúvida,

 Tenho uma Matriz em Delphi que criei assim :

 var
  ITENS_ : array[1..MAX] of array[1..3] of String;  //L C

 Me gera uma matriz assim :
 [ ][ ][ ]
 [ ][ ][ ]
 [ ][ ][ ]
 até MAX

 para acessar eu faço assim :

 ITENS_[Linha][Coluna] = OI

 a minha dúvida é isso fica na memória?
 Se sim como faço para destruir da memória?

 já tentei :

 ITENS_.Free;
 FreeAndNil(ITENS_)
 for i to max
  ITENS_[Linha][Coluna].Free

 mas todos retorna Acess Violation.

 Então eu não libero isso da memória , e uso centena de vezes.

 E de vez em quando aparece um acess violation, dentro da rotina onde tem este 
 vetor. Mas não sei se é ele.

 Qualquer ajuda é bem vinda !!!

 Obrigado desde já

Como diria Jack, vamos por partes. Uma coisa é o array, outra coisa é
o que ele guarda.

No caso do array, você não precisa se preocupar pois ele foi criado na
área var, e não através do seu código. Áreas de dados criadas na área
var local ficam na pilha de chamadas do método e custam praticamente
zero para o compilador manter. Como não é alocado no heap, não é
necessário desalocar e não há vazamento de memória.

Quanto ao que aponta, ansi strings, estas são removidas da memória
pelo compilador tão logo ninguém mais aponte para ela. Então você
também não precisa se preocupar.

A única vantagem que eu vejo em usar arrays dinâmicos é quando você
não sabe a quantidade de elementos. Mas se a sua matriz tem tamanho
fixo, o que você está fazendo vai funcionar, vai ser otimizado e não
vai vazar memória.

Por fim, se você optar por arrays dinâmicos, você os instancia com
setlength e não precisa se preocupar em desacolar. Arrays dinâmicos
são removidos da memória tão logo ninguém esteja apontando para eles,
tal qual ocorre com ansi strings.

Por via das dúvidas use FastMM e veja se ele reporta alguma coisa.

Joao Morais


Res: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Rodrigo Bevilacqua Marcondes
não, pois o array tem que ser variant para usar o setLength ... 

 Rodrigo ®¿®





De: Júlio César Santiago Guiótti jcsguio...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 4:06:44 PM
Assunto: Re: [delphi-br] Matriz em Delphi

  
Não libera nem se eu efetuar um setLength?

setLength(Array, 0);

Abraço,
Júlio César Santiago Guiótti

2009/10/26 Rubem Rocha rubem.rocha@ dtmanaus. com.br



 Simplesmente não libera! Essa área fica alocada de forma fixa dentro do
 programa. Não se libera da memória. Vc deve fazer uso de matrizes esparsas,
 que usam alocação dinâmica de memória (ou seja, ponteiros!). Vc deve
 encontrar material sobre matrizes esparsas em apostilas ou outro tipo de
 material acadêmico na Internet, falando sobre este assunto. Mas fique
 esperto! Vc pode achar material sobre esse assunto usando linguagem C ou C++
 para implementar matrizes esparsas.

 Boa sorte.
 Sds.

  _ _ __
 De: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br [
 delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br] em Nome de
 Rodrigo Bevilacqua Marcondes [rodrig...@yahoo. com.brrodrigod6%40yahoo. 
 com.br
 ]
 Enviado: segunda-feira, 26 de outubro de 2009 5:43
 Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
 Assunto: [delphi-br] Matriz em Delphi


 Prezados colegas,

 Tenho uma dúvida,

 Tenho uma Matriz em Delphi que criei assim :

 var
 ITENS_ : array[1..MAX] of array[1..3] of String; //L C

 Me gera uma matriz assim :
 [ ][ ][ ]
 [ ][ ][ ]
 [ ][ ][ ]
 até MAX

 para acessar eu faço assim :

 ITENS_[Linha] [Coluna] = OI

 a minha dúvida é isso fica na memória?
 Se sim como faço para destruir da memória?

 já tentei :

 ITENS_.Free;
 FreeAndNil(ITENS_ )
 for i to max
 ITENS_[Linha] [Coluna]. Free

 mas todos retorna Acess Violation.

 Então eu não libero isso da memória , e uso centena de vezes.

 E de vez em quando aparece um acess violation, dentro da rotina onde tem
 este vetor. Mas não sei se é ele.

 Qualquer ajuda é bem vinda !!!

 Obrigado desde já

 Rodrigo ®¿®

 .

 [As partes desta mensagem que não continham texto foram removidas]

 


[As partes desta mensagem que não continham texto foram removidas]


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Res: Res: RES: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Rodrigo Bevilacqua Marcondes
Então não preciso desalocar!!!
Sempre vai esta lá!!! só tenho que trocar os valores.. isso?

vou deixar assim.. e fazer uns teste com as matrizes 

obrigado a todos pelas dicas ... 

 Rodrigo ®¿®





De: Dirlei dir...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Seg, Outubro 26, 2009 4:42:25 PM
Assunto: Re: Res: RES: [delphi-br] Matriz em Delphi

  
Porque você precisa desalocar essa matriz se você a utiliza centenas de 
vezes? A realocação com SetLength é cara, principalmente se o vetor 
tiver muitos elementos. Se quiser alocar e desalocar dinamicamente a 
matriz, tenha certeza de que a economia de memória é mais importante que 
a boa performance.

De qualquer forma, o SetLength serve tanto para vetores como para 
matrizes, afinal, uma matriz é um vetor de vetores.

Dirlei.

Rodrigo Bevilacqua Marcondes escreveu:
 

 Olá Rubem,

 Eu sei criar um vetor dinâmico assim :

 e alocar dinâmico
 usando
 SETLENGTH(vetor, 20);

 mas para matriz não consegui fazer dinâmico.

 -

 vou dar uma olhada se consigo criar assim :
 var
 mat: variant;

 begin

 mat := VarArrayCreate( [0,0], varOleStr);

 VarArrayHighBound( mat ,1) ;// Returns high bound for a dimension in a 
 variant array.

 vou ver o que consigo ... acho que só a aceita números ..

 obrigado

 Rodrigo ®¿®

  _ _ __
 De: Rubem Rocha rubem.rocha@ dtmanaus. com.br 
 mailto:rubem. rocha%40dtmanaus .com.br
 Para: delphi...@yahoogrup os.com.br 
 mailto:delphi- br%40yahoogrupos .com.br delphi...@yahoogrup os.com.br 
 mailto:delphi- br%40yahoogrupos .com.br
 Enviadas: Seg, Outubro 26, 2009 3:43:44 PM
 Assunto: RES: [delphi-br] Matriz em Delphi

 Simplesmente não libera! Essa área fica alocada de forma fixa dentro 
 do programa. Não se libera da memória. Vc deve fazer uso de matrizes 
 esparsas, que usam alocação dinâmica de memória (ou seja, ponteiros!). 
 Vc deve encontrar material sobre matrizes esparsas em apostilas ou 
 outro tipo de material acadêmico na Internet, falando sobre este 
 assunto. Mas fique esperto! Vc pode achar material sobre esse assunto 
 usando linguagem C ou C++ para implementar matrizes esparsas.

 Boa sorte.
 Sds.

  _ _ __
 De: delphi...@yahoogrup os.com.br [delphi...@yahoogru p os.com.br] em 
 Nome de Rodrigo Bevilacqua Marcondes [rodrig...@yahoo. com.br]
 Enviado: segunda-feira, 26 de outubro de 2009 5:43
 Para: delphi...@yahoogrup os.com.br
 Assunto: [delphi-br] Matriz em Delphi

 Prezados colegas,

 Tenho uma dúvida,

 Tenho uma Matriz em Delphi que criei assim :

 var
 ITENS_ : array[1..MAX] of array[1..3] of String; //L C

 Me gera uma matriz assim :
 [ ][ ][ ]
 [ ][ ][ ]
 [ ][ ][ ]
 até MAX

 para acessar eu faço assim :

 ITENS_[Linha] [Coluna] = OI

 a minha dúvida é isso fica na memória?
 Se sim como faço para destruir da memória?

 já tentei :

 ITENS_.Free;
 FreeAndNil(ITENS_ )
 for i to max
 ITENS_[Linha] [Coluna]. Free

 mas todos retorna Acess Violation.

 Então eu não libero isso da memória , e uso centena de vezes.

 E de vez em quando aparece um acess violation, dentro da rotina onde 
 tem este vetor. Mas não sei se é ele.

 Qualquer ajuda é bem vinda !!!

 Obrigado desde já

 Rodrigo ®¿®

 .

  _ _ _ _ _ _
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbusca dos.yahoo. com http://br.maisbusca dos.yahoo. com

 [As partes desta mensagem que não continham texto foram removidas]

 


   


  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Detalhe do processo em tempo real

2009-10-26 Por tôpico Rafael Jorge
cara um simples Application.ProcessMessages na tua rotina vai evitar do form
icar branco e travado.
so isso. ai tu pode escrever nos labels e o usuario vai ver tudo.
t+

2009/10/26 Marcelo Luiz Onhate marc...@systempro.com.br



 Não consigo enviar arquivo...
 então segue o código direto mesmo... aheuaheua

 Tenta usar esta classe que fiz para exibir mensagens durante processos
 longos...


 {Classe para exibição de Mensagens Informativas durante a execução de
 algum processo.
 Exemplo:
 var fMsg: TInfoMessage;
 begin
 fMsg:=TInfoMessage.Create(Self,'Primeira Mensagem...');
 ou
 fMsg:=TInfoMessage.Create(Self);
 ...
 fMesg.Text:='Segunda Mensagem...';
 ...
 fMesg.Text:='Terceira Mensagem...';
 ...
 fMsg.Free;
 end;}
 type TInfoMessage = class(TObject)
 private
 FMemo: TMemo;
 FText: String;
 FForm: TForm;
 procedure setText(const Value: String);
 property Form: TForm read FForm write FForm;
 property Memo: TMemo read FMemo write FMemo;
 public
 property Text: String read FText write setText;
 destructor Destroy; override;
 constructor Create(AOwner: TComponent); overload;
 constructor Create(AOwner: TComponent; sMsg: String); overload;
 end;


 

 { TInfoMessage }

 constructor TInfoMessage.Create(AOwner: TComponent);
 begin
 inherited Create;
 FForm:=TForm.Create(AOwner);
 if AOwnernil then
 FForm.Position:=poOwnerFormCenter
 else begin
 FForm.Position:=poScreenCenter;
 end;
 FForm.Height:=23;
 {$IFDEF MSWINDOWS}
 FForm.BorderStyle:=bsNone;
 {$ENDIF}
 {$IFDEF LINUX}
 FForm.BorderStyle:=fbsNone;
 {$ENDIF}
 FForm.BorderIcons:=[];
 Memo:=TMemo.Create(FForm);
 Memo.Parent:=FForm;
 Memo.Align:=alClient;
 Memo.Alignment:=taCenter;
 Memo.ReadOnly:=True;
 {$IFDEF MSWINDOWS}
 Memo.Color:=$00985632;
 Memo.Font.Color:=clWhite;
 {$ENDIF}
 {$IFDEF LINUX}
 Memo.Color:=$00E3E0DF;
 Memo.Font.Color:=clBlack;
 {$ENDIF}
 Memo.Font.Size:=10;
 Memo.Font.Style:=[fsBold];
 Application.ProcessMessages;
 end;

 constructor TInfoMessage.Create(AOwner: TComponent; sMsg: String);
 begin
 Create(AOwner);
 Text:=sMsg;
 end;

 destructor TInfoMessage.Destroy;
 begin
 if (Selfnil)then
 begin
 if(Assigned(FForm))and(FForm.Showing)then
 begin
 FForm.Close;
 Application.ProcessMessages;
 end;
 if(Assigned(FMemo))then FreeAndNil(FMemo);
 if(Assigned(FForm))then FreeAndNil(FForm);
 end;
 inherited;
 end;

 procedure TInfoMessage.setText(const Value: String);
 var iLen: Integer;
 begin
 FText := StringReplace(StringReplace(Value,#13,'',[]),#10,'',[]);
 iLen:=Length(FText);
 Memo.Lines.Clear;
 Memo.Lines.Add(FText);
 FForm.Width:=iLen*8;
 if FForm.Ownernil then
 FForm.Position:=poOwnerFormCenter
 else begin
 FForm.Position:=poScreenCenter;
 end;
 if FText'' then
 FForm.Show
 else if FForm.Showing then begin
 FForm.Close;
 end;
 Application.ProcessMessages;
 end;

 




-- 
_
Rafael jorge alves
Desenvolvedor/analista
Ativa Soluções em TI.
Recife - PE


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Matriz em Delphi

2009-10-26 Por tôpico Joao Morais
2009/10/26 Rodrigo Bevilacqua Marcondes rodrig...@yahoo.com.br:
 não, pois o array tem que ser variant para usar o setLength ...

Array dinâmico também, com a vantagem de ser muito mais rápido do que variant.

Joao Morais


Re: RES: [delphi-br] NFe usando ACBR

2009-10-26 Por tôpico Moacir - GMail
Grande informação Evandro, vou me cadastrar.

Grato,

Moacir


Evandro Siqueira escreveu:
 Estou usando desde 01/09 e o que posso dizer é: Show de Bola!!! Tem 
 atualizações praticamente diárias e atende muito bem às nossas 
 necessidades. Existe uma lista de discussão muito prestativa e a 
 comunidade é muito atuante e que me ajudou muito no processo de 
 implantação (http://br.groups.yahoo.com/group/projeto_cooperar_nfe/) . 
 Recomendo a qualquer um que queira implementar NFe.

   





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




Re: [delphi-br] [Debate] Controle de Bugs e Solicita ções, vocês usam? Qual?

2009-10-26 Por tôpico Rafael Jorge
mas isso a gente resolve colocando outra tarefa no mantis chamada (liberação
de versao)
isso resolve com alguns clientes.
t+

2009/10/23 Berdam berdamzi...@yahoo.com.br



 é Jorge, a parte ruim é quando o cliente viu que a coisa dele tá pronta, e
 ele quer já essa atualização, dai as liberações de versão ficam
 comprometidas.

 eu tbm uso svn e mantis, resolve grandes problemas, tudo em servidor linux
 com acesso externo e acesso interno.

 --
 Uberdam Cavaletti
 Programador Delphi
 Formado em Tecnologia da Informação
 Pós-graduado em desenvolvimento Java.
 Professor Tópicos Especias em BD - Unoesc Xanxerê
 Professor Estruturas de Dados - Unoesc Xanxerê

 http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
 --

 
 De: Rafael Jorge rafael.jo...@gmail.com rafael.jorge%40gmail.com
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Sex, Outubro 23, 2009 2:38:22 PM
 Assunto: Re: [delphi-br] [Debate] Controle de Bugs e Solicitações, vocês
 usam? Qual?

 aqui na empresa usamos o mantis pra reportagem de bugis e acompanhamento. .
 e usamdo o tortoise para controle de fontes. os dois rodando no site da
 gente.
 fica muito bom..
 pq vemos o que ta rolando de problemas e podemos fazer de casa (todo mundo
 tem notebook la) se for besteria e mandar pro SVN da gente. sem dizer que
 com o mantis o cliente ve o que a gente ja fez. ou ta fazendo da parte dele
 que acaba com o povo ligando pra gente sem parar pra saber o andamento das
 coisas. e como ele tem nivel os cliente so pode informar as broncas e nao
 mexer em nada.
 t+

 2009/10/22 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br

 
 
  Atualmente não uso nenhum software. Simplesmente tento documentar os bugs
 e
  solicitações de alterações que sejam informadas bem como o andamento. Uso
  uns modelos de documentos do sistema da qualidade da empresa que trabalho
 e
  adaptei para abranger informações referentes a software e hardware.
 
  Abraço,
  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 qui, 22/10/09, Fellipe Henrique 
  felli...@gmail.comfellipeh%40gmail. com
  escreveu:
 
  De: Fellipe Henrique felli...@gmail. com fellipeh%40gmail. com
  Assunto: [delphi-br] [Debate] Controle de Bugs e Solicitações, vocês
 usam?
  Qual?
  Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
  Data: Quinta-feira, 22 de Outubro de 2009, 14:40
 
 
 
  Amigos, só pra gente debater mesmo.. que é sempre saudável, e acredito
 que
 
  isso constituirá um bom estudo posterior pra quem for chegando.. vamos
 lá..
 
  Vocês usam algum software para controle de Bugs e Solicitações de
 
  modificação em seus software? Se Sim qual(is) seriam eles?
 
  Vocês preferem que esses softwares sejam via Browser ou Desktop mesmo?
 
  Esta é um discussão, afim de descobrir o melhor gerenciador de Bugs e
 
  Soluções para nossos software, seja gratuito ou pago...
 
  Eu atualmente estou usando o Mantis, porém não estou gostando muito dele
 
  não... :o(
 
  []s
 
  --
 
   _ _ ___
 
  T.·.F.·.A.·.
 
  Fellipe Henrique
 
   - - - - - -
 
  CAMPANHA POR UMA INTERNET SEGURA
 
  Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 
  mensagens use SEMPRE o Cco (cópia oculta).
 
  Assim TODOS os endereços estarão preservados. E, claro, antes de
 encaminhar
 
  um e-mail, delete todas as informações que apareçam no corpo do e-mail e
  que
 
  possam ser usadas por hackers.
 
   # # #

 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 
 
 
 
 
   _ _ _ _ _ _
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbusca dos.yahoo. com

 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
  _ 
 Rafael jorge alves
 Desenvolvedor/ analista
 Ativa Soluções em TI.
 Recife - PE


 [As partes desta mensagem que não continham texto foram removidas]

 __
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com


 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
_
Rafael jorge alves
Desenvolvedor/analista
Ativa Soluções em TI.
Recife - PE


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] [Debate] Controle de Bugs e Solicita ções, vocês usam? Qual?

2009-10-26 Por tôpico Rafael Jorge
sem mencionar que nosso sistema se atualiza via internet.
entao esssa libercao de versao e simplesmente a gente mandar a nova versao
pro FTP.
la no cliente eles sao configurados para se uma maquina pegar o FTP as
outras pegam dele.
ai fica facil.
t+

2009/10/26 Rafael Jorge rafael.jo...@gmail.com

 mas isso a gente resolve colocando outra tarefa no mantis chamada
 (liberação de versao)
 isso resolve com alguns clientes.
 t+

 2009/10/23 Berdam berdamzi...@yahoo.com.br



 é Jorge, a parte ruim é quando o cliente viu que a coisa dele tá pronta, e
 ele quer já essa atualização, dai as liberações de versão ficam
 comprometidas.

 eu tbm uso svn e mantis, resolve grandes problemas, tudo em servidor linux
 com acesso externo e acesso interno.

 --
 Uberdam Cavaletti
 Programador Delphi
 Formado em Tecnologia da Informação
 Pós-graduado em desenvolvimento Java.
 Professor Tópicos Especias em BD - Unoesc Xanxerê
 Professor Estruturas de Dados - Unoesc Xanxerê

 http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
 --

 
 De: Rafael Jorge rafael.jo...@gmail.com rafael.jorge%40gmail.com
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Sex, Outubro 23, 2009 2:38:22 PM
 Assunto: Re: [delphi-br] [Debate] Controle de Bugs e Solicitações, vocês
 usam? Qual?

 aqui na empresa usamos o mantis pra reportagem de bugis e acompanhamento.
 .
 e usamdo o tortoise para controle de fontes. os dois rodando no site da
 gente.
 fica muito bom..
 pq vemos o que ta rolando de problemas e podemos fazer de casa (todo mundo
 tem notebook la) se for besteria e mandar pro SVN da gente. sem dizer que
 com o mantis o cliente ve o que a gente ja fez. ou ta fazendo da parte
 dele
 que acaba com o povo ligando pra gente sem parar pra saber o andamento das
 coisas. e como ele tem nivel os cliente so pode informar as broncas e nao
 mexer em nada.
 t+

 2009/10/22 Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br

 
 
  Atualmente não uso nenhum software. Simplesmente tento documentar os
 bugs e
  solicitações de alterações que sejam informadas bem como o andamento.
 Uso
  uns modelos de documentos do sistema da qualidade da empresa que
 trabalho e
  adaptei para abranger informações referentes a software e hardware.
 
  Abraço,
  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 qui, 22/10/09, Fellipe Henrique 
  felli...@gmail.comfellipeh%40gmail. com
  escreveu:
 
  De: Fellipe Henrique felli...@gmail. com fellipeh%40gmail. com
  Assunto: [delphi-br] [Debate] Controle de Bugs e Solicitações, vocês
 usam?
  Qual?
  Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
  Data: Quinta-feira, 22 de Outubro de 2009, 14:40
 
 
 
  Amigos, só pra gente debater mesmo.. que é sempre saudável, e acredito
 que
 
  isso constituirá um bom estudo posterior pra quem for chegando.. vamos
 lá..
 
  Vocês usam algum software para controle de Bugs e Solicitações de
 
  modificação em seus software? Se Sim qual(is) seriam eles?
 
  Vocês preferem que esses softwares sejam via Browser ou Desktop mesmo?
 
  Esta é um discussão, afim de descobrir o melhor gerenciador de Bugs e
 
  Soluções para nossos software, seja gratuito ou pago...
 
  Eu atualmente estou usando o Mantis, porém não estou gostando muito dele
 
  não... :o(
 
  []s
 
  --
 
   _ _ ___
 
  T.·.F.·.A.·.
 
  Fellipe Henrique
 
   - - - - - -
 
  CAMPANHA POR UMA INTERNET SEGURA
 
  Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 
  mensagens use SEMPRE o Cco (cópia oculta).
 
  Assim TODOS os endereços estarão preservados. E, claro, antes de
 encaminhar
 
  um e-mail, delete todas as informações que apareçam no corpo do e-mail e
  que
 
  possam ser usadas por hackers.
 
   # # #

 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 
 
 
 
 
   _ _ _ _ _ _
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbusca dos.yahoo. com

 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
  _ 
 Rafael jorge alves
 Desenvolvedor/ analista
 Ativa Soluções em TI.
 Recife - PE


 [As partes desta mensagem que não continham texto foram removidas]

 __
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com


 [As partes desta mensagem que não continham texto foram removidas]

  




 --
 _

 Rafael 

[delphi-br] ajuda para ler arquivo texto e gravar no BD

2009-10-26 Por tôpico alessandra porto
preciso ler um arquivo de word onde ele tem uma grade que  contem registros 
assim:

NOME: MARIA DA SILVA  IDADE: 33 ANOS  ESTADO CIVIL: CASADA
MÃE:  JOSEFA DA SILVA   PAI : ANTONIO GABRIEL 

isso  é o cadastro de uma pessoa que esta  em  uma  pagina de word

e nesta pagina tem 'N' cadastros de 'N' pessoas

a  ideia  é  ler e  gravar em BD sendo cada pessoa um registro
na tabela pessoa do BD.

  Como faço para o delphi ler cada parte do arquivo e gravar
em seu CAMPO correspondente na tabela.

NA TABELA DO BD

NOME   : MARIA DA SILVA
IDADE  :33 anos
ESTADOCIVEIL : CASADA
MAE :  JOSEFA DA SILVA
PAI:  ANTONIO GABRIEL


o texto do word segue uma formatação
oque esta me faltando é a  ideia de como a aplicação
identificar a palavra que corresponde ao campo da tabela
e copiar seu conteudo na tabela no BD.

NOME : MARIA DA SILVA

e o comando da aplicação coletar os demais dados desta
pessoa contidos no arquivo word e ao chegar ao ultimo
dado desta pessoa que seria o nome do  pai

PAI : ANTONIO GABRIEL

gravar no BD  e começar um novo registro a partir da palavra nome


NOME: marcia da  silva     

:
:
achou a palavra Nome a partir dela copie  até encontrar a palavra IDADE a 
partir dela copie  até encontrar a palavra 



  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Ponto de entrada não encont rado

2009-10-26 Por tôpico Silvio Clecio
Junior escreveu:
 Ao abrir o Delphi7 começou hj cedo a apresentar o seguinte erro:
 
 “delphi.exe – Ponto de entrada não encontrado.
 
 Não foi possível localizar o ponto de entrada do procedimento @JV na
 biblioteca de vínculo dinâmico JV”.
 
 O erro refere-se a biblioteca Jedi, imagino.
 
 Desinstalei o pacote Jedi pelo Delphi (Install Packages), reiniciei o pc e
 instalei todo o pacote novamente.
 
 Porém o erro persiste.
 
 Alguém tem idéia de como resolver isso ?
 
 Até ontem estava tudo beleza. Nada foi instalado/desinstalado no micro.
 
 Por que será que começou esse erro hoje cedo ?
 
 Obrigado
 
 Márcio A. Jr.

Caí nessa propositalmente, só para ver os efeitos colaterais, mas 
resolvi rapidinho:

Desinstale a cópia que estiver instalada, após isso, exclua (shift+del 
sem pena) as pastas jcl e jvcl, no meu caso uso em: 
...\Borland\Delphi7\jcl e ...\Borland\Delphi7\jvcl.

Após excluir as pastas, exclua os arquivos antigos do projeto jedi em 
...\Borland\Delphi7\Projects\Bpl, são muitos, as duas iniciais são Jc 
e Jv, ex: Jcl70.bpl, Jv3rdD7R.bpl e etc.

Ainda tem trabalho, vá a \WINDOWS\system32 e exclua outros arquivos 
que supostamente parecem ser do projeto jedi, com iniciais Jc e Jv...
Esse lixo em system32 eu usei shift+del sem piedade, mas copie para 
uma pasta monitorada por um bom anti vírus, se tiver certeza que não são 
arquivos de um software, manda tudo pras cucuias com pasta e tudo :)

Reinstale a jcl e jvcl, abra o Delphi e tudo deverá estar em paz 
novamente ;)

Boa sorte.


ps. Ao autor dessa nova 'solução' de ferrar a jvcl, pelo menos comigo 
não foi, mas gostei do 'desafio' :D

-- 
Silvio Clecio
--
Esqueça-se um pouco de si mesmo e pense nos outros.
Nestas poucas palavras está encerrado o maior segredo da felicidade.




-- 
 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