RES: [delphi-br] MYSQL - OFF

2006-03-22 Por tôpico Andre de Souza Ferreira 
Muito obrigado a todos!!! E desculpe pela pergunta imbecil!!! rs

André Ferreira
Gerência de Subscrição


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Douglas Uesato - Dept de Informática
Enviada em: quarta-feira, 22 de março de 2006 09:10
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] MYSQL - OFF


André,

Abaixo segue 2 programas para administrar o banco:
- MySQLFront
- SEM SQL Manager MySQL Lite (a versão Lite é Free)

[]s
Douglas Uesato

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre de Souza Ferreira
Enviada em: quarta-feira, 22 de março de 2006 09:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] MYSQL - OFF

Pessoal;
 
Bom dia. Alguém sabe como eu visualiso a interface do mysql? Fiz o dowload
do mysql 5.0 e não sei como utilizo!
 
André Ferreira
 


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 








-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] MYSQL - OFF

2006-03-22 Por tôpico Andre de Souza Ferreira 
Pessoal;
 
Bom dia. Alguém sabe como eu visualiso a interface do mysql? Fiz o dowload do 
mysql 5.0 e não sei como utilizo!
 
André Ferreira
 


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: RES: [delphi-br] OFF Toppic: Desabafo..

2005-11-11 Por tôpico Andre de Souza Ferreira 
É Depois desse ATOA E desse MEDIA, preciso cancelar minha assinatura 
urgente! 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Bruno Lichot 
- Micrologos
Enviada em: sexta-feira, 11 de novembro de 2005 15:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF Toppic: Desabafo..


Não fique com medo..hehehe

não é atoa que somos a maior empresa de Media especifica da América Latina.
vc receberá os seus exemplares.

As ordens

[]´s
Bruno Lichot
Micrologos Dream Team
Equipe Editorial ClubeDelphi DevMedia

[EMAIL PROTECTED]
[EMAIL PROTECTED]

www.micrologos.com.br - www.clubedelphi.net -
www.delphirio.assespro-rj.org.br
- Original Message - 
From: "Wilton Moreira" <[EMAIL PROTECTED]>
To: 
Sent: Friday, November 11, 2005 2:00 PM
Subject: Re: RES: [delphi-br] OFF Toppic: Desabafo..


> Desse jeito vocês me deixam com medo! Semana passada eu comprei 2
> exemplares antigos da revista, será que vou receber?
>
> Não sabia desses problemas até agora.
>
> Wilton
>
>
>
>
> Eduardo Silva ® wrote:
>
> >Fausto, já que vc começou eu vou continuar...
> >
> >Enviei um e-mail também e até agora nada, isso já faz dias, nem resolvi
> >ligar pois acho uma falta de consideração vc ter uma correspondência
> >eletrônica e não dar satisfação aos clientes...
> >
> >É brincadeira o desreipeito que nós sofremos.
> >
> >É por essa e outras coisas que esse país não vai pra frente...
> >  -Mensagem original-
> >  De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
> >nome de Fausto
> >  Enviada em: sexta-feira, 11 de novembro de 2005 12:32
> >  Para: delphi-br@yahoogrupos.com.br
> >  Assunto: [delphi-br] OFF Toppic: Desabafo..
> >
> >
> >  Antes de tudo me desculpem pelo off, mas acho que somente aqui, em uma
> >  comunidade Delphi, eu seria, ao menos eu acho, compreendido.
> >  Pessoal sou assinante da revista ClubeDelphi, onde dentre outras
> >  ofertas eles dizem que somente quem é assinante tem acesso ao conteúdo
> >  exclusivo.
> >  Pois bem eles mudaram o site, e agora não entra em nada, é pedido o
> >  login e a senha mas nada de funcionar.
> >  Lancei mão do email que aparece no canto superior direito da página,
> >  isto na sexta-feira passada 04/11 e até agora não recebi um retorno,
> >  resolvi então ligar para eles, agora pirem..
> >  O atendente me passou dois logins e senhas e nenhum funcionou, ai ele
> >  disse que irá entrar em contato com o suporte..
> >  É bricadeira como este pessoal abusa de nossa boa vontade não?
> >  Sem contar que o site esta uma *M*, agora entendi porque o Carlos
> >  Cantu não é mais editor na revista..
> >
> >  Mais uma vez me desculpem o OFF
> >  Fausto
> >
> >
> >
> >
> >
> >  --
> >  < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> >
> >
> >
> >
> >
> >Yahoo! Grupos, um serviço oferecido por:
> >  PUBLICIDADE
> >
> >
> >
> >
>
>---
-
> >--
> >  Links do Yahoo! Grupos
> >
> >a.. Para visitar o site do seu grupo na web, acesse:
> >http://br.groups.yahoo.com/group/delphi-br/
> >
> >b.. Para sair deste grupo, envie um e-mail para:
> >[EMAIL PROTECTED]
> >
> >c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> >Serviço do Yahoo!.
> >
> >
> >
> >  __ NOD32 1.1283 (20051110) Information __
> >
> >  This message was checked by NOD32 antivirus system.
> >  http://www.nod32.com
> >
> >
> >[As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
> >
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >






Yahoo! Grupos, um serviço oferecido por:

PUBLICIDADE


 

 

  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O

RES: [delphi-br] OFF - Oportunidade

2005-09-14 Por tôpico Andre de Souza Ferreira 
Excelente resposta Francisco! Tem cada lixo que aparece
 
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Francisco 
Thiago
Enviada em: quarta-feira, 14 de setembro de 2005 09:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] OFF - Oportunidade


> Mas pelas respostas que tive até agora - acho que ninguém aqui da lista 
> está
> apto.

Algumas palavras quando mal ditas podem ferir as outras pessoas e dar um 
bruta prejuízo para a empresa... Um porquê de ninguém da lista estar 
qualificado seria uma boa...

Mas pelo que vemos, na sua empresa também não tem ninguém qualificado para 
oferecer emprego. O que é uma pena.

[]'s


Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]


- Original Message - 
From: "Rogério" <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, September 14, 2005 8:38 AM
Subject: Re: [delphi-br] OFF - Oportunidade


>É Sr. Walter sabe tudo!!!
>
> Não é que o pessoal não sabe, mas o pessoal tem muito trabalho então o
> pessoal esquece de um detalhe importante.
>
> Cidade: Blumenau
> UF: SC
> País: Brasil
>
> O salário será à combinar - dependerá de avaliação.
> Mas pelas respostas que tive até agora - acho que ninguém aqui da lista 
> está
> apto.
> Talvez tenha sido um erro postar a msg aqui (vivendo e aprendendo).
>
> Interessa somente pessoas da região.
>
> Rogério Ricardo Fernandes
> Desenvolvimento http://www.strategies.inf.br
>
> - Original Message - 
> From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> To: 
> Sent: Tuesday, September 13, 2005 5:38 PM
> Subject: RES: [delphi-br] OFF - Oportunidade
>
>
> No site desta empresa, o endereço é de Santa Catarina. É que o pessoal 
> posta
> anuncio mas não sabe por detalhes importantes  >:-(
>
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
>
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Jéferson
> Enviada em: terça-feira, 13 de setembro de 2005 17:21
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] OFF - Oportunidade
>
>
> Qual região do pais?
>
>
> - Original Message - 
> From: "Levi Ribeiro de Freitas" <[EMAIL PROTECTED]>
> To: 
> Sent: Tuesday, September 13, 2005 4:52 PM
> Subject: RES: [delphi-br] OFF - Oportunidade
>
>
> Favor informar salário.
>
> Levi
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> nome de Rogério
> Enviada em: terça-feira, 13 de setembro de 2005 16:40
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] OFF - Oportunidade
>
> Desculpem pelo OFF.
>
> Necessita-se programador em Delphi, com desejáveis conhecimentos:
> _Automação Comercial;
> _SQL;
> _Orientação à Objetos.
>
> Enviar currículo para: [EMAIL PROTECTED] assunto: Programador Delphi
>
>
> Grato,
>
> Rogério Ricardo Fernandes
> Desenvolvimento
> http://www.strategies.inf.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
>
> ___
> Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA.
> Participe! www.yahoo.com.br/messenger/promocao
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Gru

[delphi-br] My SQL [OFF]

2005-09-13 Por tôpico Andre de Souza Ferreira 
Bom dia pessoas;

Tô começando a estudar o my sql e gostaria de saber como eu posso entrar neste 
banco como Administrador? Qual a senha e qual os primeiros passos a serem 
seguidos!!!???

Um abraço a todos.

ANDRÉ FERREIRA
GERÊNCIA DE SUBSCRIÇÃO
TEL: (21) 3804 - 2401



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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Calculo de Juros

2005-07-19 Por tôpico Andre de Souza Ferreira 
Wilson;
 
Fiz um trabalho para a faculdade a pouco tempo sobre isto. Dá uma olhadinha no 
histórico da lista. De qualquer forma já te mandei o programa feito.
 
Um abraço.
 
André
 
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Wilson 
Valdevite
Enviada em: terça-feira, 19 de julho de 2005 10:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Calculo de Juros


Galera, bom dia...

Estou tentando montar uma function para cálculo de juros mas estou com 
problemas (nunca fui bom nisso).
Gostaria de saber se alguém tem a fórmula ou alguma dica para que eu monte esta 
function.

Obrigado

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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Dúvida SQL - Urgente

2005-07-11 Por tôpico Andre de Souza Ferreira 
Maurício / Paulo;
 
Obrigado pela dicas, tô testando várias opções!!! Brigadão mesmo!!!
 
André

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Maurício 
Chiarato Vaglieri
Enviada em: segunda-feira, 11 de julho de 2005 14:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Dúvida SQL - Urgente


André,

Acho que o que você está tentando fazer é isso aqui.

A clausula abaixo é bastante simples e realiza a atualização de todas as 
linhas de TABSCI com o valor da ultima compra (Tabela SAP) desde que exista uma 
ultima compra.

UPDATE TABSCI
SET 
  TABSCI.DATAULTIMAVENDASAP = ( SELECT MAX(SAP.DataCadastro) 
FROM SAP
WHERE SAP.CODIGOMEDICO = TABSCI.CODCLIENTE )
WHERE 
   EXISTS (SELECT SAP.DataCadastro 
   FROM SAP 
   WHERE 
  SAP.CODIGOMEDICO = TABSCI.CODCLIENTE)


Abraços,

Mauricio C. Vaglieri
Informatec Sistemas Ltda

  From: Andre de Souza Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 11, 2005 12:37 PM
  Subject: RES: [delphi-br] Dúvida SQL - Urgente


  Na verdade, quero em uma tabela, a última compra do cliente!!!

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Andre de 
Souza Ferreira
  Enviada em: segunda-feira, 11 de julho de 2005 12:20
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Dúvida SQL - Urgente


  Pessoal;

  Bom dia a todos!  Estou tendo dificuldades num update com função agregada 
Alguem pode me ajudar? O comando é este:

  UPDATETABSCI
  SET  TABSCI.DATAULTIMAVENDASAP (Tabela Campo) = ULTIMACOMPRA
  SELECT MAX (SAP.DataCadastro) AS ULTIMACOMPRA, SAP.CODIGOMEDICO
  FROM SAP
  GROUP BY SAP.CodigoMedico
  HAVING  SAP.CODIGOMEDICO = TABSCI.CODCLIENTE

  Sem a função agregada funciona perfeitamente O Sistema não reconhece 
pq o resultado é de função agregada O que tá errado neste código!!


  André Ferreira
  Gesub

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Dúvida SQL - Urgente

2005-07-11 Por tôpico Andre de Souza Ferreira 
Na verdade, quero em uma tabela, a última compra do cliente!!!

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Andre de 
Souza Ferreira
Enviada em: segunda-feira, 11 de julho de 2005 12:20
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Dúvida SQL - Urgente


Pessoal;

Bom dia a todos!  Estou tendo dificuldades num update com função agregada 
Alguem pode me ajudar? O comando é este:

UPDATETABSCI
SET  TABSCI.DATAULTIMAVENDASAP (Tabela Campo) = ULTIMACOMPRA
SELECT MAX (SAP.DataCadastro) AS ULTIMACOMPRA, SAP.CODIGOMEDICO
FROM SAP
GROUP BY SAP.CodigoMedico
HAVING  SAP.CODIGOMEDICO = TABSCI.CODCLIENTE

Sem a função agregada funciona perfeitamente O Sistema não reconhece pq 
o resultado é de função agregada O que tá errado neste código!!


André Ferreira
Gesub


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Dúvida SQL - Urgente

2005-07-11 Por tôpico Andre de Souza Ferreira 
Pessoal;

Bom dia a todos!  Estou tendo dificuldades num update com função agregada 
Alguem pode me ajudar? O comando é este:

UPDATETABSCI
SET  TABSCI.DATAULTIMAVENDASAP (Tabela Campo) = ULTIMACOMPRA
SELECT MAX (SAP.DataCadastro) AS ULTIMACOMPRA, SAP.CODIGOMEDICO
FROM SAP
GROUP BY SAP.CodigoMedico
HAVING  SAP.CODIGOMEDICO = TABSCI.CODCLIENTE

Sem a função agregada funciona perfeitamente O Sistema não reconhece pq 
o resultado é de função agregada O que tá errado neste código!!


André Ferreira
Gesub


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] SQL - Reajustar Coluna - Dúvida d e Iniciante

2005-06-27 Por tôpico Andre de Souza Ferreira 
Muito Obrigado Eduardo!!! Era isso mesmo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Eduardo
Enviada em: segunda-feira, 27 de junho de 2005 12:30
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] SQL - Reajustar Coluna - Dúvida de Iniciante


Ai depende. Se vc quer buscar um determinado valor e acrescentar 18% faca assim.

Select tabela_pc, (valor * 1.18) as Valor from tabela;

Agora se vc quer alterar os dados direto no banco faca assim.

update tabela set valor = valor * 1.18 where tabela_pc = tabela_pc

Eduardo



  - Original Message - 
  From: Andre de Souza Ferreira 
  To: Grupo Delphi (E-mail) 
  Sent: Monday, June 27, 2005 12:17 PM
  Subject: [delphi-br] SQL - Reajustar Coluna - Dúvida de Iniciante


  Pessoal;

  Tenho uma dúvida simples de SQL. Necessito reajustar uma coluna, em uma 
tabela no meu BD.

  Qual o comando a ser utilizado para acrescentar 18% a esses valores?

  Ex:

  Tabela
  Preços Preços reajustados (18%)
  1011,8
  2023,6
  3035,4
  4047,2

  Obrigado a todos



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



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] SQL - Reajustar Coluna - Dúvida de Iniciante

2005-06-27 Por tôpico Andre de Souza Ferreira 
Pessoal;

Tenho uma dúvida simples de SQL. Necessito reajustar uma coluna, em uma tabela 
no meu BD.

Qual o comando a ser utilizado para acrescentar 18% a esses valores?

Ex:

Tabela
Preços Preços reajustados (18%)
10  11,8
20  23,6
30  35,4
40  47,2

Obrigado a todos



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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Resposta ao André sobre SplashS creen.

2005-06-24 Por tôpico Andre de Souza Ferreira 
Obrrigado Hélio, vou tentar este código!!! Segunda te passarei o retorno se 
funcionou Um abraço!
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Hÿe9lio 
Santos
Enviada em: quinta-feira, 23 de junho de 2005 10:07
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Resposta ao André sobre SplashScreen.


André, bom dia.
Tente usar o código abaixo. Pelo menos o splashscreen será solucionado. Não 
deixe de retirar seus forms da autocriação pelo Delphi (como pode notar, o form 
de splash será carregado em tempo de execução e será descarregado após a 
conclusão dos outros form´s). Ah, eu uso Gauge ao contrário de progressbar.

Grande abraço,


frmSplash := TfrmSplash.Create(nil);
  frmSplash.Show;
  With frmSplash do
  begin
Gauge1.MaxValue := 100;
Gauge1.AddProgress(25);
frmSplash.Update;
Application.CreateForm(TDM, DM);
Gauge1.AddProgress(25);
frmSplash.Update;
Application.CreateForm(TListagemDM, ListagemDM);
Gauge1.AddProgress(25);
frmSplash.Update;
Application.CreateForm(TCepDM, CepDM);
Gauge1.AddProgress(25);
frmSplash.Update;
Application.CreateForm(TMainForm, MainForm);
  end;
  frmSplash.Hide;
  frmSplash.Free;
  Application.Run;

Em resposta à:

Boa noite, André.
Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr().

Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes 
de exibir tela de login e a tela principal do programa.
Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um 
programa, não me lembro agora mas assim que lembrar te dou um toque, ok?
Só me lembro que tratei em outro arquivo e não no .DPR

Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último 
projeto meu)

..
  Application.Initialize;
  Application.ShowMainForm := false ;  //=> aqui é para esconder o formulário
 // principal, no seu 
caso, frmJuros
  Application.CreateForm(TfrmJuros, frmJuros);
  frmJuros.Hide;
  Application.Run;
..



-
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

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






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!" - Todos, Es pecial Sheila Dúvida de Splash e Format

2005-06-22 Por tôpico Andre de Souza Ferreira 
Bom dia Sheila;
 
Desculpe-me não ter lhe respondido ontem, estava muito atarefado Em relação 
ao código, por distração minha, estava colocando no lugar errado! Consegui 
concertar o outro erro, o cálculo da taxa não estava saindo certo!!! Era um 
detalhe simples e bobo!!! Veja só abaixo:
 
function TJuros.CalculaTaxa : real;
var
 i, cont: integer;
 somatax : real;
begin
   somatax := 0;
for i:= 1 to temp do
   begin
 taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 
10% é 10 / 100 + 1 => 1,1 (esse é o valor ao dia)
 somatax := somatax * taxfinal; // aki tava somando!!! agora 
vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo   
! irgh!!! :-)
  cont := cont + 1; 
   end;
result := somatax;
end;
 
Vc pode me ajudar em outra situação Ou alguém da lista! O problema é o 
seguinte Coloquei uma Splash como abertura e um progressbar no mesmo. O 
problema é que o compenente não está progredindo!!! Veja o código abaixo!!!
 
program Projeto_Calcular_Juros;
 
uses
  Forms,
  Main in 'Main.pas' {frmJuros},
  clJuros in 'clJuros.pas',
  USplash in 'USplash.pas' {frmSplash};
 
{$R *.res}
 
begin
  Application.Initialize;
   with TfrmSplash.Create(nil) do
  try
 ProgressBar1.Max := 100;
 Show;
 Update;
  Application.Title := 'Projeto_Calcular_Juros';
  ProgressBar1.StepBy(25);   // AKI NÃO TÁ EXECUTANDO
  Application.CreateForm(TfrmJuros, frmJuros);
  ProgressBar1.StepBy(25); // NEM AKI !!
  Application.CreateForm(TfrmSplash, frmSplash);
  finally
 Free;
end;
  Application.Run;
end.
 
Pq não tá rolando? Como o programa é pequeno, a Splash inicializava muito 
rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal):
 
Sleep (5000);
frmJuros.Show;
 
Será que isso tá implicando no progress não funcionar?
 
Outra questão simples e boba é esta! 
 
Tirei da Net esse código da net!
 
 Lista.Add(' O juros para o período é de: R$  ' + formatfloat('##0.00', (X2)) + 
' reais' );
 
O problema é que os números estão aparecendo da segunte forma!!!
 
3,4588754545454e1
 
Alguém pode me dá uma dica!!!???
 
Um abraço a todos!
 
 
 
 
 

 
 
 
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: terça-feira, 21 de junho de 2005 11:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


Olá, André.

Deveria funcionar... o que vc fez
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu

[]'s
Sheila

  - Original Message - 
  From: Andre de Souza Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 20, 2005 8:32 AM
  Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


  Sheila;

  Não funcionou!!?? :-)

  Help!!!

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
  Enviada em: domingo, 19 de junho de 2005 15:04
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


  André,

  faltou criar um objeto do tipo TStringList.

  coloque : 
lista := TstringList.Create;
  antes de:
X1 := Capit * somatax;

  []'s
  Sheila
- Original Message - 
From: André Ferreira 
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
Sent: Sunday, June 19, 2005 2:08 PM
Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


Boa tarde a todos;
Estou fazendo um projeto para o meu professor da faculdade e estou 
desesperado pois não sai mais nada do tico e teco aki! Tô pedindo 
arrego 
aos mais experientes dos grupos pois tô com a corda no pescoço
A questão é a seguinte: preciso construir um objeto juros que possua três 
propriedades, capital, tempo e taxa, e um método que calcule o juros 
simples 
desse capital
Instanciei o objeto Juros da seguinte forma:
  
unit clJuros;

interface

uses
Classes, Dialogs, SysUtils;

Type
TJuros = Class
Protected
tax : real;
capit: real;
temp : integer;
taxfinal : real;
somatax: real;
function CalculaTaxa: real;
public
constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo : 
integer);
function CalculaJuros : TStringList;
end;

implementation

constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real; 
tempo : integer);
begin
tax := taxa;
capit := capital;
temp := temp

RES: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!"

2005-06-21 Por tôpico Andre de Souza Ferreira 
Valeu, vou tentar de novo!!!
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Programação
Enviada em: segunda-feira, 20 de junho de 2005 21:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


André:
São apenas alertas do compilador.
no caso a variável cont não está sendo usada apenas remova as 
referencias a ela
no caso da lista
abaixo do begin coloque:
Lista:= TStringList.Create;
Josafá

Andre de Souza Ferreira escreveu:

>Sheila;
> 
>Não funcionou!!?? :-)
> 
>Help!!!
>
>-Mensagem original-
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
>Enviada em: domingo, 19 de junho de 2005 15:04
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
>código"
>
>
>André,
>
>faltou criar um objeto do tipo TStringList.
>
>coloque : 
>  lista := TstringList.Create;
>antes de:
>  X1 := Capit * somatax;
>
>[]'s
>Sheila
>  - Original Message - 
>  From: André Ferreira 
>  To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
>  Sent: Sunday, June 19, 2005 2:08 PM
>  Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
> código"
>
>
>  Boa tarde a todos;
>  Estou fazendo um projeto para o meu professor da faculdade e estou 
>  desesperado pois não sai mais nada do tico e teco aki! Tô pedindo 
> arrego 
>  aos mais experientes dos grupos pois tô com a corda no pescoço
>  A questão é a seguinte: preciso construir um objeto juros que possua três 
>  propriedades, capital, tempo e taxa, e um método que calcule o juros 
> simples 
>  desse capital
>  Instanciei o objeto Juros da seguinte forma:
>
>  unit clJuros;
>
>  interface
>
>  uses
>  Classes, Dialogs, SysUtils;
>
>  Type
>  TJuros = Class
>  Protected
>  tax : real;
>  capit: real;
>  temp : integer;
>  taxfinal : real;
>  somatax: real;
>  function CalculaTaxa: real;
>  public
>  constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo : 
>  integer);
>  function CalculaJuros : TStringList;
>  end;
>
>  implementation
>
>  constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real; 
>  tempo : integer);
>  begin
>  tax := taxa;
>  capit := capital;
>  temp := tempo;
>  taxfinal := taxafinal;
>  somatax :=somataxa;
>  end;
>
>  function TJuros.CalculaTaxa : real;
>  var
>  i, cont: integer;
>  somatax : real;
>  begin
>  somatax := 0;
>  for i:= 1 to temp do
>  begin
>  taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 / 
> 100 
>  + 1 => 1,1 (esse é o valor ao dia)
>
>
>  somatax := somatax + taxfinal; // depois ele é multiplicado por i, se for 
> 10 
>  dias ele vai multiplicar ex: 1,1 * 1,1 até chegar ao tempo final (10 dias)
>
>
>  cont := cont + 1; // não sei o que acontece aki !!! dá o seguinte erro 
>  [Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que não o 
>  cont não é usado!!! não sei como resolver!!!
>
>
>  end;
>  result := somatax;
>  end;
>
>  function TJuros.CalculaJuros : TStringList;
>  var
>  lista : TstringList;
>  X1, X2 : Real;
>
>  begin
>  X1 := Capit * somatax;
>  X2 := X1 - Capit;
>
>
>  Lista.Add(' O juros para o período é de: ' + floattostr(X2) + ' reais' ); 
> // 
>  aki o erro é este : [Warning] clJuros.pas(57): Variable 'lista' might not 
>  have been initialized, A VARIÁVEL LISTA TALVEZ NÃO FOI INICIALIZADA!!! 
>
>
>  result := Lista;
>  end;
>
>
>  end.
>
>  Como vcs podem perceber, o principal erro está n função calculataxa, onde 
> o 
>  cont não é utilizado  e na calculajuros, onde a variável não foi 
>  inicializada!!!
>
>  No evento click do Botão coloquei o seguinte cpodigo!!!
>
>  unit Main;
>
>  interface
>
>  uses
>  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>  Dialogs, StdCtrls, ExtCtrls, Buttons;
>
>  type
>  TfrmJuros = class(TForm)
>  pnJuros: TPanel;
>  StApresentacao: TStaticText;
>  lblCapital: TLabel;
>  lblTempo: TLabel;
>  lblTaxa: TLabel;
>  txtCapital: TEdit;
>  txtTempo: TEdit;
>  txtTaxa: TEdit;
>  btnCalcularJuros: TBitBtn;
>  mmoResultado: TMemo;
>  pnJuros2: TPanel;
>  Label1: TLabel;
>  procedure btnCalcularJurosClick(Sender: TObject);
>  private
>  { Private declarations }
>  public
>  { Public declarations }
>  end;
>
>  var
>  frmJuros: Tfrm

RES: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no código!!!!"

2005-06-20 Por tôpico Andre de Souza Ferreira 
Sheila;
 
Não funcionou!!?? :-)
 
Help!!!

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


André,

faltou criar um objeto do tipo TStringList.

coloque : 
  lista := TstringList.Create;
antes de:
  X1 := Capit * somatax;

[]'s
Sheila
  - Original Message - 
  From: André Ferreira 
  To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Sunday, June 19, 2005 2:08 PM
  Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help "Erro no 
código"


  Boa tarde a todos;
  Estou fazendo um projeto para o meu professor da faculdade e estou 
  desesperado pois não sai mais nada do tico e teco aki! Tô pedindo 
arrego 
  aos mais experientes dos grupos pois tô com a corda no pescoço
  A questão é a seguinte: preciso construir um objeto juros que possua três 
  propriedades, capital, tempo e taxa, e um método que calcule o juros simples 
  desse capital
  Instanciei o objeto Juros da seguinte forma:

  unit clJuros;

  interface

  uses
  Classes, Dialogs, SysUtils;

  Type
  TJuros = Class
  Protected
  tax : real;
  capit: real;
  temp : integer;
  taxfinal : real;
  somatax: real;
  function CalculaTaxa: real;
  public
  constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo : 
  integer);
  function CalculaJuros : TStringList;
  end;

  implementation

  constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real; 
  tempo : integer);
  begin
  tax := taxa;
  capit := capital;
  temp := tempo;
  taxfinal := taxafinal;
  somatax :=somataxa;
  end;

  function TJuros.CalculaTaxa : real;
  var
  i, cont: integer;
  somatax : real;
  begin
  somatax := 0;
  for i:= 1 to temp do
  begin
  taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 / 
100 
  + 1 => 1,1 (esse é o valor ao dia)


  somatax := somatax + taxfinal; // depois ele é multiplicado por i, se for 10 
  dias ele vai multiplicar ex: 1,1 * 1,1 até chegar ao tempo final (10 dias)


  cont := cont + 1; // não sei o que acontece aki !!! dá o seguinte erro 
  [Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que não o 
  cont não é usado!!! não sei como resolver!!!


  end;
  result := somatax;
  end;

  function TJuros.CalculaJuros : TStringList;
  var
  lista : TstringList;
  X1, X2 : Real;

  begin
  X1 := Capit * somatax;
  X2 := X1 - Capit;


  Lista.Add(' O juros para o período é de: ' + floattostr(X2) + ' reais' ); 
// 
  aki o erro é este : [Warning] clJuros.pas(57): Variable 'lista' might not 
  have been initialized, A VARIÁVEL LISTA TALVEZ NÃO FOI INICIALIZADA!!! 


  result := Lista;
  end;


  end.

  Como vcs podem perceber, o principal erro está n função calculataxa, onde 
o 
  cont não é utilizado  e na calculajuros, onde a variável não foi 
  inicializada!!!

  No evento click do Botão coloquei o seguinte cpodigo!!!

  unit Main;

  interface

  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

  type
  TfrmJuros = class(TForm)
  pnJuros: TPanel;
  StApresentacao: TStaticText;
  lblCapital: TLabel;
  lblTempo: TLabel;
  lblTaxa: TLabel;
  txtCapital: TEdit;
  txtTempo: TEdit;
  txtTaxa: TEdit;
  btnCalcularJuros: TBitBtn;
  mmoResultado: TMemo;
  pnJuros2: TPanel;
  Label1: TLabel;
  procedure btnCalcularJurosClick(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

  var
  frmJuros: TfrmJuros;

  implementation

  uses clJuros;

  {$R *.dfm}

  procedure TfrmJuros.btnCalcularJurosClick(Sender: TObject);
  var
  ojuros, otaxa : TJuros;
  taxa, capital, taxafinal, somataxa : real;
  tempo : integer;
  begin
  mmoResultado.Clear;
  taxa := strtofloat (txtCapital.text);
  capital := strtofloat (txtCapital.text);
  Tempo := strtoint (txtTempo.text);

  otaxa := TJuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO 
  SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE
  ojuros := Tjuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO 
  SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE

  mmoResultado.Lines.AddStrings (ojuros.CalculaJuros);
  otaxa.Free;
  ojuros.Free;

  end;

  end.

  Alguêm pode me socorrer! Posso enviar o código fonte se for 
  melhor!!

  Me ajudem por favor

  Um abraço a todos e obrigado!

  André Ferreira


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



  -- 
  < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




-

RES: [delphi-br] Calcular Juros

2005-06-16 Por tôpico Andre de Souza Ferreira 
Valeu Stock!!! Vou tentar!!!

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Stock
Enviada em: quinta-feira, 16 de junho de 2005 14:44
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Calcular Juros


veja abaixo no seu codigo as observações com ** 

 

[EMAIL PROTECTED]

600 modelos de sites profissionais - Imperdivel

http://www.kitsites.com/index.php?ref=50

 

---Mensagem original---

 

De: Andre de Souza Ferreira

Data: 06/16/05 14:38:49

Para: delphi-br@yahoogrupos.com.br

Assunto: RES: [delphi-br] Calcular Juros

 

Mas isso eu faço fora da classe!!! No evento click do botão. é isso?

 

-Mensagem original-

De: delphi-br@yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br
>mailto:delphi-br@yahoogrupos.com.br">delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]

nome de Stock

Enviada em: quinta-feira, 16 de junho de 2005 14:24

Para: delphi-br@yahoogrupos.com.br

Assunto: Res: [delphi-br] Calcular Juros

 

 

kd o retorno da função?

 

 

 

função=resultado; ou

 

result resultado;

 

 

 

[EMAIL PROTECTED]

 

600 modelos de sites profissionais - Imperdivel

 

http://www.kitsites.com/index.php?ref=50

 

 

 

---Mensagem original---

 

 

 

De: Andre de Souza Ferreira

 

Data: 06/16/05 14:16:41

 

Para: Grupo Delphi \(E-mail\)

 

Assunto: [delphi-br] Calcular Juros

 

 

 

Boa tarde a todos;

 

 

 

Tenho um trabalho na faculdade sobre métodos, que para mim está super

difícil de resolver A questão é a seguinte:

 

 

 

construir um objeto juros que possua três propriedades, capital,tempo e taxa

  e um método que calcule o juros simples desse capital;

 

Comecei a fazer da seguinte forma:

 

interface

 

 

 

  uses

 

 classes, dialogs, sysutilys;

 

 

 

type

 

 TJuros = class

 

 

 

Protected

 

 capital : real;

 

 Taxa: real;

 

 tempo: integer;

 

 somataxa : real;

 

 taxa1: real;

 

 taxafinal: real;

 

 capital1: real;

 

 

 

Public

 

 constructor Construtor (cap, tax, somatax, tax1, taxfinal, cap1: real;

temp : integer);

 

 function CalculaJuros: Real;

 

End;

 

 

 

implementation

 

 

 

constructor Tjuros.construtor (cap, tax, somatax, tax1, taxfinal, cap1: real

  temp : integer);

 

 

 

  begin

 

   capital:=cap;

 

   taxa := tax;

 

   tempo := temp;

 

  end;

 

 

 

 

 

function TJuros.CalculaJuros: real;

 

 

 

  var

 

  i, j : integer;

 

  somataxa, taxa1, taxafinal, capital1: real;

 

 

 

begin

 

   j := tempo;

 

   taxa1:= (taxa / 100) + 1;

 

 

 

   for i := 1 to j do

 

begin

 

 taxafinal := somataxa * taxa1; // Cálculo para saber a taxa final de

juros!!

 

 soma := somataxa + taxafinal; // Soma Taxa

 

end;

 

   capital1 := somataxa * capital;

 

   juros := Capital - Capital1;



** aqui vc tem que passar o valor a ser retornado pela função

** suponhamos que o retorno seja o valor de juros 

** pode fazer assim:

   

CalculaJuros:=juros;



** ou



result:=juros;



** senao como vai saber o que retornar?

 

end;

 

 

 

Gostaria de ter a ajuda de vcs pois não estou sabendo terminar esta

função!!! simplesmente ela não roda O quê há de errado!!!

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

--

 

<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

 

 

 

Para ver as mensagens antigas, acesse:

 

  http://br.groups.yahoo.com/group/delphi-br/messages

 

 

 

Para falar com o moderador, envie um e-mail para:

 

  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 

 

 

Links do Yahoo! Grupos

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

--

<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

 

Para ver as mensagens antigas, acesse:

  http://br.groups.yahoo.com/group/delphi-br/messages

 

Para falar com o moderador, envie um e-mail para:

  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 

Links do Yahoo! Grupos

 

 

 

 

 

 

 

 

 

--

<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

 

Para ver as mensagens antigas, acesse:

  http://br.groups.yahoo.com/group/delphi-br/messages

 

Para falar com o moderador, envie um e-mail para:

  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 

Links do Yahoo! Grupos

 

 

 

 

 

 

 

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 




-- 
<<<<

RES: [delphi-br] Calcular Juros

2005-06-16 Por tôpico Andre de Souza Ferreira 
Mas isso eu faço fora da classe!!! No evento click do botão. é isso?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Stock
Enviada em: quinta-feira, 16 de junho de 2005 14:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Calcular Juros


kd o retorno da função?



função=resultado; ou

result resultado; 

 

[EMAIL PROTECTED]

600 modelos de sites profissionais - Imperdivel

http://www.kitsites.com/index.php?ref=50

 

---Mensagem original---

 

De: Andre de Souza Ferreira

Data: 06/16/05 14:16:41

Para: Grupo Delphi \(E-mail\)

Assunto: [delphi-br] Calcular Juros

 

Boa tarde a todos;

 

Tenho um trabalho na faculdade sobre métodos, que para mim está super
difícil de resolver A questão é a seguinte:

 

construir um objeto juros que possua três propriedades, capital,tempo e taxa
 e um método que calcule o juros simples desse capital;

Comecei a fazer da seguinte forma:

interface

 

  uses

 classes, dialogs, sysutilys;

 

type

 TJuros = class

 

Protected

 capital : real;

 Taxa: real;

 tempo: integer;

 somataxa : real;

 taxa1: real;

 taxafinal: real;

 capital1: real;

 

Public

 constructor Construtor (cap, tax, somatax, tax1, taxfinal, cap1: real;
temp : integer);

 function CalculaJuros: Real;

End;

 

implementation

 

constructor Tjuros.construtor (cap, tax, somatax, tax1, taxfinal, cap1: real
 temp : integer);

 

  begin

   capital:=cap;

   taxa := tax;

   tempo := temp;

  end;

 

 

function TJuros.CalculaJuros: real;

 

  var

  i, j : integer;

  somataxa, taxa1, taxafinal, capital1: real;

 

begin

   j := tempo;

   taxa1:= (taxa / 100) + 1;

 

   for i := 1 to j do

begin

 taxafinal := somataxa * taxa1; // Cálculo para saber a taxa final de
juros!!

 soma := somataxa + taxafinal; // Soma Taxa

end;

   capital1 := somataxa * capital;

   juros := Capital - Capital1;

end;

 

Gostaria de ter a ajuda de vcs pois não estou sabendo terminar esta
função!!! simplesmente ela não roda O quê há de errado!!!

 

 

 

 

 

 

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

 

 

 

--

<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

 

Para ver as mensagens antigas, acesse:

  http://br.groups.yahoo.com/group/delphi-br/messages

 

Para falar com o moderador, envie um e-mail para:

  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 

Links do Yahoo! Grupos

 

 

 

 

 

 

 

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Calcular Juros

2005-06-16 Por tôpico Andre de Souza Ferreira 
Boa tarde a todos;

Tenho um trabalho na faculdade sobre métodos, que para mim está super difícil 
de resolver A questão é a seguinte:

construir um objeto juros que possua três propriedades, capital,tempo e taxa, e 
um método que calcule o juros simples desse capital; 
Comecei a fazer da seguinte forma:
interface

  uses 
 classes, dialogs, sysutilys;

type
 TJuros = class
 
Protected
 capital : real;
 Taxa: real;
 tempo: integer;
 somataxa : real;
 taxa1: real;
 taxafinal: real;
 capital1: real;

Public
 constructor Construtor (cap, tax, somatax, tax1, taxfinal, cap1: real; 
temp : integer);
 function CalculaJuros: Real;
End;

implementation

constructor Tjuros.construtor (cap, tax, somatax, tax1, taxfinal, cap1: real; 
temp : integer);

 begin
   capital:=cap;
   taxa := tax;
   tempo := temp;
 end;


function TJuros.CalculaJuros: real;

 var
  i, j : integer;
  somataxa, taxa1, taxafinal, capital1: real;
 
begin
   j := tempo;
   taxa1:= (taxa / 100) + 1; 
   
   for i := 1 to j do
begin
 taxafinal := somataxa * taxa1; // Cálculo para saber a taxa final de 
juros!!
 soma := somataxa + taxafinal; // Soma Taxa
end;
   capital1 := somataxa * capital;
   juros := Capital - Capital1;
end;

Gostaria de ter a ajuda de vcs pois não estou sabendo terminar esta função!!! 
simplesmente ela não roda O quê há de errado!!!






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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Database - Pergunta de iniciante

2005-03-10 Por tôpico Andre de Souza Ferreira 

Oi Fernanda;
 
Se for usar um table ou uma query tenho que linkar os dois ao database?

-Mensagem original-
De: Fernanda Aparecida Sobral [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 10 de março de 2005 08:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Database - Pergunta de iniciante


Bom dia,

Além de conectar ao banco, o componente database é responsável pelo controle de 
transações em banco de dados.


Andre de Souza Ferreira <[EMAIL PROTECTED]> wrote:

Bom dia a todos!!!

Alguém poderia me esclarecer qual é a função do Database num form??? A função 
dele é apenas se conectar ao BD e permitir acesso e ele??? 

Um abraço.


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
<http://br.rd.yahoo.com/SIG=12aogim1s/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1110540927/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>


 
<http://br.rd.yahoo.com/SIG=12aogim1s/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1110540927/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
 
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Database - Pergunta de iniciante

2005-03-10 Por tôpico Andre de Souza Ferreira 

Bom dia a todos!!!

Alguém poderia me esclarecer qual é a função do Database num form??? A função 
dele é apenas se conectar ao BD e permitir acesso e ele??? 

Um abraço.


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: RES: [delphi-br] Rotina para números

2005-03-07 Por tôpico Andre de Souza Ferreira 

Fala João/Murilo;
 
Não tô conseguindo implementar, vcs podem me dar um algorítimo para me ajudar?
 
Um abraço.

-Mensagem original-
De: Murilo Cunha (Yahoo) [mailto:[EMAIL PROTECTED]
Enviada em: sábado, 5 de março de 2005 15:22
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] Rotina para números 



Joao Paulo,

Obrigado pela dica!!!
Gracas a vc, consegui detectar e resolver um problema q iria me aporrinhar a
vida no futuro: "Duplicacao de PK"

Valeu a todos.

MSc.: Murilo Cesar Starke da Cunha
Engenheiro Agrônomo
[EMAIL PROTECTED]
[EMAIL PROTECTED] (MSN)




-Mensagem original-
De: Joao Paulo L.G. [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 4 de março de 2005 13:48
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Rotina para números 



Acredito que a abertura de uma transação só resolve o problema se a consulta
e a inserção se derem na mesma transação. Se houver a consulta primeiro, o
código gerado for mostrado e posteriormente houver a inserção, o problema
continua.


--- Rodrigo Othavio Farias <[EMAIL PROTECTED]>
escreveu: 

-
é só abrir uma transação no banco que resolve o problema


[]´s
Rodrigo O. Farias

- Original Message -
From: Joao Paulo L.G.
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 03, 2005 4:18 PM
Subject: Re: RES: [delphi-br] Rotina para números



Fique atento com o fato de que, no caso de vários
usuários incluindo ao mesmo tempo, vc pode ter
colisões (vários usuários obtendo o mesmo código).


--- Andre de Souza Ferreira
<[EMAIL PROTECTED]> escreveu:

-
Valeu pela dica Rodrigo!

-Mensagem original-
De: Rodrigo Othavio Farias [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 3 de março de 2005 10:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Rotina para números


ProximoCod = Select Max(Cod) +1 from tabela




[]´s
Rodrigo O. Farias


- Original Message - 
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Sent: Thursday, March 03, 2005 10:25 AM
Subject: [delphi-br] Rotina para números


Pessoal;

Alguém poderia me enviar, ou dizer como faço uma
rotina para adquirir um
número de cadastro sequencial?

Exemplo: Vou cadastrar um cliente e quero que ao
entrar no cadastro ele já
possa me informar automáticamente um número, ex:
01/2005, e assim por
diante

E em 01/01/2006, ele passe a 01/2006, 02/2006 .

Algúem pode me ajudar???

Muito obrigado!


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília





Links do Yahoo! Grupos

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

Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

O uso que você faz do Yahoo! Grupos está sujeito aos
Termos do Serviço do
Yahoo!.



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:



< http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>




< http://br.rd.yahoo.com/SIG=12ao3sn09/M=264105.3931087.6562589.1588051/D=brc
lubs/S=2137111264:HM/EXP=1109943648/A=2361264/R=6/SIG=10v4acpp0/* http://br.s
hopping.yahoo.com/>



  _

Links do Yahoo! Grupos


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


*  Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>



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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo
 Rio de Janeiro
CuritibaPorto
AlegreBelo Horizonte
 Brasília


-
Links do Yahoo! Grupos

   Para

RES: [delphi-br] Fwd: Fw: COMO DETECTAR UM ENFARTE

2005-03-03 Por tôpico Andre de Souza Ferreira 

Concordo totalmente com o Rogério! Ninguém merece

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 2 de março de 2005 15:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Fwd: Fw: COMO DETECTAR UM ENFARTE


Outra m. ??
Moderadores... façam algo, plis !!! Obrigado !
[]'s

- Original Message - 
From: "João Batista Guaraldo" <[EMAIL PROTECTED]>
To: "Moderador do grupo 1BOM_DIA" <[EMAIL PROTECTED]>;
"Delphi Br" ; "Moderador do grupo folha_livre"
<[EMAIL PROTECTED]>; "FolhaLivre"
<[EMAIL PROTECTED]>; "Giani®" <[EMAIL PROTECTED]>; "Moderador
do grupo minutoscomdeus" <[EMAIL PROTECTED]>
Sent: Wednesday, March 02, 2005 1:18 PM
Subject: [delphi-br] Fwd: Fw: COMO DETECTAR UM ENFARTE




Caros amigos.



Leiam abaixo e retransmsitam para o máximo de pessoas possível.

Ajudemos a saalvar vidas.



João Guaraldo



@font-face { font-family: Tahoma;[EMAIL PROTECTED] { font-family: Comic Sans
MS;[EMAIL PROTECTED] { font-family: Cursive;[EMAIL PROTECTED] Section1 {size: 
612.0pt
792.0pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; }P.MsoNormal { FONT-SIZE:
12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"}LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New
Roman"}DIV.MsoNormal { FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY:
"Times New Roman"}A:link { COLOR: blue; TEXT-DECORATION:
underline}SPAN.MsoHyperlink { COLOR: blue; TEXT-DECORATION:
underline}A:visited { COLOR: purple; TEXT-DECORATION:
underline}SPAN.MsoHyperlinkFollowed { COLOR: purple; TEXT-DECORATION:
underline}P { FONT-SIZE: 12pt; MARGIN-LEFT: 0cm; MARGIN-RIGHT: 0cm;
FONT-FAMILY: "Times New Roman"}SPAN.EmailStyle18 { COLOR: navy; FONT-FAMILY:
Arial}DIV.Section1 { page: Section1}
Prezados amigos, recebi o texto abaixo de uma amiga e posso dizer que a
coisa faz sentido e mais ainda: ao se detectar ou simplesmente suspeitar de
um enfarto, respire ou mande respirar profundamente e mantenha a vítima
constantemente sendo lembrada de respirar suave e profundamente durante todo
o tempo em que vc já a estiver levando a um hospital. Um dos sistemas de
ensino de atendimento emergencial (ATLS - advanced trauma life support)
afirma que a prestesa em se dar oxigênio à vítima de um infarto é o melhor
padrão de avaliação da qualidade de um sistema de atendimento cardiológico
emergencial.

Leia atentamente o texto abaixo e procure entendê-lo.

Fraternalmente,

Lino Guedes Pires -  médico
Estrada da Matriz, 7245 Ilha de Guaratiba
Rio de Janeiro RJ





Como detectar um enfarte...
Eu não conhecia este procedimento tão simples para determinar se alguém

<>está a sofrer um enfarte. Envio-vos por considerar o seu interesse. Às
vezes
os sintomas de um enfarte são difíceis de identificar. Infelizmente, a
falta
de conhecimentos provoca desastres irreversíveis. A vítima de um enfarte
pode sofrer danos cerebrais, se as pessoas próximas não reconhecerem os
sintomas e não as socorrerem a tempo. Agora os médicos dizem que um simples
espectador pode reconhecer um enfarte, fazendo três simples testes à
pessoa,
um depois do outro:
1.- Peça à pessoa que sorria;
2.- Solicite-lhe que levante ambos os braços;
3.- Peça-lhe que repita uma frase simples.
Se a pessoa tiver algum problema para realizar qualquer uma destas três
<>tarefas, ligue para as emergências ou para a ambulância imediatamente, e
diga-lhes que há uma pessoa a sofrer de um enfarte, descrevendo à pessoa
que
o atender os sintomas que observou. Depois de descobrir que um grupo de
voluntários sem conhecimentos médicos podiam identificar a debilidade
facial, a debilidade dos braços e problemas da fala, os investigadores
convidaram o público em geral a aprender o procedimento e a diagnosticar o
enfarte.
Esta informação foi apresentada na reunião anual da Associação Americana
<>contra o enfarte, em Fevereiro deste ano. O uso divulgado
desta prova poderia produzir o diagnóstico e o tratamento a tempo de um
<>enfarte e prevenir os danos cerebrais. Um cardiologista avisou que se
todos
os que lerem este correio electrónico o reenviarem para outras 10 pessoas,
podem apostar que pelo menos se salvará uma vida.
SEJA UM BOM AMIGO E ENVIE ESTE ARTIGO A TANTOS AMIGOS QUANTO POSSÍVEL,

PODE VIR A SALVAR ALGUMAS VIDAS.


-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
Yahoo! agora.

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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Gr

RES: [delphi-br] Rotina para números

2005-03-03 Por tôpico Andre de Souza Ferreira 

Valeu pela dica Rodrigo!

-Mensagem original-
De: Rodrigo Othavio Farias [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 3 de março de 2005 10:34
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Rotina para números 


ProximoCod = Select Max(Cod) +1 from tabela




[]´s
Rodrigo O. Farias


- Original Message - 
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Cc: [EMAIL PROTECTED]
Sent: Thursday, March 03, 2005 10:25 AM
Subject: [delphi-br] Rotina para números


Pessoal;

Alguém poderia me enviar, ou dizer como faço uma rotina para adquirir um
número de cadastro sequencial?

Exemplo: Vou cadastrar um cliente e quero que ao entrar no cadastro ele já
possa me informar automáticamente um número, ex: 01/2005, e assim por
diante

E em 01/01/2006, ele passe a 01/2006, 02/2006 .

Algúem pode me ajudar???

Muito obrigado!


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília





Links do Yahoo! Grupos

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

Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


  <http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>

 
 
<http://br.rd.yahoo.com/SIG=12ao3sn09/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109943648/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>



  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] RES: Rotina para números

2005-03-03 Por tôpico Andre de Souza Ferreira 


> Pessoal;
> 
> Alguém poderia me enviar, ou dizer como faço uma rotina para adquirir um 
> número de cadastro sequencial? 
> 
> Exemplo: Vou cadastrar um cliente e quero que ao entrar no cadastro ele já 
> possa me informar automáticamente um número, ex: 01/2005, e assim por 
> diante
> 
> E em 01/01/2006, ele passe a 01/2006, 02/2006 .
> 
> Algúem pode me ajudar???
> 
> Muito obrigado!


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Rotina para números

2005-03-03 Por tôpico Andre de Souza Ferreira 

Pessoal;

Alguém poderia me enviar, ou dizer como faço uma rotina para adquirir um número 
de cadastro sequencial? 

Exemplo: Vou cadastrar um cliente e quero que ao entrar no cadastro ele já 
possa me informar automáticamente um número, ex: 01/2005, e assim por diante

E em 01/01/2006, ele passe a 01/2006, 02/2006 .

Algúem pode me ajudar???

Muito obrigado!


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Select

2005-02-28 Por tôpico Andre de Souza Ferreira 

Mas ela est[a nesse formato, so que da problema de sintaxe!!!



De: Daniel Pohren [mailto:[EMAIL PROTECTED]
Enviada: seg 28/2/2005 10:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Select


Cara, datai e dataf estão no formato americano? (mm/dd/yy) Para
alimentar uma data diretamente dentro do texto do SQL ela deve estar
neste formato


On Mon, 28 Feb 2005 09:18:42 -0300, Giovani - Terra
<[EMAIL PROTECTED]> wrote:
> 
> Vc já debugou o programa pra ver quando dá esse erro?
>  - Original Message -
>  From: Andre de Souza Ferreira
>  To: delphi-br@yahoogrupos.com.br
>  Sent: Sunday, February 27, 2005 6:40 PM
>  Subject: [delphi-br] Select
> 
>  ?
>  Pessoal;
> 
>  Estou com um programa para cadastramento de clientes onde dou uma opcao para 
> ele imprimir clientes cadastrados para qualquer período.
> 
>  Os comandos estão certos e e assim:
> 
>  Datamodule1.Query1.SQL.Add('Select * from Tabela_cotacao where Dt_Entrada 
> Between' + Char(39)
>  + Datai.text + Char(39) +  'and' + Char(39) +  Dataf.text + Char (39) );  // 
> Pega a relacao de clientes entre Datai (data inicio) e dataf (data fim)
> 
>  So que para uma data que não possui cadastramento de clientes da o seguinte 
> erro:
> 
>  ---
>  Debugger Exception Notification
>  ---
>  Project SCCM.exe raised exception class EDBEngineError with message 'Type 
> mismatch in expression.'. Process stopped. Use Step or Run to continue.
>  ---
>  OK   Help
>  ---
> 
>  Alguem sabe como posso fazer um tratamento de erro para este caso?
> 
>  [As partes desta mensagem que não continham texto foram removidas]
> 
>  --
>  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
>  Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
> 
>  Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> 
>Yahoo! Grupos, um serviço oferecido por:
> 
> --
>  Links do Yahoo! Grupos
> 
>a.. Para visitar o site do seu grupo na web, acesse:
>http://br.groups.yahoo.com/group/delphi-br/
> 
>b.. Para sair deste grupo, envie um e-mail para:
>[EMAIL PROTECTED]
> 
>c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
> do Yahoo!.
> 
> --
> 
>  No virus found in this incoming message.
>  Checked by AVG Anti-Virus.
>  Version: 7.0.300 / Virus Database: 266.5.0 - Release Date: 25/2/2005
> 
>  --
> 
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 266.5.1 - Release Date: 27/2/2005
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
> 
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> 
> Links do Yahoo! Grupos
> 
> 
> 
> 
> 


-- 
Daniel Pohren
   Naphta Informática


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


 
 
<http://br.rd.yahoo.com/SIG=12agkm64j/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109682627/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>




Links do Yahoo! Grupos


*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  
*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo! <http://br.yahoo.com/info/utos.html> . 




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Select

2005-02-27 Por tôpico Andre de Souza Ferreira 

?
Pessoal;
 
Estou com um programa para cadastramento de clientes onde dou uma opcao para 
ele imprimir clientes cadastrados para qualquer período.
 
Os comandos estão certos e e assim:
 
Datamodule1.Query1.SQL.Add('Select * from Tabela_cotacao where Dt_Entrada 
Between' + Char(39)
+ Datai.text + Char(39) +  'and' + Char(39) +  Dataf.text + Char (39) );  // 
Pega a relacao de clientes entre Datai (data inicio) e dataf (data fim)

So que para uma data que não possui cadastramento de clientes da o seguinte 
erro:
 
---
Debugger Exception Notification
---
Project SCCM.exe raised exception class EDBEngineError with message 'Type 
mismatch in expression.'. Process stopped. Use Step or Run to continue.
---
OK   Help   
---
 
Alguem sabe como posso fazer um tratamento de erro para este caso?



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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Dúvida - UnKnow Database

2005-02-15 Por tôpico Andre de Souza Ferreira 

Obrigado pela dica!!!
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Eduardo Silva ® [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de fevereiro de 2005 09:09
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Dúvida - UnKnow Database


Amigo, não tenho certeza, mas me parece que o BDE não esta instalado. Será
que é isso ?
  -Mensagem original-
  De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
  Enviada em: terça-feira, 15 de fevereiro de 2005 08:55
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Dúvida - UnKnow Database


  Pessoal;

  Fiz um sistema com acesso a banco de dados paradox e instalei na minha
máquina aqui no trabalho, no entanto, quando fui executar meu programa, deu
o seguinte erro:

  UNKNOWN DATABASE
  ALIAS_BS

  Qando fechei, deu outro erro:

  EXCEPTION EDBENGINEERRO IN MODULE
  SCCM.EXE AT 00BD292
  UNKNOWN DATABASE
  ALIAS_BS

  PERGUNTA: O que preciso, configurar, ou intalar na minha, para meu sistema
funcionar???


  Agradeço a todos.


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



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
<http://br.rd.yahoo.com/SIG=12avbrrv2/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1108551839/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>


 
<http://br.rd.yahoo.com/SIG=12avbrrv2/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1108551839/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
 
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Dúvida - UnKnow Database

2005-02-15 Por tôpico Andre de Souza Ferreira 

Pessoal;

Fiz um sistema com acesso a banco de dados paradox e instalei na minha máquina 
aqui no trabalho, no entanto, quando fui executar meu programa, deu o seguinte 
erro:

UNKNOWN DATABASE
ALIAS_BS

Qando fechei, deu outro erro:

EXCEPTION EDBENGINEERRO IN MODULE
SCCM.EXE AT 00BD292
UNKNOWN DATABASE
ALIAS_BS

PERGUNTA: O que preciso, configurar, ou intalar na minha, para meu sistema 
funcionar???


Agradeço a todos.


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] DBEdit

2005-01-29 Por tôpico Andre de Souza Ferreira 

?
Pessoal;
 
Tenho um grupo de DBEdit's no meu formulário, responsáveis por cadastrar 
informações numa determinada tabela. Coloquei um botom com o seguinte Código:
 
Table1.insert; (O usuário após cadastrar todas as informações, clica no 
bottom para efetivar as informações no Banco de dados)
 
Porém, só consigo cadastrar apenas uma vez. Na segunda vez, a informação é 
sobreposta na primeira! Como faço para consertar isso!?
 
Agradeço se alguém puder me ajudar!!!  


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Imagem

2005-01-29 Por tôpico Andre de Souza Ferreira 

?
Pessoal;
 
Alguem sabe como faço para intercalar 4 imagens no componente imagem? 
 
Um abraço a todos!


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Criar Relatório em Memória

2005-01-26 Por tôpico Andre de Souza Ferreira 

?
Pessoal;
 
Alguém sabe como crio um relatório na memória e depois exibir ele???
 
Um abraço a todos.


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Erro no QuickReport - URGENTE

2005-01-25 Por tôpico Andre de Souza Ferreira 

?
Ola a todos;
 
Pessoal, estou produzindo um relatório com o Delphi 7, meu aplicativo possui 4 
forms, um chamando o outro! Ate ai blz!   Porem ele me apresenta o seguinte 
erro, em relacao ao formato de um form(onde ta o relatorio):  
 
Projeto elevou classe de exceção EAccessViolation com mensagem ' violação 
de Acesso a endereço 004E67CF em módulo. Leia de endereço 0300 '. 
Processo parou. 
 
 
Aguem da lista poderia me explicar o porque que o comando abaixo está errado:
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 try
  form4.QRPreview1.QRPrinter.OnPreview:=form3.QuickRep1.onpreview;
 except
  exit;
 end;
end;
 
 
Já li o Help 300 vezes e não consegui resolver o meu problema!


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] QUICK REPORT

2005-01-22 Por tôpico Andre de Souza Ferreira 

?
Valeu chará



De: Andre Luis - Yahoo [mailto:[EMAIL PROTECTED]
Enviada: sáb 22/1/2005 10:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] QUICK REPORT


Se vc quiser usar o Quick Report para usar o Delphi boleto basta seguir os 
seguintes passos para instalar o pacote Quick Report  já ±ue o mesmo n㯠e 
instalado por padr㯠no Delphi 7:

1- Abra o Delphi 7 e clique em Componente > Install Packages... . Em seguida 
veremos os pacotes que já ¥st㯠instalados;

2- Agora basta clicar em ADD e procurar pelos arquivos DCLQRT70.BPL e 
DCLQR70.BPL que est㯠localizados no diret󲩯 BIN do Delphi ;

3- Depois disso ser㯠mostrados os componentes instalados.
  - Original Message - 
  From: Andre de Souza Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, January 22, 2005 1:58 AM
  Subject: [delphi-br] QUICK REPORT


  ?
  PESSOAL;

  BOA NOITE, SOU INICIANTE EM DELPHI E TO ESTUDANDO POR UM LIVRO E ME DEPAREI 
COM O CAPITULO QUICK REPORT! COMO FAÿO PARA INSTALAR ESSE COMPONENTE NO DELPHI 
7? POSSO FAZER PELA NET? DESCULPE-ME PELA FALTA DE NOÿæO!

  UM ABRAÿO A TODOS.


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



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviç¯ oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você ¦az do Yahoo! Grupos está ³ujeito aos Termos do Serviç¯ 
do Yahoo!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/05

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/05


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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviç¯ oferecido por:


 
 
<http://br.rd.yahoo.com/SIG=12a1tsn63/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1106484152/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>




Links do Yahoo! Grupos


*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  
*   O uso que você ¦az do Yahoo! Grupos está ³ujeito aos Termos do Serviç¯ 
do Yahoo! <http://br.yahoo.com/info/utos.html> . 




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] QUICK REPORT

2005-01-21 Por tôpico Andre de Souza Ferreira 

?
PESSOAL;
 
BOA NOITE, SOU INICIANTE EM DELPHI E TO ESTUDANDO POR UM LIVRO E ME DEPAREI COM 
O CAPITULO QUICK REPORT! COMO FAÃ?O PARA INSTALAR ESSE COMPONENTE NO DELPHI 7? 
POSSO FAZER PELA NET? DESCULPE-ME PELA FALTA DE NOÃ?ÃfO!
 
UM ABRAÃ?O A TODOS.


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Tratamento de Erro!!!

2004-12-30 Por tôpico Andre de Souza Ferreira 

Nicholas / Neto ou alguém da Lista!!!
 
Socorro
 
Como utilizo a função abaixo com algum tipo de cálculo? Sem o cálculo a função 
funciona perfeitamente, mas com o mesmo aí complica!!! É aquela função de 
tratamento de erro!!! Lembram???
 
ex: a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.text);
  c:=a*b;
  Showmessage (floattostr(c));
 
A função é esta!
 
 
no evento OnClick do Button faça o seguinte:

procedure TformMails.Button1Click(Sender: TObject);
  function Valida: Boolean;
  var i: integer;
  begin
Result := True
for i := 1 to ComponentCount - 1 do
begin
  // nesta comparaçao é só colocar os componentes q vc tein na tela e fazer
  // o mesmo para cada componente com a respectiva propriedade
  if ( Components[i] is TEdit ) then
if ( Components[i] as TEdit ).Text = '' then
begin
  Result := False
  Break;
end;
end;
  end;
begin
  if not Valida then
Application.MessageBox( 'Favor inserir Dados!!!', 'Aviso', MB_OK + 
MB_ICONWARNING );
end;

 
 

-Mensagem original-
De: Nicholas Eduardo [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 29 de dezembro de 2004 18:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Tratamento de Erro!!!


De nada!! estamos ae pra isso!!


Nicholas Eduardo Lopes dos Santos
Analista/Programador - Desenvolvimento
E-mail: [EMAIL PROTECTED]
Msn: [EMAIL PROTECTED]
Datapar - S.R.L.
Ciudad del Este - Py

  - Original Message - 
  From: Artur Rodrigo Guerra 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 29, 2004 11:02 AM
  Subject: RES: [delphi-br] Tratamento de Erro!!!


  O Nichola já deu a solução que eu ia passar ...
  Valeu Nicholas !

  -Mensagem original-
  De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 29 de dezembro de 2004 12:45
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Tratamento de Erro!!!



  Artur; todos são TDEdit !!!


  Att.
  André Ferreira
  Brasilsaúde Cia de Seguros

  -Mensagem original-
  De: Artur Rodrigo Guerra [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 29 de dezembro de 2004 09:45
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Tratamento de Erro!!!


  Todos os componentes da tela são do tipo TDBEdit ? Ou existem vários tipos
  de componentes ?

  -Mensagem original-
  De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 29 de dezembro de 2004 09:40
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Tratamento de Erro!!!



  Bom dia galera;

  Estou com um dúvida com relação a um tratamento de erro de um Button. Fiz um
  formulário que insere dados em uma tabela, só que se ele não preencher nada
  no formulário e apertar o Button "inserir dados" dá erro. Na verdade, a
  codificação que quero escrever no evento OnKeyPress do Buton é o seguinte:

  Se o Imbecil do usuário apertar o botão sem inserir dados
 mensagem " Favor inserir Dados!!!"

  Rs!!!


  Um abraço a todos!!!


 



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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Tratamento de Erro!!!

2004-12-29 Por tôpico Andre de Souza Ferreira 

Artur; todos são TDEdit !!!
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Artur Rodrigo Guerra [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 29 de dezembro de 2004 09:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Tratamento de Erro!!!


Todos os componentes da tela são do tipo TDBEdit ? Ou existem vários tipos
de componentes ?

-Mensagem original-
De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 29 de dezembro de 2004 09:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tratamento de Erro!!!



Bom dia galera;

Estou com um dúvida com relação a um tratamento de erro de um Button. Fiz um
formulário que insere dados em uma tabela, só que se ele não preencher nada
no formulário e apertar o Button "inserir dados" dá erro. Na verdade, a
codificação que quero escrever no evento OnKeyPress do Buton é o seguinte:

Se o Imbecil do usuário apertar o botão sem inserir dados
   mensagem " Favor inserir Dados!!!"

Rs!!!


Um abraço a todos!!!


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



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


  <http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>

 
 
<http://br.rd.yahoo.com/SIG=12aq5rror/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1104413634/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>



  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Tratamento de Erro!!!

2004-12-29 Por tôpico Andre de Souza Ferreira 

Bom dia galera;

Estou com um dúvida com relação a um tratamento de erro de um Button. Fiz um 
formulário que insere dados em uma tabela, só que se ele não preencher nada no 
formulário e apertar o Button "inserir dados" dá erro. Na verdade, a 
codificação que quero escrever no evento OnKeyPress do Buton é o seguinte:

 Se o Imbecil do usuário apertar o botão sem inserir dados
   mensagem " Favor inserir Dados!!!"
 
Rs!!!


Um abraço a todos!!!


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Procedure

2004-12-28 Por tôpico Andre de Souza Ferreira 

Muito obrigado pela dica Nicholas, vou tentar fazer declarando minha variável 
como global. Se complicar uso a segunda opção! Ou até mesmo função, como 
mencionou o André Argeli.
 
Um abraço.

-Mensagem original-
De: Nicholas Eduardo [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 28 de dezembro de 2004 17:21
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Procedure


bom...entaun vc tein duas opcoes!!!

uma e a mais simples seria vc colocar a variavel "a" como sendo global!!!

a segunda é a utilização de passagem por parametro.--->> aqui vc pode fazer da 
seguinte forma...::
- elimina a variavel local da procedure Y;
- declara a procedure da seguinte forma --> procedure ( a: real ); e 
utiliza o parametro. 

OBS: No caso de utilizar a segunda opção avalie se a variavel "a" vai sofrer 
alteração na procedure . Se ela sofrer alteração e essa alteração deve 
ocorre, também, na procedure  vc devera declarar a procedure Y da seguinte 
forma --> procedure ( var a: real );


mas eu te pergunto... vc chama a procedure  entro da procedure ??
se o faz, basta utilizar a segunda opçãocaso o contrario vc terá q utilizar 
a primeira opção.


Espero ter ajudado.!!!



Nicholas Eduardo Lopes dos Santos
Analista/Programador - Desenvolvimento
[EMAIL PROTECTED]
Datapar - S.R.L.
Ciudad del Este - Py

  - Original Message - 
  From: Andre de Souza Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, December 28, 2004 3:41 PM
  Subject: RES: [delphi-br] Procedure


  Na verdade declarei ela nas duas procedures! 

  ex: Procedure 
 var
  a,b,c: Real;
  . 
  .
  .
   Procedure 
Var 
 a:real;



  Att. 
  André Ferreira 
  Brasilsaúde Cia de Seguros 

  -Mensagem original-
  De: Nicholas Eduardo [mailto:[EMAIL PROTECTED]
  Enviada em: terça-feira, 28 de dezembro de 2004 16:38
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Procedure



  Ola Andre...

  a variavel "a" está declarada como global ou esta local na procedure XX??

  Nicholas Eduardo Lopes dos Santos
  Analista/Programador - Desenvolvimento
  [EMAIL PROTECTED]
  Datapar - S.R.L.
  Ciudad del Este - Py

    ----- Original Message - 
From: Andre de Souza Ferreira 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, December 28, 2004 3:28 PM
Subject: [delphi-br] Procedure


Pessoal;

Boa tarde a todos!!! Alguém poderia me dar uma ajuda em relação a duas 
procedures. A questão é a seguinte: Tenho duas Procedures, a primeira é 
responsável por um tipo de cálculo, e a segunda capta o resultado desses 
cálculos e me mostra num ListBox. Mas não estou conseguindo fazer eles se 
comunicarem!!! Como eu faço isso?

Exemplo rápido:

Procedure XX
   .
   .
   .
a:=b*c;

Procedure y
   .
   .
   .
   ListBox.Items.add(a);


?   
  
  



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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por: 
PUBLICIDADE
  
 


  --
Links do Yahoo! Grupos

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

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
Serviço do Yahoo!. 



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



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




  Yahoo! Grupos, um serviço oferecido por:  

  < 
http://br.rd.yahoo.com/SIG=12aubk5mp/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1104345482/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
   

  < 
http://br.rd.yahoo.com/SIG=12aubk5mp/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1104345482/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
   
  São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


_  

  Links do Yahoo! Grupos


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


  *  Para sair deste grupo, envie um e-mail par

RES: [delphi-br] Procedure

2004-12-28 Por tôpico Andre de Souza Ferreira 

Na verdade declarei ela nas duas procedures! 
 
ex: Procedure 
   var
a,b,c: Real;
. 
.
.
 Procedure 
  Var 
   a:real;
 
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Nicholas Eduardo [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 28 de dezembro de 2004 16:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Procedure



Ola Andre...

a variavel "a" está declarada como global ou esta local na procedure XX??

Nicholas Eduardo Lopes dos Santos
Analista/Programador - Desenvolvimento
[EMAIL PROTECTED]
Datapar - S.R.L.
Ciudad del Este - Py

  - Original Message - 
  From: Andre de Souza Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, December 28, 2004 3:28 PM
  Subject: [delphi-br] Procedure


  Pessoal;

  Boa tarde a todos!!! Alguém poderia me dar uma ajuda em relação a duas 
procedures. A questão é a seguinte: Tenho duas Procedures, a primeira é 
responsável por um tipo de cálculo, e a segunda capta o resultado desses 
cálculos e me mostra num ListBox. Mas não estou conseguindo fazer eles se 
comunicarem!!! Como eu faço isso?

  Exemplo rápido:

  Procedure XX
 .
 .
 .
  a:=b*c;

  Procedure y
 .
 .
 .
 ListBox.Items.add(a);


  ?   





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



  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
<http://br.rd.yahoo.com/SIG=12aubk5mp/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1104345482/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>


 
<http://br.rd.yahoo.com/SIG=12aubk5mp/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1104345482/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
 
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
  

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




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



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Procedure

2004-12-28 Por tôpico Andre de Souza Ferreira 

Pessoal;

Boa tarde a todos!!! Alguém poderia me dar uma ajuda em relação a duas 
procedures. A questão é a seguinte: Tenho duas Procedures, a primeira é 
responsável por um tipo de cálculo, e a segunda capta o resultado desses 
cálculos e me mostra num ListBox. Mas não estou conseguindo fazer eles se 
comunicarem!!! Como eu faço isso?

Exemplo rápido:
 
 Procedure XX
   .
   .
   .
a:=b*c;

 Procedure y
   .
   .
   .
   ListBox.Items.add(a);


?   
  
  



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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Dúvida sobre um loop

2004-12-27 Por tôpico Andre de Souza Ferreira 

Não, tá calculando fora! Dá uma olhadinha na procedure abaixo!
 
> > procedure TForm1.ProcessarClick(Sender: TObject);
> > Var
> > Salario, Maior_Salario, Soma_Salario, 
> > Soma_Filhos,Media_Salario, Media_Filho, Salario_Inicial, 
> > Percentual: Real;
> > Filhos, Cont, Conta_Sal_100: Integer;
> > begin
> >  Salario:= StrtoFloat (Edit1.Text);
> >  Filhos:= StrtoInt (Edit2.Text);
> >  While Salario < 0 do
> >  Soma_Salario:=0;
> >  Soma_Filhos:=0;
> >  Cont:=0;
> >  Conta_Sal_100:=0;
> >  Salario_Inicial:=Salario;
> >  Maior_Salario:=0;
> >   begin
> >  Soma_Salario:=Soma_Salario + Salario;
> >  Soma_Filhos:=Soma_Filhos + Filhos;
> >   if Salario<= 100 then
> >  Conta_Sal_100:=Conta_Sal_100 + 1;
> >   if Salario >= Salario_Inicial then
> >  Maior_Salario:= Salario;
> >  Cont:=Cont + 1;
> >   end;
> >   Edit1.Clear;
> >   Edit2.Clear;
> >   Edit1.SetFocus;
> >   Media_Salario:=Soma_Salario/Cont;
> >   Media_Filho:=Soma_Filhos/Cont;
> >   Percentual:=(Conta_Sal_100/Cont)/100;
> >   Memo1.Lines.Add('A Média de Salário da População é de 
> > R$ ' + Floattostr(Media_Salario) + #13);
> >   Memo1.Lines.Add('A Média de Filhos da População é de  ' 
> > + Floattostr(Media_Filho) + ' Filhos' + #13);
> >   Memo1.Lines.Add('O Maior de Salário da População é de 
> > R$ ' + Floattostr(Maior_Salario) + #13);
> >   Memo1.Lines.Add('O Percentual de pessoas que ganham menos 
> > de R$ 100,00 : ' + Floattostr(Percentual) + '%' +  #13);
> >   end;

 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 27 de dezembro de 2004 11:42
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Dúvida sobre um loop


Aí tem que ver a lógica do seu projeto. Ce deve tar pondo pra calcular
dentro do Loop.



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 27 de dezembro de 2004 11:33
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br] Dúvida sobre um loop
> 
> 
> 
> Há Walter, esqueci de te perguntar, porque que a cada volta 
> no loop ele me trás os cálculos? O que eu queria era enquanto 
> o programa estivesse captando dados, o memo só entraria em 
> ação quando eu entrasse com um salário negativo! Aí sim o 
> memo  entraria em ação com cálculo final tudo certinho! Sabe 
> me dizer? Um abraço.
>  
> 
> Att. 
> André Ferreira 
> Brasilsaúde Cia de Seguros 
> 
> -Mensagem original-
> De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 27 de dezembro de 2004 10:37
> Para: 'delphi-br@yahoogrupos.com.br'
> Assunto: RES: [delphi-br] Dúvida sobre um loop
> 
> 
> Olá amigo,
> 
> Você tem que consistir os dados nos edits antes de gravá-los, 
> principalmente
> dados do tipo inteiro e flutuante que dão pau se forem 
> gravados em formato
> inválido.
> 
> veja uma dica:
> 
> > Mais uma pergunta: Se o usuário não digitar nada nos Edit's e 
> > clicar direto no Button!! Dá o seguinte erro: 
> 
> Para solucionar isto, no Evento OnClick do Button coloque o 
> seguinte código:
> 
> if Edit1.Text = '' then 
>Edit1.Text := '0,00'
> 
> Isto faz com que o Valor do Edit, caso ele esteja vazio, 
> seja-lhe atribuído
> o valor 0,00 que não dá problema de gravação no banco.
> 
> 
> E no Evento OnKeyPress do Edit, coloque o seguinte código:
> 
> if not (Key in [#8,#9,'0'..'9',',']) then
>   begin
> key := #0;
> setfocus;
>   end; 
> 
> Isto impede que o usuário digite caracteres inválidos no Edit 
> fazendo com
> que ele somente aceite numeros e a virgula.
> 
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> 
> > -Mensagem original-
> > De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
> > Enviada em: segunda-feira, 27 de dezembro de 2004 10:17
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Dúvida sobre um loop
> > 
> > 
> > 
> > Pessoal, bom dia a todos;
> >  
> > Sou ini

RES: [delphi-br] Dúvida sobre um loop

2004-12-27 Por tôpico Andre de Souza Ferreira 

Há Walter, esqueci de te perguntar, porque que a cada volta no loop ele me trás 
os cálculos? O que eu queria era enquanto o programa estivesse captando dados, 
o memo só entraria em ação quando eu entrasse com um salário negativo! Aí sim o 
memo  entraria em ação com cálculo final tudo certinho! Sabe me dizer? Um 
abraço.
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 27 de dezembro de 2004 10:37
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Dúvida sobre um loop


Olá amigo,

Você tem que consistir os dados nos edits antes de gravá-los, principalmente
dados do tipo inteiro e flutuante que dão pau se forem gravados em formato
inválido.

veja uma dica:

> Mais uma pergunta: Se o usuário não digitar nada nos Edit's e 
> clicar direto no Button!! Dá o seguinte erro: 

Para solucionar isto, no Evento OnClick do Button coloque o seguinte código:

if Edit1.Text = '' then 
   Edit1.Text := '0,00'

Isto faz com que o Valor do Edit, caso ele esteja vazio, seja-lhe atribuído
o valor 0,00 que não dá problema de gravação no banco.


E no Evento OnKeyPress do Edit, coloque o seguinte código:

if not (Key in [#8,#9,'0'..'9',',']) then
  begin
key := #0;
setfocus;
  end; 

Isto impede que o usuário digite caracteres inválidos no Edit fazendo com
que ele somente aceite numeros e a virgula.


[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 27 de dezembro de 2004 10:17
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Dúvida sobre um loop
> 
> 
> 
> Pessoal, bom dia a todos;
>  
> Sou iniciante em programação Delphi e ká; estou eu estudando 
> e me deparei com um problema!!! Tô fazendo um programinha, 
> cujo a intensão é recolher dados de Salário da população e  
> número de Filhos.
>  
> Até aí ok!!! Coloquei no Form dois Edit's, um Botton para 
> processar a informação e um Memo, onde sairão os cálculos!!! 
>  
> Os Cálculos são estes:
>  
> Média de salários da populaçãoo, média de filhos, maior 
> salário e percentual de pessoas com salário até 100,00 reais. 
> Beleza!!!
>  
> Coloquei um while, e minha condição de saída é um salário 
> negativo. Mas não tô conseguindo prossessar o cálculo A 
> cada volta do loop, ele me trás o cálculo que o sistema 
> pede!!! O que tenho feito de errado
>  
> Mais uma pergunta: Se o usuário não digitar nada nos Edit's e 
> clicar direto no Button!! Dá o seguinte erro: 
> ---
> Debugger Exception Notification
> ---
> Project Project_Ex3.exe raised exception class EConvertError 
> with message ''' is not a valid floating point value'. 
> Process stopped. Use Step or Run to continue.
> ---
> OK   Help   
> ---
>  Como faço  para evitar isso???
>  
> E a respeito do cálculo, como faço? Segue o código. Agradeço 
> se houver alguem experiente no grupo que possa me dá¡ uma 
> luz, a final, ninguém nasce sabendo!!!
>  
> procedure TForm1.ProcessarClick(Sender: TObject);
> Var
> Salario, Maior_Salario, Soma_Salario, 
> Soma_Filhos,Media_Salario, Media_Filho, Salario_Inicial, 
> Percentual: Real;
> Filhos, Cont, Conta_Sal_100: Integer;
> begin
>  Salario:= StrtoFloat (Edit1.Text);
>  Filhos:= StrtoInt (Edit2.Text);
>  While Salario < 0 do
>  Soma_Salario:=0;
>  Soma_Filhos:=0;
>  Cont:=0;
>  Conta_Sal_100:=0;
>  Salario_Inicial:=Salario;
>  Maior_Salario:=0;
>   begin
>  Soma_Salario:=Soma_Salario + Salario;
>  Soma_Filhos:=Soma_Filhos + Filhos;
>   if Salario<= 100 then
>  Conta_Sal_100:=Conta_Sal_100 + 1;
>   if Salario >= Salario_Inicial then
>  Maior_Salario:= Salario;
>  Cont:=Cont + 1;
>   end;
>   Edit1.Clear;
>   Edit2.Clear;
>   Edit1.SetFocus;
>   Media_Salario:=Soma_Salario/Cont;
>   Media_Filho:=Soma_Filhos/Cont;
>   Percentual:=(Conta_Sal_100/Cont)/100;
>   Memo1.Lines.Add('A Média de Salário da População é de 
> R$ ' + Floattostr(Media_Salario) + #13);
>   Memo1.Lines.Add('A Média de Filhos da População é de  ' 
> + Floattostr(Media_Filho) + ' Filhos' + #13);
>   Memo1.Lines.Add('O Maior de Salário da População é de 
> R$ ' + Floattostr(Maior_Salario) + #13);
>   Memo1.Lines.Add('O Percentual de pessoas que ganham menos 
> de R$ 100,00 : &#

[delphi-br] Dúvida sobre um loop

2004-12-27 Por tôpico Andre de Souza Ferreira 

Pessoal, bom dia a todos;
 
Sou iniciante em programação Delphi e ká; estou eu estudando e me deparei com 
um problema!!! Tô fazendo um programinha, cujo a intensão é recolher dados de 
Salário da população e  número de Filhos.
 
Até aí ok!!! Coloquei no Form dois Edit's, um Botton para processar a 
informação e um Memo, onde sairão os cálculos!!! 
 
Os Cálculos são estes:
 
Média de salários da populaçãoo, média de filhos, maior salário e percentual de 
pessoas com salário até 100,00 reais. Beleza!!!
 
Coloquei um while, e minha condição de saída é um salário negativo. Mas não tô 
conseguindo prossessar o cálculo A cada volta do loop, ele me trás o 
cálculo que o sistema pede!!! O que tenho feito de errado
 
Mais uma pergunta: Se o usuário não digitar nada nos Edit's e clicar direto no 
Button!! Dá o seguinte erro: ---
Debugger Exception Notification
---
Project Project_Ex3.exe raised exception class EConvertError with message ''' 
is not a valid floating point value'. Process stopped. Use Step or Run to 
continue.
---
OK   Help   
---
 Como faço  para evitar isso???
 
E a respeito do cálculo, como faço? Segue o código. Agradeço se houver alguem 
experiente no grupo que possa me dá¡ uma luz, a final, ninguém nasce sabendo!!!
 
procedure TForm1.ProcessarClick(Sender: TObject);
Var
Salario, Maior_Salario, Soma_Salario, Soma_Filhos,Media_Salario, 
Media_Filho, Salario_Inicial, Percentual: Real;
Filhos, Cont, Conta_Sal_100: Integer;
begin
 Salario:= StrtoFloat (Edit1.Text);
 Filhos:= StrtoInt (Edit2.Text);
 While Salario < 0 do
 Soma_Salario:=0;
 Soma_Filhos:=0;
 Cont:=0;
 Conta_Sal_100:=0;
 Salario_Inicial:=Salario;
 Maior_Salario:=0;
  begin
 Soma_Salario:=Soma_Salario + Salario;
 Soma_Filhos:=Soma_Filhos + Filhos;
  if Salario<= 100 then
 Conta_Sal_100:=Conta_Sal_100 + 1;
  if Salario >= Salario_Inicial then
 Maior_Salario:= Salario;
 Cont:=Cont + 1;
  end;
  Edit1.Clear;
  Edit2.Clear;
  Edit1.SetFocus;
  Media_Salario:=Soma_Salario/Cont;
  Media_Filho:=Soma_Filhos/Cont;
  Percentual:=(Conta_Sal_100/Cont)/100;
  Memo1.Lines.Add('A Média de Salário da População é de R$ ' + 
Floattostr(Media_Salario) + #13);
  Memo1.Lines.Add('A Média de Filhos da População é de  ' + 
Floattostr(Media_Filho) + ' Filhos' + #13);
  Memo1.Lines.Add('O Maior de Salário da População é de R$ ' + 
Floattostr(Maior_Salario) + #13);
  Memo1.Lines.Add('O Percentual de pessoas que ganham menos de R$ 100,00 : ' + 
Floattostr(Percentual) + '%' +  #13);
  end;
 

Att.
André Ferreira
Brasilsaúde Cia de Seguros



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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Cálculo

2004-12-25 Por tôpico Andre de Souza Ferreira 

?
Pessoal, boa tarde e um feliz natal a todos;
 
Sou iniciante em programação Delphi e ká estou eu estudando e me deparei com 
um problema!!! Tô fazendo um programinha, cujo a intenção é recolher dados 
de Salário da população e  número de Filhos.
 
Até aí ok!!! Coloquei no Form dois Edit's, um Botton para processar a 
informação e um Memo, onde saírão os cálculos!!! 
 
Os Cálculos são estes:
 
Média de salários da população, média de filhos, maior salário e 
percentual de pessoas com salário até 100,00 reais. Beleza!!!
 
Coloquei um while, e minha condição de saída é um salário negativo. Mas 
não tô conseguindo prossessar o cálculo A cada volta do loop, ele me 
trás o cálculo que o sistema pede!!! O que tenho feito de errado
 
Mais uma pergunta: Se o usuário náo digitar nada nos Edit's e clicar direto 
no Button!! Dá o seguinte erro: ---
Debugger Exception Notification
---
Project Project_Ex3.exe raised exception class EConvertError with message ''' 
is not a valid floating point value'. Process stopped. Use Step or Run to 
continue.
---
OK   Help   
---
 Como faço para evitar isso???
 
E a respeito do cálculo, como faço? Segue o código. Agradeço se houver 
alguem experiente no grupo que possa me dá uma luz, a final, ninguém nasce 
sabendo!!!
 
procedure TForm1.ProcessarClick(Sender: TObject);
Var
Salario, Maior_Salario, Soma_Salario, Soma_Filhos,Media_Salario, 
Media_Filho, Salario_Inicial, Percentual: Real;
Filhos, Cont, Conta_Sal_100: Integer;
begin
 Salario:= StrtoFloat (Edit1.Text);
 Filhos:= StrtoInt (Edit2.Text);
 While Salario < 0 do
 Soma_Salario:=0;
 Soma_Filhos:=0;
 Cont:=0;
 Conta_Sal_100:=0;
 Salario_Inicial:=Salario;
 Maior_Salario:=0;
  begin
 Soma_Salario:=Soma_Salario + Salario;
 Soma_Filhos:=Soma_Filhos + Filhos;
  if Salario<= 100 then
 Conta_Sal_100:=Conta_Sal_100 + 1;
  if Salario >= Salario_Inicial then
 Maior_Salario:= Salario;
 Cont:=Cont + 1;
  end;
  Edit1.Clear;
  Edit2.Clear;
  Edit1.SetFocus;
  Media_Salario:=Soma_Salario/Cont;
  Media_Filho:=Soma_Filhos/Cont;
  Percentual:=(Conta_Sal_100/Cont)/100;
  Memo1.Lines.Add('A Média de Salário da População é de R$ ' + 
Floattostr(Media_Salario) + #13);
  Memo1.Lines.Add('A Média de Filhos da População é de  ' + 
Floattostr(Media_Filho) + ' Filhos' + #13);
  Memo1.Lines.Add('O Maior de Salário da População é de R$ ' + 
Floattostr(Maior_Salario) + #13);
  Memo1.Lines.Add('O Percentual de pessoas que ganham menos de R$ 100,00 : ' + 
Floattostr(Percentual) + '%' +  #13);
  end;
 


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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

RES: [delphi-br] Calculadora Financeira

2004-12-09 Por tôpico Andre de Souza Ferreira 


Vc tem com todos os códigos?
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: NextCorp Informatica [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 8 de dezembro de 2004 09:13
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Calculadora Financeira


Caro amigo

da uma procurada no cade ou google que vc encontra a calculadora hp12 c para 
ser usada no micro.

Se nao encontrar tenho ela aqui.

Atenciosamente

Washington A. Müller da Silva

#
NextCorp Informática Ltda
www.nextcorp.com.br
[EMAIL PROTECTED]
0 xx (51)-589-3690

- Original Message - 
From: "Sávio Cler" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, December 07, 2004 8:36 PM
Subject: Re: [delphi-br] Calculadora Financeira


>
> Eu tenho a HP12C (a calculadora mesmo) e conheço de cabo a rabo, se quiser
> podemos fazer juntos. Faz as telas e au ajudo nos fontes. Qq coisa pvt-me.
>
>
>   Sávio Cler
>   ICQ 142428832
>   WWW www.stc.eti.br
>   MSN [EMAIL PROTECTED]
>   Sto A. de Pádua - Rio de Janeiro
>   Contato Pessoal:   (22)9812-0656
>
>   ~ ~
> ( @ @ )
>   ---o0Oo-(_)-oO0o---
>   Precisando de dicas?
>www.deephi.rg3.net
>   ---
> Mais de 3 downloads
>   -ooO---Ooo-
> - Original Message -
> From: "Felipe Pasqualotto" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, December 07, 2004 3:12 PM
> Subject: RES: [delphi-br] Calculadora Financeira
>
>
> Não cara, assim, não sei se vc conhece a KK 12C para Palm, gostaria de
> desenvolver uma igual a 12C mas em Delphi, para disponibilizar free;
> É um projeto a longo prazo creio eu mas é interessante "eu acho";
>
> Abraços
> Felipe
>
> [EMAIL PROTECTED]
>
>
> -Mensagem original-
> De: Sávio Cler [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 7 de dezembro de 2004 12:53
> Para: [EMAIL PROTECTED]
> Assunto: Re: [delphi-br] Calculadora Financeira
>
>
>
> Não sei, tenho o meu (que não disponobilizo, pois é de clientes), as fala
> que ajudamos.
>
>
>   Sávio Cler
>   ICQ 142428832
>   www.stc.eti.br
>   [EMAIL PROTECTED]
>   Sto A. de Pádua - Rio de Janeiro
>   Contato Pessoal:   (22)9812-0656
>
>   ~ ~
> ( @ @ )
>   ---o0Oo-(_)-oO0o---
>   Precisando de dicas?
>www.deephi.rg3.net
>   ---
> Mais de 3 downloads
>   -ooO---Ooo-
> - Original Message -
> From: "Felipe Pasqualotto" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, December 07, 2004 10:31 AM
> Subject: [delphi-br] Calculadora Financeira
>
>
> Bom dia Pessoal.
>
> Alguém sabe se existem os fontes de uma calculadora financeira por aí?
>
> Abraços
>
> Felipe
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system ( http://www.grisoft.com).
> Version: 6.0.806 / Virus Database: 548 - Release Date: 05/12/2004
>
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
>   Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
> 
> 
> Links do Yahoo! Grupos
>
>   a.. Para visitar o site do seu grupo na web, acesse:
>   http://br.groups.yahoo.com/group/delphi-br/
>
>   b.. Para sair deste grupo, envie um e-mail para:
>   [EMAIL PROTECTED]
>
>   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
> do Yahoo!.
>
>
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.289 / Virus Database: 265.4.5 - Release Date: 03/12/2004
>



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 



 

 
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


  _  

Links do Yahoo! Grupos


*   Para vi

RES: [delphi-br] Re: Estão acusando o delphi de consumir muito recurso do banco de dados

2004-12-09 Por tôpico Andre de Souza Ferreira 


Falando nisso Paulo, vc sabe porque quando eu vou cadastrar um new alias no 
Delphi 7 e defino no Parth onde ficará minhas tabelas, ex: c:\Sistema\Banco de 
Dados,  a pasta não é criada automaticamente? Pq isso acontece? A pouco tempo 
atrás eu tava conseguindo fazer isso, será q fiz alguma besteira?
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Luiz Henrique Severo d Oliveira [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 8 de dezembro de 2004 11:08
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Re: Estão acusando o delphi de consumir muito recurso do 
banco de dados


Paulo,

Utilize o SQL Monitor que vem com o Delphi para verificar o que o seu sistema 
está acessando no BD.


Abraços
Luiz Henrique Severo d Oliveira
RPG Soluçoes
www.rpgsolucoes.com.br


> 
>  Mensagem: 14
>  Data: Wed, 08 Dec 2004 12:13:52 -
>De: "delphi6_2005" <[EMAIL PROTECTED]>
>   Assunto: Estão acusando o delphi de consumir muito recurso do banco de 
> dados? 
> 
> 
> Amigos tenho um aplicativo em DELPHI6, usando o banco DB2, algum 
> amigo conhece esse banco de dados?
> 
> A questão é que na empresa o meu aplicativo está sendo acusado de 
> ser o vilão do DB2, eu sempre defendo a minha ferramenta de 
> trabalho, mais estou perdendo a batalha.
> 
> Tem um tal de governo no db2 que mostra as estatisticas de consumo e 
> diz que o delphi pra fazer um simples insert na tabela acessa 
> 300.000 rows.
> O DBA defedendo sua ferramenta de trabalho diz que o delphi utiliza 
> muito acesso as tabelas do banco as systables para trabalhar.
> 
> Na verdade não sei como agir:
> 
> 1-Não sei realmente como o delphi trabalha com as tabelas de 
> catalógo do banco, acho que deveria saber.
> 2-Já trabalhei com o Oracle e nunca tive problema
> 3-Não sei como poderia testar o consumo de banco de minha aplicação 
> sem ter que passar pelo DBA, porque ele já escolhei o delphi pra 
> Cristo.
> 
> Amigos aceito sugestões.
> 
> Paulo



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


  

 
 




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] ENC: Delphi

2004-12-09 Por tôpico Andre de Souza Ferreira 




> Pessoal;
> 
> Vê se vcs consegue me ajudar. Tô estudando um programinha em Delphi de 
> cadastramento e atualização de Cd's e na elaboração do sistema, quando eu já 
> estava ligando a 1ª tabela deu um erro na unit principal do programa na linha 
> Application.Run. Tô a uma semana quebrando a cabeça e nada... 
> Pior que é um problema bobo, quando eu inicio o meu programa coloquei um form 
> fSplash (Janela About box), falando sobre o sistema, enquanto o usuário abre 
> o aplicativo. Alguem sabe?
> 
> Olá o código:
> program CDDA;
> 
> uses
>   Forms,
>   fMenu in 'fMenu.pas' {F_Menu},
>   fSobre in 'fSobre.pas' {F_Sobre},
>   fSplash in 'fSplash.pas' {F_Splash},
>   DMModelo in 'DMModelo.pas' {DM_Modelo: TDataModule},
>   fCateg in 'fCateg.pas' {F_Categ};
> 
> {$R *.res}
> 
> begin
>   F_Splash:=TF_Splash.Create(Application);
>   F_Splash.Show;
>   F_Splash.Refresh;
>   Application.Initialize;
>   Application.Title := 'Compact Disc Digital Audio';
>   Application.HelpFile := 'C:\Sistema\CadDisco\Guia.hpl';
>   Application.CreateForm(TF_Menu, F_Menu);
>   Application.CreateForm(TF_Sobre, F_Sobre);
>   Application.CreateForm(TDM_Modelo, DM_Modelo);
>   Application.CreateForm(TF_Categ, F_Categ);
>   F_Splash.Free;
>   Application.Run; => O erro foi aki
> end.
> 
> Esta é o form principal
> 
> unit fMenu;
> 
> interface
> 
> uses
>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>   Dialogs, Menus, ComCtrls, DB, DBTables;
> 
> type
>   TF_Menu = class(TForm)
> MainMenu1: TMainMenu;
> Arquivo1: TMenuItem;
> Consulta1: TMenuItem;
> Tabela1: TMenuItem;
> Cadastro1: TMenuItem;
> N1: TMenuItem;
> Sair1: TMenuItem;
> ItemTabela1: TMenuItem;
> ItemConsulta1: TMenuItem;
> ItemConsulta2: TMenuItem;
> Relatorio1: TMenuItem;
> ItemRelatorio1: TMenuItem;
> ItemRelatorio2: TMenuItem;
> N2: TMenuItem;
> ConfImpressora1: TMenuItem;
> Auxlio1: TMenuItem;
> ItemAuxilio1: TMenuItem;
> Itemauxilio2: TMenuItem;
> Itemauxilio3: TMenuItem;
> ItemAuxilio4: TMenuItem;
> LinhaStatus: TStatusBar;
> DBDisco: TDatabase;
> procedure FormCreate(Sender: TObject);
> procedure Sair1Click(Sender: TObject);
> procedure ItemAuxilio2Click(Sender: TObject);
> procedure ItemAuxilio3Click(Sender: TObject);
> procedure ItemAuxilio4Click(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> procedure ItemAuxilio1Click(Sender: TObject);
> procedure ItemTabela1Click(Sender: TObject);
>   private
> { Private declarations }
> procedure ShowHint (Sender:TObject);
>   public
> { Public declarations }
> function CriticaEdicao (DSOrigem:TdataSource; DoQue, 
> AntesDe:String):boolean;
> 
>   end;
> 
> var
>   F_Menu: TF_Menu;
> 
> implementation
> 
> {$R *.dfm}
> 
> uses
> fSobre,fCateg;
> 
> function 
> TF_Menu.CriticaEdicao(DSOrigem:TDataSource;DoQue,AntesDe:String):boolean;
>  begin
>   if DSOrigem.State in[dsEdit,dsInsert] then
>begin
> MessageDlg('Cancele a Edição(ou Inserção)' + DoQue + 'antes de' + 
> AntesDe, mtError,[mbOk],0);
> Result:=True;
>end
>else
> Result:=False;
>  end;
> 
> 
> procedure TF_Menu.ShowHint(Sender:TObject);
>  begin
>   LinhaStatus.Panels.Items[0].text:=Application.Hint;
>  end;
> 
> 
> procedure TF_Menu.FormCreate(Sender: TObject);
> begin
>  Application.OnHint:=ShowHint;
>  DBDisco.Connected:=True;
> end;
> 
> procedure TF_Menu.Sair1Click(Sender: TObject);
> begin
> Close;
> end;
> 
> procedure TF_Menu.Itemauxilio2Click(Sender: TObject);
> begin
>  Application.HelpCommand(HELP_CONTENTS,0);
> end;
> 
> procedure TF_Menu.Itemauxilio3Click(Sender: TObject);
> const
> EmptyString:pChar='';
> begin
>   Application.HelpCommand(HELP_PARTIALKEY, LongInt(EmptyString));
> end;
> 
> procedure TF_Menu.ItemAuxilio4Click(Sender: TObject);
> begin
> Application.HelpCommand(HELP_HELPONHELP,0);
> end;
> 
> procedure TF_Menu.FormDestroy(Sender: TObject);
> begin
> Application.HelpCommand(HELP_QUIT,0);
> end;
> 
> procedure TF_Menu.ItemAuxilio1Click(Sender: TObject);
> begin
>  With TF_Sobre.Create(Self) do
>   begin
>ShowModal;
>Free;
>   end;  
> end;
> 
> procedure TF_Menu.ItemTabela1Click(Sender: TObject);
> begin
>  Screen.Cursor:=crHourglass;
>  F_Categ:=TF_Categ.Create(Application);
>  F_Categ.Inicio;
>  F_Categ.Free;
>  Screen.Cursor:=crDefault;
> end;
> 
> end.
> 
> Este é o código referente ao BD
> 
> unit DMModelo;
> 
> interface
> 
> uses
>   SysUtils, Windows, Classes, Graphics, Controls,
>   Forms, Dialogs, DB, DBTables;
> 
> type
>   TDM_Modelo = class(TDataModule)
> TabCategorSIG_CATEG: TStringField;
> TabCategorDES_CATEG: TStringField;
> DSCategor: TDataSource;
> TabCategor: TTable;
> TabCategorConf: TTable;
> StringField1: TStringField;
> StringField2: TStringField;
> procedure TabCategorAfterPost(DataSet: TDataSet);
> procedure TabCategorSIG_CATEGValidate(Sender: TFiel

RES: [delphi-br] OFF TOPIC - Arquivo txt

2004-12-09 Por tôpico Andre de Souza Ferreira 


Willians;
 
Isso muito me interessa. Como poderia fazer isso no Delphi??? Me dá uma dica
 
Um abraço
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Williams Diaz [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 7 de dezembro de 2004 12:57
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] OFF TOPIC - Arquivo txt


Alexandre,

Não sei não.
Não era melhor ler esse arquivo com um programinha e dividir ele em pequenos 
vários pedaços?

williams

*---
Williams Díaz
[EMAIL PROTECTED]
http://www.interban.com.br

- Original Message - 
From: "Alexandre N Catelli" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, December 07, 2004 12:37 PM
Subject: [delphi-br] OFF TOPIC - Arquivo txt




Pessoal, desculpem pelo off topic.

Tenho um arquivo txt com 1GB de tamanho, o Notepad, Wordpad e Word
for Windows não abrem. Alguém pode me indicar um editor de textos que
abra arquivos muito grandes.

Valeu !





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


  

 
 




  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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

[delphi-br] Dúvida fSplash

2004-12-07 Por tôpico Andre de Souza Ferreira 


Olá pessoal;

Tô estudando Delphi, através de um programa que realiza cadastramento e 
atualizações de Cd's. Tô seguindo todas as estruções conforme o livro parara 
parara... Só que cheguei a um ponto onde eu comecei a trabalhar interagindo meu 
sistema com Banco de Dados. OK. 
Só que quando eu fui rodar ele dava um problema justamente no Form FSplash, 
onde neste form coloquei informações sobre o sistema, enquanto o usuário inicia 
o executável. Este form é apenas para apresentação do sistema. Alguém poderia 
me ajudar??

Um abraço a todos.

Este é o programa principal:

program CDDA;

uses
  Forms,
  fMenu in 'fMenu.pas' {F_Menu},
  fSobre in 'fSobre.pas' {F_Sobre},
  fSplash in 'fSplash.pas' {F_Splash},
  DMModelo in 'DMModelo.pas' {DM_Modelo: TDataModule},
  fCateg in 'fCateg.pas' {F_Categ};

{$R *.res}

begin
  F_Splash:=TF_Splash.Create(Application);
  F_Splash.Show;
  F_Splash.Refresh;
  Application.Initialize;
  Application.Title := 'Compact Disc Digital Audio';
  Application.HelpFile := 'C:\Sistema\CadDisco\Guia.hpl';
  Application.CreateForm(TF_Menu, F_Menu);
  Application.CreateForm(TF_Sobre, F_Sobre);
  Application.CreateForm(TDM_Modelo, DM_Modelo);
  Application.CreateForm(TF_Categ, F_Categ);
  F_Splash.Free;
  Application.Run; => O problema foi apontado para esta linha
end.

Este é o Menu de apresentação ao usuário:

unit fMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, DB, DBTables;

type
  TF_Menu = class(TForm)
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Consulta1: TMenuItem;
Tabela1: TMenuItem;
Cadastro1: TMenuItem;
N1: TMenuItem;
Sair1: TMenuItem;
ItemTabela1: TMenuItem;
ItemConsulta1: TMenuItem;
ItemConsulta2: TMenuItem;
Relatorio1: TMenuItem;
ItemRelatorio1: TMenuItem;
ItemRelatorio2: TMenuItem;
N2: TMenuItem;
ConfImpressora1: TMenuItem;
Auxlio1: TMenuItem;
ItemAuxilio1: TMenuItem;
Itemauxilio2: TMenuItem;
Itemauxilio3: TMenuItem;
ItemAuxilio4: TMenuItem;
LinhaStatus: TStatusBar;
DBDisco: TDatabase;
procedure FormCreate(Sender: TObject);
procedure Sair1Click(Sender: TObject);
procedure ItemAuxilio2Click(Sender: TObject);
procedure ItemAuxilio3Click(Sender: TObject);
procedure ItemAuxilio4Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ItemAuxilio1Click(Sender: TObject);
procedure ItemTabela1Click(Sender: TObject);
  private
{ Private declarations }
procedure ShowHint (Sender:TObject);
  public
{ Public declarations }
function CriticaEdicao (DSOrigem:TdataSource; DoQue, 
AntesDe:String):boolean;

  end;

var
  F_Menu: TF_Menu;

implementation

{$R *.dfm}

uses
fSobre,fCateg;

function 
TF_Menu.CriticaEdicao(DSOrigem:TDataSource;DoQue,AntesDe:String):boolean;
 begin
  if DSOrigem.State in[dsEdit,dsInsert] then
   begin
MessageDlg('Cancele a Edição(ou Inserção)' + DoQue + 'antes de' + AntesDe, 
mtError,[mbOk],0);
Result:=True;
   end
   else
Result:=False;
 end;


procedure TF_Menu.ShowHint(Sender:TObject);
 begin
  LinhaStatus.Panels.Items[0].text:=Application.Hint;
 end;


procedure TF_Menu.FormCreate(Sender: TObject);
begin
 Application.OnHint:=ShowHint;
 DBDisco.Connected:=True;
end;

procedure TF_Menu.Sair1Click(Sender: TObject);
begin
Close;
end;

procedure TF_Menu.Itemauxilio2Click(Sender: TObject);
begin
 Application.HelpCommand(HELP_CONTENTS,0);
end;

procedure TF_Menu.Itemauxilio3Click(Sender: TObject);
const
EmptyString:pChar='';
begin
  Application.HelpCommand(HELP_PARTIALKEY, LongInt(EmptyString));
end;

procedure TF_Menu.ItemAuxilio4Click(Sender: TObject);
begin
Application.HelpCommand(HELP_HELPONHELP,0);
end;

procedure TF_Menu.FormDestroy(Sender: TObject);
begin
Application.HelpCommand(HELP_QUIT,0);
end;

procedure TF_Menu.ItemAuxilio1Click(Sender: TObject);
begin
 With TF_Sobre.Create(Self) do
  begin
   ShowModal;
   Free;
  end;  
end;

procedure TF_Menu.ItemTabela1Click(Sender: TObject);
begin
 Screen.Cursor:=crHourglass;
 F_Categ:=TF_Categ.Create(Application);
 F_Categ.Inicio;
 F_Categ.Free;
 Screen.Cursor:=crDefault;
end;

end.


Este é o codigo para interação ao BD.

unit DMModelo;

interface

uses
  SysUtils, Windows, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables;

type
  TDM_Modelo = class(TDataModule)
TabCategorSIG_CATEG: TStringField;
TabCategorDES_CATEG: TStringField;
DSCategor: TDataSource;
TabCategor: TTable;
TabCategorConf: TTable;
StringField1: TStringField;
StringField2: TStringField;
procedure TabCategorAfterPost(DataSet: TDataSet);
procedure TabCategorSIG_CATEGValidate(Sender: TField);
procedure TabCategorNewRecord(DataSet: TDataSet);
  private
{ private declarations }
  public
{ public declarations }
  end;

var
  DM_Modelo: TDM_Modelo;

implementation

{$R *.DFM}

uses
fMenu,
fCateg;

procedure TDM_Modelo.TabC

RES: [delphi-br] Ancestrais.

2004-12-07 Por tôpico Andre de Souza Ferreira 


É Willians, imagino a difuculdade que vcs antigos passavam Mas até hoje, 
por incrível que pareça há empresas procurando programadores Cobol sabia? E 
oferencendo uma fortuna Os programadores da minha empresa ganham +- 
R$4.000,00, programando só em VB, e Cobol tá na faixa dos R$ 7.000,00!! Vc 
tá bem na fita hein rs Um Abração!!!
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Williams Diaz [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 6 de dezembro de 2004 23:48
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Ancestrais.


Pois é André, eu que sou um "ancestral" te confirmo: eu mesmo programei 
muito em cobol perfurando cartão. Eu até tinha esquecido disso, você tinha 
que lembrar? :);
É mais, quando surgiu o pc tinhamos diskete de 125 K para processar, guardar 
(atenção: k mesmo, não megas). e 8k de memória ram, se não me falha a 
memória.
Quando surgiu o HD de 1MB, depois de5MB e de 10 Megas foi uma festa. Eu 
chamava meus amigos programadores para dar um dir e que vissem a velocidade 
e morressem de inveja.
Para digitar um acento num editor de texto? era mais ou menos assim, você 
digitava a letra, digitava um backspace com um CTRL da vida, CTRL-H senão me 
engano, e depois o acento. O texto ficava lindíssimo na tela, ninguém 
entendia nada.
Uma vez assisti uma palestra de um concorrente do Word chamado Carta Certa, 
e o máximo que ele permitia eram textos de 64K. Eu questionei o tamanho 
quando o próprio word permitia mais do que isso, e o cara me ridicularizou 
na platéia fazendo uma piada com o tamanho de arquivo que eu ia fazer, que 
nunca ia chegar a um tamanho desses e tal e tal.
E as primeiras placas fax modem? 2K de velocidade. Era mais rápido pegar o 
ônibus e levar o diskete no cliente, quando você voltava ainda estava 
transmitindo.
A única coisa que tenho saudade era o salário: eu ganhava em torno de 4.000 
dólares na época, e como programador. Hoje muito diretor de informática não 
ganha isso.
A gente conhecia comandos que poucos mortais sabiam o que significavam. Você 
não imagina o terror que era treinar usuários novos (hoje ainda é, imagine). 
Eu tive alunos que ficavam minutos olhando para o teclado com medo de pegar.
Livros? hehehehe - só em inglês e se comprasse fora, o máximo que você 
encontrava na livraria era introdução aos computadores, desde o Univac 
até... o Univac. Depois apareceu um livro muito bom de dbase II (precursor 
do clipper) escrito por Laercio Cosentino, hoje por sinal dono da Microsiga. 
Esse foi bom, tinha enormes 60 páginas. Eu dizia: meu deus, quanto coisa 
para estudar, aonde chegaremos?
Já não vou te cansar mais com tanta história de velharia, mas lembre, daqui 
a uns 20 anos (ou menos) você estará contando sobre delphi e .net a um cara 
novinho que programa falando com um computador. Ele vai dizer: "é verdade 
que vocês programavam clicando com um mouse e digitando 20 30 mil linhas de 
código"?. Eta.. viajei... será?.

abraços,

williams

*---
Williams Díaz
[EMAIL PROTECTED]
http://www.interban.com.br

- Original Message ----- 
From: "Andre de Souza Ferreira" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, December 06, 2004 11:53 AM
Subject: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?




É Waltinho, vc é casca grossa hein! Ptz! Sabe me contar uma 
historinha dessas só que do Basic e do Cobol? Alguns ancestrais aqui me 
contavam que em cobol se programava perfurando cartão vc sabe dessa 
história? Era isso mesmo?


Att.
André de Souza Ferreira
Gerência de Subscrição
Brasilsaúde Cia de Seguros

-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 18:00
Para: '[EMAIL PROTECTED]'
Assunto: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?


Hra meu filho, eu ficando rico, vou pegar esses códigos fontes, Delphi,
Visual Studio, MSDE, Firebird, SGDB e tudo mais E MANDAR TUDO PROS
QUINTOS!!!

Vou é comprar uma fazenda e nunca mais quererer nem ouvir falar em
computador viu hehehe



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Nilson Chagas [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 3 de dezembro de 2004 16:51
> Para: [EMAIL PROTECTED]
> Assunto: Re: RES: RES: [delphi-br] Então, qualé que é a do .NET?
>
>
>
> Rogério,
>
> Vc deu uma ótima idéia, pq eu jah tava eh querendo ir para
> enxada, quem sabe cansa menos que usar o cerebro, rsrsrsrssrs
>
> []s
>
> Nilson Chagas
>
> Rogério <[EMAIL PROTECTED]> wrote:
> É Foguete...
> Não aguento mais aprender nada...
> À 15 anos estudando sem parar, e ainda não sei nem 1%...
> Facul, Pos, Mestr

RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?

2004-12-07 Por tôpico Andre de Souza Ferreira 


Pô Walter; era só brincadeira!
 

Att. 
André Ferreira 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 7 de dezembro de 2004 08:20
Para: '[EMAIL PROTECTED]'
Assunto: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?


Não sei porque voce tá falando isto. Eu nao te xinguei e nem postei isto pra
xingar ou referir a alguém. 

De fato seu eu pudesse largar isso tudo e ir mexer com o outra coisa menos
desgastante do que sistemas, eu iria sem discutir. Quando começei a mexer
com informática pra valer (antes era só por hobby nos tempos do TK90x e do
CP400), 1989, eu trabalhava com a geração modernissima de computadores 286 e
386 programando em Clipper e depois eu aprendi programar em Pascal que era
mais completo e com mais recursos que o Clipper. Profissionalmente eu
comecei nesta época. Agora, neste epoca, as coisas eram menos piores que
hoje. Hoje querem sistemas pra ontem e sistemas que sejam rápidos e de
altíssima performance mas pra rodarem em computadores totalmente
catatônicos. Explicar isto não vai adiantar nada porque quem te pede isto,
acha que da pra fazer e é você que tá com má vontade de fazer ou não sabe
fazer. Isto é que desanima.

Lá pelo ano de 84 eu descobri o computador (com a malograda lei de reserva
de mercado) mas a gente só usava ele pra rodar joguinho. 



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Andre de Souza Ferreira [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 6 de dezembro de 2004 11:53
> Para: [EMAIL PROTECTED]
> Assunto: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> 
> 
> 
> 
> É Waltinho, vc é casca grossa hein! Ptz! Sabe me 
> contar uma historinha dessas só que do Basic e do Cobol? 
> Alguns ancestrais aqui me contavam que em cobol se programava 
> perfurando cartão vc sabe dessa história? Era isso mesmo?
>  
> 
> Att. 
> André de Souza Ferreira 
> Gerência de Subscrição 
> Brasilsaúde Cia de Seguros 
> 
> -Mensagem original-
> De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 3 de dezembro de 2004 18:00
> Para: '[EMAIL PROTECTED]'
> Assunto: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> 
> 
> Hra meu filho, eu ficando rico, vou pegar esses códigos 
> fontes, Delphi,
> Visual Studio, MSDE, Firebird, SGDB e tudo mais E MANDAR TUDO PROS
> QUINTOS!!!
> 
> Vou é comprar uma fazenda e nunca mais quererer nem ouvir falar em
> computador viu hehehe
> 
> 
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> 
> > -Mensagem original-
> > De: Nilson Chagas [mailto:[EMAIL PROTECTED]
> > Enviada em: sexta-feira, 3 de dezembro de 2004 16:51
> > Para: [EMAIL PROTECTED]
> > Assunto: Re: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> > 
> > 
> > 
> > Rogério,
> >  
> > Vc deu uma ótima idéia, pq eu jah tava eh querendo ir para 
> > enxada, quem sabe cansa menos que usar o cerebro, rsrsrsrssrs
> >  
> > []s
> >  
> > Nilson Chagas
> > 
> > Rogério <[EMAIL PROTECTED]> wrote:
> > É Foguete...
> > Não aguento mais aprender nada...
> > À 15 anos estudando sem parar, e ainda não sei nem 1%... 
> > Facul, Pos, Mestr,
> > MBA...
> > Sni
> > Agora me aparece o .NET...
> > Vou é ser veterinário que os cachorros são mais amigos... 
> > KKKk,.
> > 
> > - Original Message - 
> > From: "Campus" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Friday, December 03, 2004 5:20 PM
> > Subject: Re: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> > 
> > 
> > >
> > > Walter, sem duvidamente...
> > >
> > > mas chega uma hora que a gente não tem mais saco (desculpe 
> > o termo) para
> > > aprender novas tecnologias.
> > >
> > > eu comecei com Basic para CPM, num CP-500 da Prológica, 
> > acredito que a
> > > maiora do pessoal da lista não sabe do que se trata.
> > >
> > > Quando surgiu o PC-XT (uma revolução), o COBOL passou a ser 
> > a ferramenta,
> > > porém muito rium de manutenção, base de arquivo texto, sem 
> > chances de
> > > expanção do DBase, que com o advento do Clipper, passou a 
> ser a nova
> > > ferramenta de trabalho...depois o Windows e o

RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?

2004-12-06 Por tôpico Andre de Souza Ferreira 


É Waltinho, vc é casca grossa hein! Ptz! Sabe me contar uma historinha 
dessas só que do Basic e do Cobol? Alguns ancestrais aqui me contavam que em 
cobol se programava perfurando cartão vc sabe dessa história? Era isso 
mesmo?
 

Att. 
André de Souza Ferreira 
Gerência de Subscrição 
Brasilsaúde Cia de Seguros 

-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 18:00
Para: '[EMAIL PROTECTED]'
Assunto: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?


Hra meu filho, eu ficando rico, vou pegar esses códigos fontes, Delphi,
Visual Studio, MSDE, Firebird, SGDB e tudo mais E MANDAR TUDO PROS
QUINTOS!!!

Vou é comprar uma fazenda e nunca mais quererer nem ouvir falar em
computador viu hehehe



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Nilson Chagas [mailto:[EMAIL PROTECTED]
> Enviada em: sexta-feira, 3 de dezembro de 2004 16:51
> Para: [EMAIL PROTECTED]
> Assunto: Re: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> 
> 
> 
> Rogério,
>  
> Vc deu uma ótima idéia, pq eu jah tava eh querendo ir para 
> enxada, quem sabe cansa menos que usar o cerebro, rsrsrsrssrs
>  
> []s
>  
> Nilson Chagas
> 
> Rogério <[EMAIL PROTECTED]> wrote:
> É Foguete...
> Não aguento mais aprender nada...
> À 15 anos estudando sem parar, e ainda não sei nem 1%... 
> Facul, Pos, Mestr,
> MBA...
> Sni
> Agora me aparece o .NET...
> Vou é ser veterinário que os cachorros são mais amigos... 
> KKKk,.
> 
> - Original Message - 
> From: "Campus" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, December 03, 2004 5:20 PM
> Subject: Re: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> 
> 
> >
> > Walter, sem duvidamente...
> >
> > mas chega uma hora que a gente não tem mais saco (desculpe 
> o termo) para
> > aprender novas tecnologias.
> >
> > eu comecei com Basic para CPM, num CP-500 da Prológica, 
> acredito que a
> > maiora do pessoal da lista não sabe do que se trata.
> >
> > Quando surgiu o PC-XT (uma revolução), o COBOL passou a ser 
> a ferramenta,
> > porém muito rium de manutenção, base de arquivo texto, sem 
> chances de
> > expanção do DBase, que com o advento do Clipper, passou a ser a nova
> > ferramenta de trabalho...depois o Windows e o Delphi, e assim
> > sucessivamente, num ciclo sem fim.
> >
> >
> >
> > - Original Message - 
> > From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Friday, December 03, 2004 5:33 PM
> > Subject: RES: RES: RES: [delphi-br] Então, qualé que é a do .NET?
> >
> >
> >
> > Nilson e Willian,
> >
> > O que aconteceu com o Clipper foi uma fatalidade.
> >
> > A nantucket, que era o fabricante original do produto, foi 
> comprada pela
> CA,
> > que tentou dar continuidade ao mesmo. Chegou a melhorar o 5.2 com o
> release
> > 5.2e. Mas saiu pela tangente com o 5.3 ao tentar fazer uma 
> "meia sola" com
> > aquele editor para Windows. E daí que se deu a trapalhada 
> fatídica que o
> > matou.
> >
> > O problema da interface gráfica é que ela trabalhava no 
> ambiente Windows,
> > mas para compilar um projeto para rodar no DOS (Estranho 
> não?). Aí quando
> > você escrevia no Editor, ao rodar seu programa no DOS, os caracteres
> > acentuados ou os de moldura de tela saiam todos trocados 
> porque o Windows
> > trabalha sob a tabela ANSI e o DOS sob a ASCII. Daí esta 
> diferença. Pior
> > ainda era quando você ia fazer relatorios e jogava 
> caracteres especiais
> pra
> > impressora! Era um angú de caroço.
> >
> > Outro problema sério é que ao usar compilar seu projeto de dentro do
> > Windows, (o linkeditor usado passou a ser o Exospace ou o 
> ótimo BLinker. O
> > RTlink saiu de cena), ele seria linkeditado pra rodar na 
> memória extendida
> e
> > iria rodar na memória do DOS (convencinal), e pronto! Tava formado o
> balaio
> > de gato: GPF toda hora, dentre outros erros cabulosos que a 
> aplicação dava
> > (o compilador também era cheio de bugs). Depois disto, a CA 
> tentou soltar
> > alguns paths para corrigir alguns bugs (até que corrigiu, 
> mas a imagem da
> > versão já tava comprometida). Em face a isto, a turma do 
> Clipper optou por
> > não usá-lo e permanecer no 5.2 mesmo que dava conta (e muito bem) do
> recado.
> > Eu mesmo tentei usar o Edit do DOS pra fazer os projetos 
> meus, mas aí
> > esbarrei em outro problema que acabei desistindo: As 
> bibliotecas que você
> > tinha já compiladas em clippers anteriores, não linkavam 
> com o seu exe se
> > ele for compilado com o 5.3. Até aí eu concordo porque até 
> hoje é assim.
> > Voce so compila um projeto no Delphi 7 se as packages forem 
> compiladas no
> > D7. Isto é padrão pra qualquer compilador, mas no caso do 
> Clipper 5.3, já
> > tinha um desgaste da nossa parte por causa de tantos out

RES: [delphi-br] PostgreSQL e Zeos

2004-12-06 Por tôpico Andre de Souza Ferreira 


Olá pessoal!!! Meu nome é André e atualmente tô muito cru em programação!!! Tô 
no 4º período de TI e me amarro no papo que rola!!! Mas confesso que ainda 
estou voando em muita coisa, espero ter um monte de professores!! Rs!!! Agora 
uma perguntinha básica:
- Qual a diferença entre PostgreSql, Zeos ???/?/??/;;...
 

Att. 
André de Souza Ferreira 


-Mensagem original-
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 6 de dezembro de 2004 08:59
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] PostgreSQL e Zeos





Pessoal,

quais as alternativas para trabalhar com Delphi e PostgreSQL ???

O pessoal do Zeos tá vacilando, pararam na versão 7 do Delphi, e já 
estamos indo pra versão 2005.

O Zeos também só suporta até a versão 6 do C++ Builder.

A não ser que as versões mais recentes do Delphi e C++ Builder já 
venham com algo nativo para PostgreSQL...

Alguem pode dar um help ???





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 



 

 
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília 


  _  

Links do Yahoo! Grupos


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

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]  
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!  . 




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






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

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

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

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