[delphi-br] Onde está o erro?

[fabiano_jd]

   Não está alterando os dados:

   Em uma IBQuery :

UPDATE areas
SET
   idArea =:par_idArea,
   nomeArea =:par_nomeArea
WHERE
   idArea =:par_idArea


   No formulario, botão alterar:

   operacao:= 2;
   edtidArea.Enabled:= True;
   edtNomeArea.Enabled:= True;
   EdtNomeArea.SetFocus;


   No formulario, botão Gravar:

if operacao = 2 then
   begin
  dm.IBQAltAreas.ParamByName('par_idArea').AsString:= 
edtidArea.Text;
  dm.IBQAltAreas.ParamByName('par_NomeArea').AsString:= 
EdtNomeArea.Text;

  dm.IBQAltAreas.ExecSQL;
  dm.IBQaltAreas.Close;
  dm.IBTransaction1.Commit;

  Beep;
  MessageDlg('A Alteração da Área: ' + #13 + EdtNomeArea.Text + 
#13 + 'foi executada com sucesso.', mtInformation,[mbOK], 0);
   end;


 Obrigado.   
   










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

 

Re: [delphi-br] Atualizar ClientDataSet

[Francisco Thiago]

puts kra.. vc precisar dar o ApplyUpdates(0) antes.. extranho nao estar
dando erro.

Caso vc tenha dado o ApplyUpdates(0), vc precisa ver como está o
ProviderFlags no campos chaves... qem esta no Where ou coisa do tipo


Thiago
- Original Message - 
From: "Leandro Carbonera" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 10:26 PM
Subject: [delphi-br] Atualizar ClientDataSet



Alguem sabe como faço para atualizar um ClientDataSet ou um IBDataSet???

QUando edito um registro e dou o comando ClientDataSet.Refresh para
atualizar os dados em um DBGrid, ele não faz nada, simplesmente some todos
os dados do BDGrid.


-
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











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

 

Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[Francisco Thiago]

Bom pessoal, pelo que eu vi, não posso confiar de modo algum em uma
comparacao var1 <> var2 onde var1 e var2 sejam Float né? (Entenda-se Double,
real, extended..)

Sempre vou precisar de uma funcao auxiliar?

Obrigado

Thiago
- Original Message - 
From: "Alosi yarru" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 4:15 PM
Subject: Re: [delphi-br] Comparação não funciona (entre duas variaveis do
tipo real)



Eu faria assim, vc terá que definir quantas casas decimais são o suficiente
para finalizar a comparação.

  if StrToFloat(FormatFloat('0', var1 * 1000)) <>
StrToFloat(FormatFloat('0', var2 * 1000)) then
ShowMessage('Diferente');

Eu uso uma sub função que recebe o valor e o número de casas decimanis e
devolve o valor em modo float mas com apenas o valor do número de casas
decimais que pedi, para comparação tem que usar assim, senão nunca irá
funcionar corretamente.

t+
  - Original Message - 
  From: Francisco Thiago
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, April 04, 2005 2:32 PM
  Subject: [delphi-br] Comparação não funciona (entre duas variaveis do tipo
real)


  Caros amigos

  Meu patrão estava escrevendo código no Delphi5 e me mostrou algo
  interessante:

  ele tinhas duas variaveis locais do tipo real e atribuia a elas dois
valores
  digitados (foram informados no banco e passados para essas variaveis).

  Quando ele vazia um
if var1 <> de var2 then
 showmessage(...

  Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2
eram
  virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).

  Depuramos para ver o valor: Era o mesmo.

  Pensei que internamente fosse feita uma aproximação:
  120,298863543687436873654
  Mas não era.. aparecia 120,3 sempre.

  Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)

  Mas, se não é a aproximação, o que poderia ser?


  Francisco Thiago de Almeida
  Enter&Plug Informática
  Divisão: Desenvolvimento e Banco de dados
  MSN: [EMAIL PROTECTED]
  Skype: enterplug_thiago







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

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











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

 

Re: [delphi-br] Webservice

[Francisco Thiago]

Olha kra, dependendo do tamanho do projeto, você pode mostrar pra eles o
Intraweb do Delphi Mas o ideal mesmo é o ASP.Net... Pelo menos no
momento.
Agora.. o que vc tá querendo fazer? Aplicações desktop acessando os dados de
todas a filiais? Voce pode pensar em replicação de dados. Seria mais
simples WebServices é legal de se usar e tudo (DataSnap por SOAP)... Mas
dependendo da sua internet pode ficar lento. se funcionar
constantemente. Lembre que a internet não é a rede da nossa empresa... Ela
cai mais que jaboticaba madura.

Boa Sorte

Thiago
- Original Message - 
From: "Cícero" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 2:30 PM
Subject: RES: [delphi-br] Webservice


>
> ahhh,, legal. Eu estava tratando a coisa como uma página na internet que
te
> desse a possibilidade (única) de alterar, incluir, excluir registro pela
> internet. Pelo que você explicou eu esqueci de analisar a questão
SERVICE..
> beleza brigadão. É que estou com uma demanda do tipo: aplicação para ser
> acessada por várias regionais em todo o país e o pessoal da informática só
> quer falar de JSP e eu estava tentando oferecer uma outra alternativa que
> usasse o delphi. Valeu
>
> -Mensagem original-
> De: Francisco Thiago [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 4 de abril de 2005 12:35
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Webservice
>
>
>
> Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os
> sites. O WebService seria algo como "objetos remotos" serializados com
> xml...
>
> Tipo, você pede o endereço de uma cidade, um webservice te manda isso...
> sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr
> linguagem
>
> Francisco Thiago de Almeida
> Enter&Plug Informática
> Divisão: Desenvolvimento e Banco de dados
> MSN: [EMAIL PROTECTED]
> Skype: enterplug_thiago
>
> - Original Message -
> From: "Cícero" <[EMAIL PROTECTED]>
> To: 
> Sent: Monday, April 04, 2005 8:35 AM
> Subject: [delphi-br] Webservice
>
>
> >
> > Alguém pode me indicar um endereço para que eu acessar e ver como
funciona
> > o
> > webservice?
> >
> > Porque exatamente todo mundo está usando webservice e não um ASP, php,
JSP
> > ?
> >
> >
> >
> > --
> > < 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
>
>
>
>
>
>
>
>
>
> -- 
> < 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

 

Re: [delphi-br] Verificar se maquina esta na rede

[Francisco Thiago]

Dá um ping nela

Thiago
- Original Message - 
From: "Rodrigo Schiavo" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 3:31 PM
Subject: [delphi-br] Verificar se maquina esta na rede


>
> Ola amigos.
>
>
> Estou precisando verificar se uma máquina esta ativa na rede ou não
> antes de tentar estabelecer uma conexão com o SGBD dela, como posso
> fazer isso de forma rapida sem que o programa fique travado 30 segundos
> até retornar o erro de que o endereço não existe?
>
> [ ]'s Rodrigo
>
>
> -- 
> < 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] Mestre/Detalhe - ClientDataset

[Wenceslau Miranda]

Amigos da Lista,

Estou tentando fazer um mestre/detalhe em dois níveis e não estou conseguindo.
Estou usando Dbexpress com ClientDataset, Um mestre/detalhe simples eu consegui 
fazer, mas esto precisando fazer mais um nível nele.
Ex.
cdsClientes
cdsModelos
cdsComponentes

 

[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] Atualizar ClientDataSet

[Leandro Carbonera]

Alguem sabe como faço para atualizar um ClientDataSet ou um IBDataSet???
 
QUando edito um registro e dou o comando ClientDataSet.Refresh para atualizar 
os dados em um DBGrid, ele não faz nada, simplesmente some todos os dados do 
BDGrid.


-
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:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] DBF

[Artur Guerra]

Simone querida, é babinha.
Configure um drive do ODBC do Windows para o diretório que contém os
DBF´s e um abraço.

Salvo algumas limitações do DBF, o básico do SQL roda normalmente.
Até.

Artur

On Apr 4, 2005 2:16 PM, simone_cristina01 <[EMAIL PROTECTED]> wrote:
> 
> 
>  Ola! Alguem poderia me dizer se há, caso positivo, como fazer um
> insert para um arquivo DBF via delphi.
> 
> Simone Cristina
> 
> --
> < 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
> 
> 
> 
> 
> 


-- 


Artur Rodrigo Guerra
mail: [EMAIL PROTECTED]



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

 

Re: [delphi-br] Coordenadas do Canvas

[\[> Mutuka <\]]

eh o ponto x,y dentro de um TImage, x width y height em pixels

Alisson Costa Resende <[EMAIL PROTECTED]> wrote:Alguém pode me explicar como 
funcionam as coordenadas
do canvas? Estou tentando fazer um pequeno desenho
geométrica. É um triangulo isósceles com o menor
ângulo pra cima e outro voltado pra baixo, ou seja uma
pequena seta pra cima e outra pra baixo. Mas, não
consigo entender como funciona as coordenadas do
exemplo abaixo:

Grid.Canvas.Polygon([Point(10, 10), Point(10, 30),
Point(40, 20)]);

Este exemplo desenha o triangulo com o ângulo menor
voltado para a direita. O que quer dizer cada um
desses pontos?


  
  

Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


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

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





   Leandro...

[> Mutuka <]  

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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] Coordenadas do Canvas

[Alisson Costa Resende]

Alguém pode me explicar como funcionam as coordenadas
do canvas? Estou tentando fazer um pequeno desenho
geométrica. É um triangulo isósceles com o menor
ângulo pra cima e outro voltado pra baixo, ou seja uma
pequena seta pra cima e outra pra baixo. Mas, não
consigo entender como funciona as coordenadas do
exemplo abaixo:

Grid.Canvas.Polygon([Point(10, 10), Point(10, 30),
Point(40, 20)]);

Este exemplo desenha o triangulo com o ângulo menor
voltado para a direita. O que quer dizer cada um
desses pontos?





Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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] Remover crítica do Maskedit

[Walter Alves Chagas Junior]

Alguém sabe como faço para retirar aquela mensagem de erro chata do Maskedit
"Invalid input value.."?

 
 
 []s

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


[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 ao excluir no ClientDataSet

[Leandro Carbonera]

Salve lista.
 
Esta ocorrendo um erro quando tento excluir um registro. Estou usando 
ClientDataSet com IBX, e tenho um botão para exclusão dos registro. Lá ele tem 
um comando do tipo "IBDataSet.Delete", mas quando dou o ApplyUpdates no 
ClientDataSet ele me retorna o erro:
 
"SQL Parse error: Parameter name expected"
 
Alguem sabe me dizer o que esta acontecendo...

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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] analisador de expressões

[danilonagem]

Alguém sabe como consigo este analisador de expressões

Entrei neste site abaixo, e não consegui encontrar. 

Alguém sabe de outra solução ou até já planejou isto, ou tem a biblioteca
que baixou do site.

(achei o site muito confuso, não consegui nem fazer o download da
bliblioteca)

Analisar um TEdit como uma expressão matemática. 

(leia meu problema abaixo)

Sei que existem outras formas para resolver isto.. mas é bastante
trabalhoso.

Valeu

 

//--

 

Você precisa de um analisador de expressões. A biblioteca JEDI vem com um.

 http://www.delphi-jedi.org/

 

-//---

 

Bom dia a todos.

 Estou com uma dúvida no delphi sobre função matemática,
 Preciso que o usuário entre com uma função no TEdit da seguinte forma.

 x+3*Poiwer(x,2) -5
 Ou qualquer outra funcao
 dentro do programa eu estabeleço um intervalo desta função e substituo o 
 valor de x gerando um gráfico.

 Como consigo entender que isto que escrevi é uma função e que x é um valor 
 que será substituído. Alguém tem idéia?

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

[simone_cristina01]

  Ola! Alguem poderia me dizer se há, caso positivo, como fazer um
insert para um arquivo DBF via delphi.

Simone Cristina








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

[Voyager Informática Ltda .]

Intraweb 7.x... Funciona que é uma maravilha.
 
Mauricio.


  _  

De: Cícero [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 04 de abril de 2005 14:31
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Webservice
Prioridade: Alta


ahhh,, legal. Eu estava tratando a coisa como uma página na internet que te
desse a possibilidade (única) de alterar, incluir, excluir registro pela
internet. Pelo que você explicou eu esqueci de analisar a questão SERVICE..
beleza brigadão. É que estou com uma demanda do tipo: aplicação para ser
acessada por várias regionais em todo o país e o pessoal da informática só
quer falar de JSP e eu estava tentando oferecer uma outra alternativa que
usasse o delphi. Valeu

-Mensagem original-
De: Francisco Thiago [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Webservice



Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os
sites. O WebService seria algo como "objetos remotos" serializados com
xml...

Tipo, você pede o endereço de uma cidade, um webservice te manda isso...
sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr
linguagem

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message -
From: "Cícero" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 8:35 AM
Subject: [delphi-br] Webservice


>
> Alguém pode me indicar um endereço para que eu acessar e ver como funciona
> o
> webservice?
>
> Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP
> ?
>
>
>
> --
> < 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









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

 

[delphi-br] Ajuda com datetimepicker

[Hugo Santos]

Caros amigos
 Preciso desenvolver uma aplicação utilizando este componente datetimepicker e 
ele não funciona da forma adequada, façam o seguinte teste aí:

1- Adicione em um forme qualquer um datetimepicker
2- Execute o form.
3- No datetimepicker selecione a opção do dia
4- Digite um dia
5- Perceba que o foco continua no dia quando vc termina de digitá-lo
6- Somente após digitar a tecla "/" ou "->"(seta) o foco passa pro mês
7- O mesmo acontece no mês... :-(

A necessidade que eu to tendo é: Quando o dia for digitado AUTOMATICAMENTE o 
foco passe pro mês e após digitado o Mês AUTOMATICAMENTE o foco passe pro ano.

Com um maskedit criando máscaras deve funcionar mas preciso da funcionalidade 
do datetimepicker (tipo o calendário).


Hugo Santos
[EMAIL PROTECTED]
[EMAIL PROTECTED] 


-- 
< 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] ClubeDelphi IntraWeb

[Eneias Sousa Carvalho]

Alguem fez e recomenda o curso de Delhi e E-Comerce, tb tem algum material para 
que eu possa analisar.
 
Eneias Sousa Carvalho.


-
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:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Algumas fotos do evento 5DDD

[Walter Alves Chagas Junior]

Outras fotos do envento (5º DDD):

http://www.superzoom.com.br/index.php?option=com_coppermine&Itemid=29&task=t
humbnails&album=533
 
 
 []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: Bruno Lichot - Micrologos [mailto:[EMAIL PROTECTED]
> Enviada em: segunda-feira, 4 de abril de 2005 14:29
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Algumas fotos do evento 5DDD
> 
> 
> 
> http://200.201.186.169/fotos
> 
> 
> [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

<*> 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: Webservice

[Josir Gomes]

Olá Cicero, você pode muito bem atender a esta demanda utilizando Web 
Services. Aliás, é uma das tarefas mais apropriadas para ele 
principalmente se a sua estrutura de TI for heterogênea. Se você quiser 
entender melhor do assunto: http://www.jsk.com.br/babelfish.html

Vc também pode trocar idéias com quem já usa a arquitura, existe também a lista 
webservices-br do YahooGroups da qual sou o moderador.

Se o IPhan for no Rio de Janeiro, eu posso dar uma palestra grátis sobre 
o assunto para o pessoal de TI. Um detalhe: se eu não me engano, não 
tenho certeza, mas JSP não tem interface para Web Services. Para 
utilizar Web Services com Java, você precisa de mais recursos. Boa 
Sorte, Josir Gomes. - ahhh,, legal. Eu estava tratando a coisa 
como uma página na internet que te desse a possibilidade (única) de 
alterar, incluir, excluir registro pela internet. Pelo que você explicou 
eu esqueci de analisar a questão SERVICE.. beleza brigadão. É que estou 
com uma demanda do tipo: aplicação para ser acessada por várias 
regionais em todo o país e o pessoal da informática só quer falar de JSP 
e eu estava tentando oferecer uma outra alternativa que usasse o delphi. 
Valeu -Mensagem original- De: Francisco Thiago 
[mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 4 de 
abril de 2005 12:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: 
[delphi-br] Webservice Porque são conceitos diferenes. O PHP, ASP e Cia 
vc usa para construir os sites. O WebService seria algo como "objetos 
remotos" serializados com xml... Tipo, você pede o endereço de uma 
cidade, um webservice te manda isso... sacou? E pode ser enviado para 
qqr programa em qqr plataforma usando qqr linguagem Francisco Thiago de 
Almeida Enter&Plug Informática Divisão: Desenvolvimento e Banco de dados 
MSN: [EMAIL PROTECTED] Skype: enterplug_thiago - Original 
Message - From: "Cícero" <[EMAIL PROTECTED]> To: 
 Sent: Monday, April 04, 2005 8:35 AM 
Subject: [delphi-br] Webservice

>>
>> Alguém pode me indicar um endereço para que eu acessar e ver como funciona
>> o
>> webservice?
>


-- 
< 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] Como compilar para linux?

[delphi6_2005]

Amigos tenho um sistema em delphi6 e já trabalho com ele a algum 
tempo agora preciso migrar para linux, porém não sei qual a melhor 
forma de fazer?

Como utilizar o Kylix?
É necessário desenvolver toda a aplicação novamente?


Agradeço a ajuda dos amigos.

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

 

Re: [delphi-br] RES: Melhorar um IF

[\[> Mutuka <\]]

if (frmConsInbimi.Components[i] is TDBEdit) Then
(frmConsInbimi.Components[i] as TDBEdit).Text :=
''



--- Luiz Henrique <[EMAIL PROTECTED]>
wrote:
-
Cícero,

Acho que assim funciona:
if (frmConsInbimi.Components[i] as TDBEdit).Text
:= '' then


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




 Mensagem: 24
 Data: Mon, 4 Apr 2005 16:07:10 -0300
   De: Cícero <[EMAIL PROTECTED]>
  Assunto: Melhorar um IF

Pessoal,

Estou fazendo uma consulta com like em todos os
tedit que tenham um valor
digitado.
Preciso saber:
Se o componente eh TEDIT (JÁ SEI COMO PODE VER
ABAIXO)
Agora preciso saber, se o componente tem um valor
digitado

if frmConsInbimi.Components[i].Text := ''
then
   wvazio:='S';
end;
Só que está dando erro no ( .text) como posso
resolver isso ? veja a rotina
toda abaixo
if (frmConsInbimi.Components[i] is TEdit then
begin
if
frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;

é claro que posso perguntar
 if teditNome.text = ''
 if teditEndereco.text = ''   mas são muitos
campos e eu quero fazer com uma
rotina legal
Como você pode ver, eu descubro se eh tedit,
tcombo, tmask, tmemo e assim
por diante.


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.5 -
Release Date: 29/03/2005
 



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


   function
SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ 
alert("Por favor, digite algo.");  return false;
}else {  document.form_combo.action
="http://br.rd.yahoo.com/SIG=12aq18gft/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1112654039/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}  
   [input]   
[input][input]   
   

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


   Leandro...

[> Mutuka <]  


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 


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

[Luiz Henrique]

Cícero,

Você pode desenvolver ISAPIs ou então usar o IntraWeb (se não me engano vem
a partir do Delphi 6).
Assim você estaria oferecendo uma solução Delphi que funciona muito bem.


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




 Mensagem: 11
 Data: Mon, 4 Apr 2005 14:30:38 -0300
   De: Cícero <[EMAIL PROTECTED]>
  Assunto: RES: Webservice

ahhh,, legal. Eu estava tratando a coisa como uma página na internet que te
desse a possibilidade (única) de alterar, incluir, excluir registro pela
internet. Pelo que você explicou eu esqueci de analisar a questão SERVICE..
beleza brigadão. É que estou com uma demanda do tipo: aplicação para ser
acessada por várias regionais em todo o país e o pessoal da informática só
quer falar de JSP e eu estava tentando oferecer uma outra alternativa que
usasse o delphi. Valeu

-Mensagem original-
De: Francisco Thiago [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Webservice



Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os
sites. O WebService seria algo como "objetos remotos" serializados com
xml...

Tipo, você pede o endereço de uma cidade, um webservice te manda isso...
sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr
linguagem

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message -
From: "Cícero" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 8:35 AM
Subject: [delphi-br] Webservice


>
> Alguém pode me indicar um endereço para que eu acessar e ver como funciona
> o
> webservice?
>
> Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP
> ?
>
>
>
> --
> < 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












 Mensagem: 12
 Data: Mon, 4 Apr 2005 14:32:16 -0300
   De: "Francisco Thiago" <[EMAIL PROTECTED]>
  Assunto: Comparação não funciona (entre duas variaveis do tipo real)

Caros amigos

Meu patrão estava escrevendo código no Delphi5 e me mostrou algo 
interessante:

ele tinhas duas variaveis locais do tipo real e atribuia a elas dois valores

digitados (foram informados no banco e passados para essas variaveis).

Quando ele vazia um
  if var1 <> de var2 then
   showmessage(...

Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2 eram 
virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).

Depuramos para ver o valor: Era o mesmo.

Pensei que internamente fosse feita uma aproximação: 
120,298863543687436873654
Mas não era.. aparecia 120,3 sempre.

Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)

Mas, se não é a aproximação, o que poderia ser?


Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago











 Mensagem: 13
 Data: Mon, 4 Apr 2005 14:29:23 -0300
   De: "Bruno Lichot - Micrologos" <[EMAIL PROTECTED]>
  Assunto: Algumas fotos do evento 5DDD

http://200.201.186.169/fotos


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






 Mensagem: 14
 Data: Mon, 4 Apr 2005 14:23:21 -0300
   De: Cícero <[EMAIL PROTECTED]>
  Assunto: RES: Software de Backup

Se você estiver usando o NT ele tem. Mas eh claro que esse não deve ser o
caso...

-Mensagem original-
De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Software de Backup



Alguem teria um dica de um software para backup em fita que fosse free??
E que se pudesse ter um bom controle dos arquivos bacapiados.


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

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo

[delphi-br] RES: Melhorar um IF

[Luiz Henrique]

Cícero,

Acho que assim funciona:
if (frmConsInbimi.Components[i] as TDBEdit).Text := '' then


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




 Mensagem: 24
 Data: Mon, 4 Apr 2005 16:07:10 -0300
   De: Cícero <[EMAIL PROTECTED]>
  Assunto: Melhorar um IF

Pessoal,

Estou fazendo uma consulta com like em todos os tedit que tenham um valor
digitado.
Preciso saber:
Se o componente eh TEDIT (JÁ SEI COMO PODE VER ABAIXO)
Agora preciso saber, se o componente tem um valor digitado

  if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;
Só que está dando erro no ( .text) como posso resolver isso ? veja a rotina
toda abaixo
if (frmConsInbimi.Components[i] is TEdit then
begin
if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;

é claro que posso perguntar
 if teditNome.text = ''
 if teditEndereco.text = ''   mas são muitos campos e eu quero fazer com uma
rotina legal
Como você pode ver, eu descubro se eh tedit, tcombo, tmask, tmemo e assim
por diante.


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005
 



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

 

Re: [delphi-br] writeln

[Filipe]

isso aê

WriteLN = Write Line New...

- Original Message - 
From: "Maurício Chiarato Vaglieri" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 5:17 PM
Subject: Re: [delphi-br] writeln



Debora,

   Ao invés do WRITELN, utilize o WRITE, que faz a mesma coisa sem "pular" 
de linha!

Abraços,

Mauricio C. Vaglieri
  - Original Message - 
  From: Debora
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED]
  Sent: Monday, April 04, 2005 4:57 PM
  Subject: [delphi-br] writeln


  estou com uma duvida em writeln.
  Tenho uma base de dados em que farei uma consulta sql que retornarão 
vários registros. como faço pra imprimi-los usando writeln , sendo que não 
posso mudar de linha (seria algo como uma justificação)
  select * from tabela where dataent=.
  retornará algo do tipo
  1- joao da silva cpf 0123345678
  2- silvio luis cpf343636363
  3-mario da silva cpf 335635356363

  preciso que saia algo do tipo

  1)joao da silva cpf012345678 2)silvio luis cpf..3)marioda silva cpf...

  [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

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




--


  Nenhum virus encontrado nesta mensagem.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005

  --

Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/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











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

 

Re: [delphi-br] writeln

[Maurício Chiarato Vaglieri]

Debora,

   Ao invés do WRITELN, utilize o WRITE, que faz a mesma coisa sem "pular" de 
linha!

Abraços,

Mauricio C. Vaglieri
  - Original Message - 
  From: Debora 
  To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] 
  Sent: Monday, April 04, 2005 4:57 PM
  Subject: [delphi-br] writeln


  estou com uma duvida em writeln. 
  Tenho uma base de dados em que farei uma consulta sql que retornarão vários 
registros. como faço pra imprimi-los usando writeln , sendo que não posso mudar 
de linha (seria algo como uma justificação)
  select * from tabela where dataent=.
  retornará algo do tipo
  1- joao da silva cpf 0123345678
  2- silvio luis cpf343636363
  3-mario da silva cpf 335635356363

  preciso que saia algo do tipo

  1)joao da silva cpf012345678 2)silvio luis cpf..3)marioda silva cpf...

  [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

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




--


  Nenhum virus encontrado nesta mensagem.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005

  --

Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/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

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

 

Re: Re: [delphi-br] Primeiro Dia de um Mês, e qual Semana do Mês!!!!!

[Rodrigo Izquierdo da Motta]

Ola Gabriel

  Desculpe naum ter sido claro, eh que geralmente a
gente tende a pensar que todos vao enteder, pois esta
na minha cabeca hehehehe.

  Bom o que eu gostaria eh da primeira opcao, eu
gostaria que comece no dia 1º, e termine no primeiro
Domingo, eu queria considerar a Segunda como primeiro
dia da semana, eu acho que isso eh possivel, pois vi
que tem funcoes que consideram domingo o primeiro dia
e outras segunda como primeiro dia.

Um Abraco, e Obrigado Gabriel

Rodrigo Izquierdo da Motta

/*=*/


--- Gabriel Ferrarini <[EMAIL PROTECTED]>
wrote:
> 
> Olha, acho que primeiro você precisa explicar melhor
> o que você quer que seja a primeira semana:
> 
>  - A primeira semana começa no dia 1º e termina no
> primeiro sábado.
>  - A primeira semana são os 7 primeiros dias.
> 
> Qual a opção?
> 
> Se for a segunda, faça um case verificando o dia da
> semana: se estiver entre 1 e 7 é a primeira, 8 e 15
> a segunda e por aí vai. Caso seja a primeira opção,
> você precisa considerar em que dia você está
> contando a partir do último domingo do Mês anterior
> para saber quando termina a primeira semana, feito
> isso é só uma questão de contas e condições para
> fazer a função.
> 
> Desculpe por não colocar nenhum código pois não
> tenho feito, é como eu faria.
> 
> Flw,
> Gabriel.
>   - Original Message - 
>   From: Rodrigo Izquierdo da Motta 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, April 04, 2005 4:34 PM
>   Subject: [delphi-br] Primeiro Dia de um Mês, e
> qual Semana do Mês!
> 
> 
>   Ola Lista
> 
> Eu estou mexendo com datas na minha aplicacao,
> jah
>   descobri varias funcoes interessantes e uteis para
>   mexer com data, mas tem algumas que naum
> encontrei,
>   sera que alguem pode me ajudar, eu queria uma
> funcao
>   para encontrar o primeiro dia de um mes, e um
> outra
>   para me dar a semana do mes, eu achei o
>   WeekOfTheMonth, mas naum esta bom, pois ele
> considera
>   um dia 1o no Domingo como sendo a 5o semana do mês
>   passado, e eu preciso que ele me diga que eh o 1
> ou 0
>   tanto faz, mas tem que me dizer que eh a primeira
>   semana daquele mes!!!
> 
>   Um Abraco e Obrigado a Todos
> 
>   Rodrigo Izquierdo da Motta
> 
> 
> 
> 
>   
>   Yahoo! Acesso Grátis - Internet rápida e grátis. 
>   Instale o discador agora!
> http://br.acesso.yahoo.com/
> 
> 
>   -- 
>   < 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
> 
> 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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 
> 





Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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] Primeiro Dia de um Mês, e qual Semana do Mês!!!!!

[Camoloze]

Se estiver usando o D7, use NthDayOfWeek e não WeekOfTheMonth .( no help
explica a diferença )
 function NthDayOfWeek( const AValue: TDateTime ): Word;
 
Para o primeiro dia do mês -> de uma olhada em StartOfAMonth()
   function StartOfAMonth( const AYear, AMonth: Word ): TDateTime;
 
[ ]´s camoloze
 
-Mensagem original-
De: Rodrigo Izquierdo da Motta [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 4 de abril de 2005 16:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Primeiro Dia de um Mês, e qual Semana do Mês!



Ola Lista

  Eu estou mexendo com datas na minha aplicacao, jah
descobri varias funcoes interessantes e uteis para
mexer com data, mas tem algumas que naum encontrei,
sera que alguem pode me ajudar, eu queria uma funcao
para encontrar o primeiro dia de um mes, e um outra
para me dar a semana do mes, eu achei o
WeekOfTheMonth, mas naum esta bom, pois ele considera
um dia 1o no Domingo como sendo a 5o semana do mês
passado, e eu preciso que ele me diga que eh o 1 ou 0
tanto faz, mas tem que me dizer que eh a primeira
semana daquele mes!!!

Um Abraco e Obrigado a Todos

Rodrigo Izquierdo da Motta


  
  

Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


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

 

[delphi-br] writeln

[Debora]

estou com uma duvida em writeln. 
Tenho uma base de dados em que farei uma consulta sql que retornarão vários 
registros. como faço pra imprimi-los usando writeln , sendo que não posso mudar 
de linha (seria algo como uma justificação)
select * from tabela where dataent=.
retornará algo do tipo
1- joao da silva cpf 0123345678
2- silvio luis cpf343636363
3-mario da silva cpf 335635356363

preciso que saia algo do tipo

1)joao da silva cpf012345678 2)silvio luis cpf..3)marioda silva cpf...

[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

 

Re: [delphi-br] Primeiro Dia de um Mês, e qual Semana do Mês!!!!!

[Gabriel Ferrarini]

Olha, acho que primeiro você precisa explicar melhor o que você quer que seja a 
primeira semana:

 - A primeira semana começa no dia 1º e termina no primeiro sábado.
 - A primeira semana são os 7 primeiros dias.

Qual a opção?

Se for a segunda, faça um case verificando o dia da semana: se estiver entre 1 
e 7 é a primeira, 8 e 15 a segunda e por aí vai. Caso seja a primeira opção, 
você precisa considerar em que dia você está contando a partir do último 
domingo do Mês anterior para saber quando termina a primeira semana, feito isso 
é só uma questão de contas e condições para fazer a função.

Desculpe por não colocar nenhum código pois não tenho feito, é como eu faria.

Flw,
Gabriel.
  - Original Message - 
  From: Rodrigo Izquierdo da Motta 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 4:34 PM
  Subject: [delphi-br] Primeiro Dia de um Mês, e qual Semana do Mês!


  Ola Lista

Eu estou mexendo com datas na minha aplicacao, jah
  descobri varias funcoes interessantes e uteis para
  mexer com data, mas tem algumas que naum encontrei,
  sera que alguem pode me ajudar, eu queria uma funcao
  para encontrar o primeiro dia de um mes, e um outra
  para me dar a semana do mes, eu achei o
  WeekOfTheMonth, mas naum esta bom, pois ele considera
  um dia 1o no Domingo como sendo a 5o semana do mês
  passado, e eu preciso que ele me diga que eh o 1 ou 0
  tanto faz, mas tem que me dizer que eh a primeira
  semana daquele mes!!!

  Um Abraco e Obrigado a Todos

  Rodrigo Izquierdo da Motta




  
  Yahoo! Acesso Grátis - Internet rápida e grátis. 
  Instale o discador agora! http://br.acesso.yahoo.com/


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

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]

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

 

Re: [delphi-br] Report Builder

[Mairlo Hideyoshi Guibo Carneiro da Luz]

Valeu. Agora q vi melhor como se utiliza o SubReport funcionou 
perfeitamente.

Mairlo
  - Original Message - 
  From: Mairlo Hideyoshi Guibo Carneiro da Luz 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 3:57 PM
  Subject: Re: [delphi-br] Report Builder


  Adicionei as subreports ao meu relatório, mas na hora da exibição do 
relatório, no campo referente aos ingrediente aparece apenas o 1º registro.
  Sabe como resolver esse problema?



  Mairlo




  - Original Message - 
From: Filipe 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, April 04, 2005 3:19 PM
Subject: Re: [delphi-br] Report Builder


Cria um grupo, no group header vc coloca um bdText com o campo "receita", 
na 
banda detail, vc coloca subreports e tal mais ou menos isso...





- Original Message - 
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 3:12 PM
Subject: [delphi-br] Report Builder



Pessoal,

Eu tenho tabelas que possuem relacionamento N x N entre elas e, com 
base 
no identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela 
e Y itens da terceira. De posse desses dados, eu gostaria de criar um 
relatório utilizando o ReportBuilder com todas essas informações. Estou 
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:

1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )

2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição

3ª tabela:
- PASSOS
-> Identificador
-> Descrição

Existem tb as tabelas que descrevem o relacionamento entre essas 
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para 
ser realizada. Então, gostaria de criar o seguinte relatório:


 Receita de 

   Autor:  Tipo: 

---
  Ingredientes

: 

---
 Passos



Onde, em ingredientes poderia existir 3 itens, enquanto que em passos 
poderiam existir 7 passos, por exemplo:

 Receita de Pavê

   Autor: Desconhecido Tipo: Doce

---
  Ingredientes

Ovos: de granja
Fermento: em pó
Açúcar: mascavo

---
 Passos

Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.


Alguém saberia me dizer como fazer isso?



[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] Primeiro Dia de um Mês, e qual Semana do Mês!!!!!

[Rodrigo Izquierdo da Motta]

Ola Lista

  Eu estou mexendo com datas na minha aplicacao, jah
descobri varias funcoes interessantes e uteis para
mexer com data, mas tem algumas que naum encontrei,
sera que alguem pode me ajudar, eu queria uma funcao
para encontrar o primeiro dia de um mes, e um outra
para me dar a semana do mes, eu achei o
WeekOfTheMonth, mas naum esta bom, pois ele considera
um dia 1o no Domingo como sendo a 5o semana do mês
passado, e eu preciso que ele me diga que eh o 1 ou 0
tanto faz, mas tem que me dizer que eh a primeira
semana daquele mes!!!

Um Abraco e Obrigado a Todos

Rodrigo Izquierdo da Motta





Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


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

 

Re: [delphi-br] Melhorar um IF

[Julio Cesar]

nem todos os componentes tem a propriedade text entao faca assim q acho q 
funciona...

if ((frmConsInbimi.Components[i] is TEdit) and 
(TEdit(frmConsInbimi.Components[i]).Text := '')) then
   wvazio:='S';
end;




Julio Cesar
[EMAIL PROTECTED]
+353 (87) 2184139
+353 (091) 630317
  - Original Message - 
  From: Cícero 
  To: [EMAIL PROTECTED] Com. Br (E-mail) 
  Sent: Monday, April 04, 2005 8:07 PM
  Subject: [delphi-br] Melhorar um IF


  Pessoal,

  Estou fazendo uma consulta com like em todos os tedit que tenham um valor
  digitado.
  Preciso saber:
  Se o componente eh TEDIT (JÁ SEI COMO PODE VER ABAIXO)
  Agora preciso saber, se o componente tem um valor digitado

  if frmConsInbimi.Components[i].Text := '' then
 wvazio:='S';
  end;
  Só que está dando erro no ( .text) como posso resolver isso ? veja a rotina
  toda abaixo
  if (frmConsInbimi.Components[i] is TEdit then
  begin
  if frmConsInbimi.Components[i].Text := '' then
 wvazio:='S';
  end;

  é claro que posso perguntar
  if teditNome.text = ''
  if teditEndereco.text = ''   mas são muitos campos e eu quero fazer com uma
  rotina legal
  Como você pode ver, eu descubro se eh tedit, tcombo, tmask, tmemo e assim
  por diante.



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



[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

 

Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[Alosi yarru]

Eu faria assim, vc terá que definir quantas casas decimais são o suficiente 
para finalizar a comparação.

  if StrToFloat(FormatFloat('0', var1 * 1000)) <> StrToFloat(FormatFloat('0', 
var2 * 1000)) then
ShowMessage('Diferente');

Eu uso uma sub função que recebe o valor e o número de casas decimanis e 
devolve o valor em modo float mas com apenas o valor do número de casas 
decimais que pedi, para comparação tem que usar assim, senão nunca irá 
funcionar corretamente.

t+
  - Original Message - 
  From: Francisco Thiago 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 2:32 PM
  Subject: [delphi-br] Comparação não funciona (entre duas variaveis do tipo 
real)


  Caros amigos

  Meu patrão estava escrevendo código no Delphi5 e me mostrou algo 
  interessante:

  ele tinhas duas variaveis locais do tipo real e atribuia a elas dois valores 
  digitados (foram informados no banco e passados para essas variaveis).

  Quando ele vazia um
if var1 <> de var2 then
 showmessage(...

  Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2 eram 
  virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).

  Depuramos para ver o valor: Era o mesmo.

  Pensei que internamente fosse feita uma aproximação: 
  120,298863543687436873654
  Mas não era.. aparecia 120,3 sempre.

  Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)

  Mas, se não é a aproximação, o que poderia ser?


  Francisco Thiago de Almeida
  Enter&Plug Informática
  Divisão: Desenvolvimento e Banco de dados
  MSN: [EMAIL PROTECTED]
  Skype: enterplug_thiago







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

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]

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

 

RES: [delphi-br] Melhorar um IF

[Camoloze]

Cicero, olha como fica..
 
if (frmConsInbimi.Components[i] is TEdit then
   begin
//if frmConsInbimi.Components[i].Text := '' then
  if  TEdit(  frmConsInbimi.Components[i]  ) .Text := '' then
   wvazio:='S';
   end;

[ ]´s camoloze

-Mensagem original-
De: Cícero [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 4 de abril de 2005 16:07
Para: [EMAIL PROTECTED] Com. Br (E-mail)
Assunto: [delphi-br] Melhorar um IF
Prioridade: Alta


Pessoal,

Estou fazendo uma consulta com like em todos os tedit que tenham um valor
digitado.
Preciso saber:
Se o componente eh TEDIT (JÁ SEI COMO PODE VER ABAIXO)
Agora preciso saber, se o componente tem um valor digitado

if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;
Só que está dando erro no ( .text) como posso resolver isso ? veja a rotina
toda abaixo
if (frmConsInbimi.Components[i] is TEdit then
begin
if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;

é claro que posso perguntar
if teditNome.text = ''
if teditEndereco.text = ''   mas são muitos campos e eu quero fazer com uma
rotina legal
Como você pode ver, eu descubro se eh tedit, tcombo, tmask, tmemo e assim
por diante.



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

 

Re: Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[\[> Mutuka <\]]

Já foi discutido isto uma vez e tanto precisei q
tive de desenvolver uma funcao para nao ter mais
problemas até a postei aki...

ai vai novamente caso precise:
funciona igual a strcomp mas com variaveis float
em vez de string

Function Compara(Valor1,Valor2 :Variant)
:Integer;
Var
Pos1, Pos2: Integer;
Aux1, Aux2: Variant;

Begin

Valor1 := FloatToStr(Valor1);
Valor2 := FloatToStr(Valor2);

Pos1 := Pos('.',Valor1);
If Pos1 > 0 Then Aux1 :=
StrToInt(Copy(Valor1,1,Pos1-1))
Else Aux1 := StrToInt(Valor1);

Pos2 := Pos('.',Valor2);
If Pos2 > 0 Then Aux2 :=
StrToInt(Copy(Valor2,1,Pos2-1))
Else Aux2 := StrToInt(Valor2);

If Aux1 - Aux2 < 0 Then Result := -1
Else If Aux1 - Aux2 > 0 Then Result := 1
Else
Begin

If Pos1 <> 0 Then Aux1 :=
StrToInt(Copy(Valor1,Pos1+1,2))
Else Aux1 := 0;

If Pos2 <> 0 Then Aux2 :=
StrToInt(Copy(Valor2,Pos2+1,2))
Else Aux2 := 0;

If Length(IntToStr(Aux1)) = 1
Then Aux1 := Aux1 * 10;
If Length(IntToStr(Aux2)) = 1
Then Aux2 := Aux2 * 10;

If Aux1 - Aux2 = 0 Then Result :=
0
Else If Aux1 - Aux2 < 0 Then
Result := -1
Else If Aux1 - Aux2 > 0 Then
Result := 1
Else Result := 0;

End;

End;


   Leandro...

[> Mutuka <]  






Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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] Melhorar um IF

[Cícero]

Pessoal,

Estou fazendo uma consulta com like em todos os tedit que tenham um valor
digitado.
Preciso saber:
Se o componente eh TEDIT (JÁ SEI COMO PODE VER ABAIXO)
Agora preciso saber, se o componente tem um valor digitado

  if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;
Só que está dando erro no ( .text) como posso resolver isso ? veja a rotina
toda abaixo
if (frmConsInbimi.Components[i] is TEdit then
begin
if frmConsInbimi.Components[i].Text := '' then
   wvazio:='S';
end;

é claro que posso perguntar
 if teditNome.text = ''
 if teditEndereco.text = ''   mas são muitos campos e eu quero fazer com uma
rotina legal
Como você pode ver, eu descubro se eh tedit, tcombo, tmask, tmemo e assim
por diante.



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

 

Re: [delphi-br] Report Builder

[Filipe]

vc provavelmente colocou seu dbText em outra banda que naum seja a detail...


verifica isso...


- Original Message - 
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 3:57 PM
Subject: Re: [delphi-br] Report Builder



Adicionei as subreports ao meu relatório, mas na hora da exibição do 
relatório, no campo referente aos ingrediente aparece apenas o 1º registro.
Sabe como resolver esse problema?



Mairlo




- Original Message - 
  From: Filipe
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, April 04, 2005 3:19 PM
  Subject: Re: [delphi-br] Report Builder


  Cria um grupo, no group header vc coloca um bdText com o campo "receita", 
na
  banda detail, vc coloca subreports e tal mais ou menos isso...





  - Original Message - 
  From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
  To: 
  Sent: Monday, April 04, 2005 3:12 PM
  Subject: [delphi-br] Report Builder



  Pessoal,

  Eu tenho tabelas que possuem relacionamento N x N entre elas e, com 
base
  no identificador da 1ª tabela, eu posso encontrar X itens da segunda 
tabela
  e Y itens da terceira. De posse desses dados, eu gostaria de criar um
  relatório utilizando o ReportBuilder com todas essas informações. Estou
  utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:

  1ª tabela:
  - RECEITAS
  -> Identificador
  -> Nome
  -> Autor
  -> Tipo( Doce, Massa etc )

  2ª tabela:
  - INGREDIENTES
  -> Identificador
  -> Nome
  -> Descrição

  3ª tabela:
  - PASSOS
  -> Identificador
  -> Descrição

  Existem tb as tabelas que descrevem o relacionamento entre essas
  tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para
  ser realizada. Então, gostaria de criar o seguinte relatório:


   Receita de 

 Autor:  Tipo: 

  ---
Ingredientes

  : 

  ---
   Passos

  

  Onde, em ingredientes poderia existir 3 itens, enquanto que em passos
  poderiam existir 7 passos, por exemplo:

   Receita de Pavê

 Autor: Desconhecido Tipo: Doce

  ---
Ingredientes

  Ovos: de granja
  Fermento: em pó
  Açúcar: mascavo

  ---
   Passos

  Separar a clara da gema;
  Bater a gema;
  Deixar a gema descansando;
  Misturar o açúcar a gema;
  Colocar a mistura no forno por 30 min;
  Batar a clara;
  Pincelar a clara sobre a mistura.


  Alguém saberia me dizer como fazer isso?


[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

 

Re: [delphi-br] Report Builder

[Mairlo Hideyoshi Guibo Carneiro da Luz]

Adicionei as subreports ao meu relatório, mas na hora da exibição do 
relatório, no campo referente aos ingrediente aparece apenas o 1º registro.
Sabe como resolver esse problema?



Mairlo




- Original Message - 
  From: Filipe 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 3:19 PM
  Subject: Re: [delphi-br] Report Builder


  Cria um grupo, no group header vc coloca um bdText com o campo "receita", na 
  banda detail, vc coloca subreports e tal mais ou menos isso...





  - Original Message - 
  From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
  To: 
  Sent: Monday, April 04, 2005 3:12 PM
  Subject: [delphi-br] Report Builder



  Pessoal,

  Eu tenho tabelas que possuem relacionamento N x N entre elas e, com base 
  no identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela 
  e Y itens da terceira. De posse desses dados, eu gostaria de criar um 
  relatório utilizando o ReportBuilder com todas essas informações. Estou 
  utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:

  1ª tabela:
  - RECEITAS
  -> Identificador
  -> Nome
  -> Autor
  -> Tipo( Doce, Massa etc )

  2ª tabela:
  - INGREDIENTES
  -> Identificador
  -> Nome
  -> Descrição

  3ª tabela:
  - PASSOS
  -> Identificador
  -> Descrição

  Existem tb as tabelas que descrevem o relacionamento entre essas 
  tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para 
  ser realizada. Então, gostaria de criar o seguinte relatório:


   Receita de 

 Autor:  Tipo: 

  ---
Ingredientes

  : 

  ---
   Passos

  

  Onde, em ingredientes poderia existir 3 itens, enquanto que em passos 
  poderiam existir 7 passos, por exemplo:

   Receita de Pavê

 Autor: Desconhecido Tipo: Doce

  ---
Ingredientes

  Ovos: de granja
  Fermento: em pó
  Açúcar: mascavo

  ---
   Passos

  Separar a clara da gema;
  Bater a gema;
  Deixar a gema descansando;
  Misturar o açúcar a gema;
  Colocar a mistura no forno por 30 min;
  Batar a clara;
  Pincelar a clara sobre a mistura.


  Alguém saberia me dizer como fazer isso?


[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

 

Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[Francisco Thiago]

Mas com string está funcionando. Não está funcionando quando uso Double :(

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message - 
From: "Oséias Ferreira" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 3:26 PM
Subject: Re: [delphi-br] Comparação não funciona (entre duas variaveis do 
tipo real)


>
> -BEGIN PGP SIGNED MESSAGE-
> Hash: SHA1
>
> O problema é que string não tem valor absoluto.
> Use extended, que a comparação funciona...
>
> var
>  var1, var2: extended;
> begin
>  var1:=1.36655656565;
>  var2:=1.36655656564;
>
>  if var1 > var2 then
>showmessage('var1 é maior');
>
> end;
>
> Filipe escreveu:
>> eu sempre transformo pra string pra comparar...
>>
> -BEGIN PGP SIGNATURE-
> Version: GnuPG v1.4.1 (MingW32)
>
> iD8DBQFCUYa9HKYDdGAIQkURAv69AJ9PPeG7NWcC86H0o4TI1xGhbVF8ZACgtabx
> jpkfU9OdEVMgLIY2vm4SzHs=
> =//Am
> -END PGP SIGNATURE-
>
>
>
> -- 
> < 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] Verificar se maquina esta na rede

[Rodrigo Schiavo]

Ola amigos.


Estou precisando verificar se uma máquina esta ativa na rede ou não 
antes de tentar estabelecer uma conexão com o SGBD dela, como posso 
fazer isso de forma rapida sem que o programa fique travado 30 segundos 
até retornar o erro de que o endereço não existe?

[ ]'s Rodrigo


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

 

Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[Oséias Ferreira]

-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

O problema é que string não tem valor absoluto.
Use extended, que a comparação funciona...

var
  var1, var2: extended;
begin
  var1:=1.36655656565;
  var2:=1.36655656564;

  if var1 > var2 then
showmessage('var1 é maior');

end;

Filipe escreveu:
> eu sempre transformo pra string pra comparar...
> 
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.4.1 (MingW32)

iD8DBQFCUYa9HKYDdGAIQkURAv69AJ9PPeG7NWcC86H0o4TI1xGhbVF8ZACgtabx
jpkfU9OdEVMgLIY2vm4SzHs=
=//Am
-END PGP SIGNATURE-



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

 

Re: [delphi-br] Como pegar IP em ADSL?

[Oséias Ferreira]

-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

Eu fiz uma vez, usando o IdHttp.
No meu caso, eu criei um script em php

(é bem besta fazer isto



),

e dava um GET com o componente, no servidor que estava armazenado o script.
É claro que o script deve estar de fora da LAN, para que você consiga o
IP verdadeiro.
Um outro problema, é que o IP "verdadeiro" (Internet), pode ser apenas
um router ou NAT.
Aí será necessário direcionar as portas corretamente no router, ou
sitema que estiver roteando,  a internet para a LAN.
Mas o problema essencial, que era descobrir o IP, é possível fazer assim.

- --
Oséias Ferreira.


Ricardo Mauro escreveu:
> 
> Bom dia!
> 
> Gostaria de saber se conseguiu resover seu problema, em capturar o ip externo?
> 
> Abracos,
> 
> Ricardo Mauro
> 
> 
>   - Original Message - 
>   From: lixeirod 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Friday, November 05, 2004 4:03 PM
>   Subject: [delphi-br] Re: Como pegar IP em ADSL?
> 
> 
> 
>   OK, mas eu precisaria que a aplicação, ao se conectar, eviasse por e-
>   mail, ICQ, ou Messenger para mim seu IP diretamente.
>   Como implementar isso pelo site?
> 
-BEGIN PGP SIGNATURE-
Version: GnuPG v1.4.1 (MingW32)

iD8DBQFCUYYDHKYDdGAIQkURAn7ZAJ95Y/3kyXfZfzs3pcEHJ2MXcO/PdwCg2+E2
87Jb5YSQC/tNe8gRI3B8+Cg=
=DFRN
-END PGP SIGNATURE-



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

 

Re: [delphi-br] Report Builder

[Filipe]

Cria um grupo, no group header vc coloca um bdText com o campo "receita", na 
banda detail, vc coloca subreports e tal mais ou menos isso...





- Original Message - 
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 3:12 PM
Subject: [delphi-br] Report Builder



Pessoal,

Eu tenho tabelas que possuem relacionamento N x N entre elas e, com base 
no identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela 
e Y itens da terceira. De posse desses dados, eu gostaria de criar um 
relatório utilizando o ReportBuilder com todas essas informações. Estou 
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:

1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )

2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição

3ª tabela:
- PASSOS
-> Identificador
-> Descrição

Existem tb as tabelas que descrevem o relacionamento entre essas 
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para 
ser realizada. Então, gostaria de criar o seguinte relatório:


 Receita de 

   Autor:  Tipo: 

---
  Ingredientes

: 

---
 Passos



Onde, em ingredientes poderia existir 3 itens, enquanto que em passos 
poderiam existir 7 passos, por exemplo:

 Receita de Pavê

   Autor: Desconhecido Tipo: Doce

---
  Ingredientes

Ovos: de granja
Fermento: em pó
Açúcar: mascavo

---
 Passos

Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.


Alguém saberia me dizer como fazer isso?


[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] Report Builder

[Mairlo Hideyoshi Guibo Carneiro da Luz]

Pessoal,

Eu tenho tabelas que possuem relacionamento N x N entre elas e, com base no 
identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela e Y 
itens da terceira. De posse desses dados, eu gostaria de criar um relatório 
utilizando o ReportBuilder com todas essas informações. Estou utilizando o 
Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:

1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )

2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição

3ª tabela:
- PASSOS
-> Identificador
-> Descrição

Existem tb as tabelas que descrevem o relacionamento entre essas tabelas. 
Por exemplo, uma receita pode ter N ingredientes e Z passos para ser realizada. 
Então, gostaria de criar o seguinte relatório:


 Receita de 

   Autor:  Tipo:   

---
  Ingredientes

: 

---
 Passos



Onde, em ingredientes poderia existir 3 itens, enquanto que em passos 
poderiam existir 7 passos, por exemplo:

 Receita de Pavê

   Autor: Desconhecido Tipo: Doce

---
  Ingredientes

Ovos: de granja
Fermento: em pó
Açúcar: mascavo

---
 Passos

Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.


Alguém saberia me dizer como fazer isso?


[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

 

Re: [delphi-br] Comparação não funciona (entre duas variaveis do tipo real)

[Filipe]

eu sempre transformo pra string pra comparar...

- Original Message - 
From: "Francisco Thiago" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 2:32 PM
Subject: [delphi-br] Comparação não funciona (entre duas variaveis do tipo 
real)


>
> Caros amigos
>
> Meu patrão estava escrevendo código no Delphi5 e me mostrou algo
> interessante:
>
> ele tinhas duas variaveis locais do tipo real e atribuia a elas dois 
> valores
> digitados (foram informados no banco e passados para essas variaveis).
>
> Quando ele vazia um
>  if var1 <> de var2 then
>   showmessage(...
>
> Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2 
> eram
> virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).
>
> Depuramos para ver o valor: Era o mesmo.
>
> Pensei que internamente fosse feita uma aproximação:
> 120,298863543687436873654
> Mas não era.. aparecia 120,3 sempre.
>
> Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)
>
> Mas, se não é a aproximação, o que poderia ser?
>
>
> Francisco Thiago de Almeida
> Enter&Plug Informática
> Divisão: Desenvolvimento e Banco de dados
> MSN: [EMAIL PROTECTED]
> Skype: enterplug_thiago
>
>
>
>
>
>
>
> -- 
> < 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

 

RES: [delphi-br] Software de Backup

[Cícero]

Se você estiver usando o NT ele tem. Mas eh claro que esse não deve ser o
caso...

-Mensagem original-
De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Software de Backup



Alguem teria um dica de um software para backup em fita que fosse free??
E que se pudesse ter um bom controle dos arquivos bacapiados.


--
< 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] Algumas fotos do evento 5DDD

[Bruno Lichot - Micrologos]

http://200.201.186.169/fotos


[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] Comparação não funciona (entre duas variaveis do tipo real)

[Francisco Thiago]

Caros amigos

Meu patrão estava escrevendo código no Delphi5 e me mostrou algo 
interessante:

ele tinhas duas variaveis locais do tipo real e atribuia a elas dois valores 
digitados (foram informados no banco e passados para essas variaveis).

Quando ele vazia um
  if var1 <> de var2 then
   showmessage(...

Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2 eram 
virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).

Depuramos para ver o valor: Era o mesmo.

Pensei que internamente fosse feita uma aproximação: 
120,298863543687436873654
Mas não era.. aparecia 120,3 sempre.

Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)

Mas, se não é a aproximação, o que poderia ser?


Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago







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

[Cícero]

ahhh,, legal. Eu estava tratando a coisa como uma página na internet que te
desse a possibilidade (única) de alterar, incluir, excluir registro pela
internet. Pelo que você explicou eu esqueci de analisar a questão SERVICE..
beleza brigadão. É que estou com uma demanda do tipo: aplicação para ser
acessada por várias regionais em todo o país e o pessoal da informática só
quer falar de JSP e eu estava tentando oferecer uma outra alternativa que
usasse o delphi. Valeu

-Mensagem original-
De: Francisco Thiago [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Webservice



Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os
sites. O WebService seria algo como "objetos remotos" serializados com
xml...

Tipo, você pede o endereço de uma cidade, um webservice te manda isso...
sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr
linguagem

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message -
From: "Cícero" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 8:35 AM
Subject: [delphi-br] Webservice


>
> Alguém pode me indicar um endereço para que eu acessar e ver como funciona
> o
> webservice?
>
> Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP
> ?
>
>
>
> --
> < 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









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

 

Re: [delphi-br] Inno Setup

[Jeferson Adoryan]

valeu...

__
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Fockink Indústrias Elétricas Ltda
Aplicativos - Unidade Eletrônica
Fone: (55) 3375 9784
Celular: (55) 9137 9119
E-mail: [EMAIL PROTECTED]
E-mail: [EMAIL PROTECTED]
E-mail: [EMAIL PROTECTED] 
Home Page: www.infoti.z6.com.br
Panambi - RS
__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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] Software de Backup

[Vinicius da Silva Pinto]

Alguem teria um dica de um software para backup em fita que fosse free?? 
E que se pudesse ter um bom controle dos arquivos bacapiados.


-- 
< 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] Para os mestres em paradox - essa ta realmente difícil.....

[Eduardo Silva ®]

Carlos, fiz um teste em casa na hora do almoço. E aconteceu o seguinte:

Se eu apagar o .VAL e usar a minha rotina (Abaixo) de reindexação das
tabelas, o índice ´d criado mas o .VAL não.

Se eu não apagar o .VAL, ele cria os índices do mesmo jeito.
Pergunto:

Será que existe algum problema em eu manter esse arquivo VAL ? Ou eu posso
retira-lo ?

  -Mensagem original-
  De: CARLOS CASTRO [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 4 de abril de 2005 10:44
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Para os mestres em paradox - essa ta realmente
difícil.


  Eduardo , uso um esquema parecido com o seu para reindexar o paradox,
  so que apagao todos os arquivos .VAL , antes e quando volto a abrir as
tabelas ele e recriado automaticamnte .
  Tente fazer isso.

  Carlos

  Eduardo Silva ® <[EMAIL PROTECTED]> wrote:
  Uso o seguinte comando para criar tabelas paradox em tempo de execução

 Table1:= TTable.Create(self);
 with Table1 do
 begin
Active   := False;
DatabaseName := 'Banco';
TableName:= 'Associados';
TableType:= ttParadox;
//-- Cria os campos da tabela <--
with FieldDefs do
begin
   Clear;
   Add('Codigo_matricula' , ftinteger, 0, true);
   Add('Codigo_empresa'   , ftinteger, 0, false);
   Add('Nome' , ftString ,45, False);
   Add('F_pai', ftstring ,45, false);
   Add('F_mae', ftstring ,45, false);
   Add('Rg'   , ftstring ,10, false);
   Add('Cpf'  , ftString ,14, false);
   Add('Cart_profissional', ftinteger, 0, false);
   Add('Serie_cart'   , ftstring , 8, false);
   Add('Pis'  , ftstring ,14, false);
   Add('Dtnascimento' , ftDate   , 0, false);
   Add('Dt_admissao'  , ftDate   , 0, false);
   Add('Dt_demissao'  , ftDate   , 0, false);
   Add('Est_civil', ftstring ,13, false);
end;
//-- Cria a chave primária e índices <--
with IndexDefs do
begin
   Clear;
   Add('', 'Codigo_matricula', [ixPrimary,
ixUnique]);
   Add('ind_nome', 'Nome', [ixCaseInsensitive]);
   Add('ind_codEmpresa'  , 'Codigo_empresa'  , [ixCaseInsensitive]);
   Add('ind_dtAdmissao'  , 'Dt_admissao' , [ixCaseInsensitive]);
   Add('ind_dtDemissao'  , 'Dt_demissao' , [ixCaseInsensitive]);
end;
//-- Cria tabela <--
CreateTable;
Showmessage('Tabela Associados Criada!!!');
 end;

O parametro True do campo Codigo_matricula da tabela cria um arquivo
com a
  extensão Associado.VAL no diretorio onde esta a tabela. Esse arquivo .VAL,
  pelo que eu pude perceber, é que ele faz com que o campo Codigo_matricula
  seja requerido.
Se eu abrir a tabela pelo DataBase Desktop vou ver que o check
Required
  Field esta marcado.
Ocorre que o paradox muitas vezes da problema de índice (corrompe),
então
  eu criei uma rotina para reindexar a tabela, que é a rotina abaixo, só que
  se esse arquivo VAL existir eu não consigo reindexar os meus índices.

Minha pergunta é, como eu faço para criar esse arquivo VAL via
programação
  ?

  var
 IndPri, IndSec : TIndexOptions;
  begin
 begin
Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename)
+
  'Dados\','*.px');
Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename)
+
  'Dados\','*.xg*');
Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename)
+
  'Dados\','*.yg*');

Screen.Cursor := crHourGlass;
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
with tabela do
begin
   Active   := False;
   DatabaseName := 'Bancos';
   TableName:= 'Associados';
   TableType:= ttDefault;
   lblTabela.Caption := ' Recriando índices da tabela ' +
  tabela.TableName;
   Application.ProcessMessages;
   IndexDefs.Clear;
   AddIndex('', 'Codigo_matricula', IndPri);
   AddIndex('ind_codEmpresa'  , 'Codigo_empresa'  , IndSec);
   AddIndex('ind_dtAdmissao'  , 'Dt_admissao' , IndSec);
   AddIndex('ind_dtDemissao'  , 'Dt_demissao' , IndSec);
   AddIndex('ind_dtnascimento', 'Dtnascimento', IndSec);
   AddIndex('ind_nome', 'Nome', IndSec);
   Active := True;
end;
 end;
  end;


  ~\\|//~
  -(o o)-
  o--oOOOo--(_)--oOOOo-o
  ||
  |   Eduardo de Almeida Silva |
  |   Kobra Sistemas   |
  |  [EMAIL PROTECTED]  -   (14)3263-0326   |
  | 

Re: [delphi-br] Casas Decimais

[Futura System Informática]

Edit1.Text := FormatFloat(',0.00',valor)

[]'s
  - Original Message - 
  From: moacirponti 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 12:14 PM
  Subject: [delphi-br] Casas Decimais




Aproveitando o assunto das casas decimais, gostaria de passar ao 
  grupo uma dificuldade que tenho com as casas decimais, que é de 
  formatar Edits para receber os dados sempre no formato: ,99
Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se 
  for 50,00, deve exibir 50,00 e não 50.
Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive 
  apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia 
  apenas 50, e assim por diante.

Obrigado,

Moacir.





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

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]

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

 

Re: [delphi-br] Rave Reports

[Futura System Informática]

Oi amigo existe um Grupo especialmente de Report Rave, se quiser de uma 
pesquisada la.

[EMAIL PROTECTED]

  - Original Message - 
  From: Gabriel Ferrarini 
  To: Delphi-BR 
  Sent: Monday, April 04, 2005 10:03 AM
  Subject: [delphi-br] Rave Reports


  Olá a todos.

  Estou tentando fazer um relatório no Rave com o seguinte layout.

  Band1:
  VendaParcela   Total

  DataBand1:
  Cliente: NOME_CLIENTE

  DataBand2:
  COD_VENDACOD_PARCELA   TOTAL_PARCELA

  Band1 é o cabeçalho que aparece uma vez por página. Meu código SQL me traz 
todas as parcelas cadastradas junto com código e nome do cliente e ordenado 
pelo código de cliente. Ou seja, estou ordenando a tabela de tal forma que as 
parcelas de um mesmo cliente fiquem juntas para na impressão eu ter o resultado 
seguinte:

  
  VendaParcelaTotal

Cliente: José
  1110,00
  1210,00
  2115,00

Cliente: João
  3120,00
  4125,00
  4225,00

  Total:  105,00
  _

  Acontece que eu não estou conseguindo fazer funcionar. No quickrep seria 
fácil usando um QRGroup. Mas e aqui? Valeu.

  Gabriel.

  [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!. 



[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] Undeclared identifier

[Fernando Faria Mariano]

Olá pessoal tudo bem?

Após algumas modificações em meu programa, sem querer eu removi a 
declaração de um "form".

Aparece a seguinte mensagem de erro na hora da compilação:

[Error] unit.registro.pas(154): Undeclared identifier: 'form_config_sistema'

O que eu teria que fazer, seria reinserir a unit correspondente ao 
form??? Mas como eu faço isto?

Obrigado, desde ja.

Atenciosamente
--
Fernando Faria Mariano
[EMAIL PROTECTED]


-- 
< 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] Como pegar IP em ADSL?

[Ricardo Mauro]

Bom dia!

Gostaria de saber se conseguiu resover seu problema, em capturar o ip externo?

Abracos,

Ricardo Mauro


  - Original Message - 
  From: lixeirod 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, November 05, 2004 4:03 PM
  Subject: [delphi-br] Re: Como pegar IP em ADSL?



  OK, mas eu precisaria que a aplicação, ao se conectar, eviasse por e-
  mail, ICQ, ou Messenger para mim seu IP diretamente.
  Como implementar isso pelo site?

  Valeu!


  --- Em delphi-br@yahoogrupos.com.br, Wagner Urquiza <[EMAIL PROTECTED]> 
  escreveu
  > Ola
  > ve se o link abaixo resolver o seu problema
  > 
  > http://www.showmyip.com/pt/
  > 
  > faça o teste.
  > 
  > ele funciona assim
  > 
  > a maquina que manda abrir este link, ele mostra
  > o ip da internete
  > 
  > pode ser discada ou adsl ou outra coisa.
  > 
  > até mais
  > 
  > __
  > Wagner Urquiza
  >   
  > MSN
  >[EMAIL PROTECTED] 
  > 
  > Conheça o MDO - Biblioteca Delphi para acesso direto ao Firebird
  > 
  >http://mdo.sourceforge.net/pt/pmwiki.php/Main/HomePage
  > 
  > Participa
  >http://br.groups.yahoo.com/group/mdo-marketing
  > 
  > 
  > MDO -  Mercury Database Objects
  >http://sourceforge.net/projects/mdo/
  > 
  > --
  > 
  > 
  > 
  > lixeirod escreveu:
  > 
  > >
  > > Gostaria de saber como pegar o IP Externo de uma máquina,
  > > independente se ela se conecta por Dial-Up ou ADSL.
  > > Todas as funções que testei até hoje, retornam o endereço 
  interno da
  > > rede, mas isso não serve.
  > > Alguém já conseguiu fazer isso?
  > >
  > > Valeu pela atenção!
  > >
  > >
  > >
  > >
  > >
  > > -- 
  > > < 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]



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


  --

O Banco de Dados de Vírus interno expirou.
Verificado por AVG Anti-Vírus.
Versão: 7.0.302 / Banco de dados de Vírus: 265.6.9 – Data de Lançamento: 
6/1/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

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

 

Re: [delphi-br] Webservice

[Francisco Thiago]

Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os 
sites. O WebService seria algo como "objetos remotos" serializados com 
xml...

Tipo, você pede o endereço de uma cidade, um webservice te manda isso... 
sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr 
linguagem

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago

- Original Message - 
From: "Cícero" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 8:35 AM
Subject: [delphi-br] Webservice


>
> Alguém pode me indicar um endereço para que eu acessar e ver como funciona 
> o
> webservice?
>
> Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP 
> ?
>
>
>
> -- 
> < 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

 

RES: [delphi-br] Casas Decimais

[tatu]

utilize formatfloat('00.00',valor);

-Mensagem original-
De: moacirponti [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 4 de abril de 2005 12:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Casas Decimais




  Aproveitando o assunto das casas decimais, gostaria de passar ao 
grupo uma dificuldade que tenho com as casas decimais, que é de 
formatar Edits para receber os dados sempre no formato: ,99
  Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se 
for 50,00, deve exibir 50,00 e não 50.
  Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive 
apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia 
apenas 50, e assim por diante.

  Obrigado,

  Moacir.





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

Para ver as mensagens antigas, acesse:
HYPERLINK
"http://br.groups.yahoo.com/group/delphi-br/messages"http://br.groups.ya
hoo.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:

HYPERLINK
"http://br.rd.yahoo.com/SIG=12adhb681/M=264379.5078783.6203979.1588051/D
=brclubs/S=2137111264:HM/EXP=1112634912/A=2191897/R=0/SIG=10vqa2grn/*htt
p://br.diversao.yahoo.com/" 

HYPERLINK
"http://br.rd.yahoo.com/SIG=12adhb681/M=264379.5078783.6203979.1588051/D
=brclubs/S=2137111264:HM/EXP=1112634912/A=2191897/R=1/SIG=10vqa2grn/*htt
p://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:
HYPERLINK
"http://br.groups.yahoo.com/group/delphi-br/"http://br.groups.yahoo.com/
group/delphi-br/
  

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

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



--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 1/4/2005



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 1/4/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

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

 

Re: [delphi-br] Casas Decimais

[Gabriel Ferrarini]

Utilize a função FormatFloat. Os parâmetros dela são formato e valor. Passe o 
parâmetro formato como '###,##0.00' e a função retornará uma string com o valor 
que você passou nesse formato.

Gabriel.
  - Original Message - 
  From: moacirponti 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 12:14 PM
  Subject: [delphi-br] Casas Decimais




Aproveitando o assunto das casas decimais, gostaria de passar ao 
  grupo uma dificuldade que tenho com as casas decimais, que é de 
  formatar Edits para receber os dados sempre no formato: ,99
Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se 
  for 50,00, deve exibir 50,00 e não 50.
Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive 
  apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia 
  apenas 50, e assim por diante.

Obrigado,

Moacir.





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

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]

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

 

Re: [delphi-br] Casas Decimais

[Maurício Chiarato Vaglieri]

Moacir,

   Com qual mascara que você nao conseguiu resolver seu problema? Coloque ela 
aqui pra gente poder comparar com a que usamos.

Abraços,

Mauricio
  - Original Message - 
  From: moacirponti 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, April 04, 2005 12:14 PM
  Subject: [delphi-br] Casas Decimais




Aproveitando o assunto das casas decimais, gostaria de passar ao 
  grupo uma dificuldade que tenho com as casas decimais, que é de 
  formatar Edits para receber os dados sempre no formato: ,99
Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se 
  for 50,00, deve exibir 50,00 e não 50.
Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive 
  apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia 
  apenas 50, e assim por diante.

Obrigado,

Moacir.





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

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




--


  Nenhum virus encontrado nesta mensagem.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005

  --

Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/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

<*> 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] Casas Decimais

[moacirponti]

  Aproveitando o assunto das casas decimais, gostaria de passar ao 
grupo uma dificuldade que tenho com as casas decimais, que é de 
formatar Edits para receber os dados sempre no formato: ,99
  Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se 
for 50,00, deve exibir 50,00 e não 50.
  Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive 
apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia 
apenas 50, e assim por diante.

  Obrigado,

  Moacir.





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

 

Re: RES: RES: [delphi-br] Extenso para 3 casas decimais

[arcoverdeneto]

--- Em delphi-br@yahoogrupos.com.br, "tatu" <[EMAIL PROTECTED]> escreveu
> apenas por curiosidade, onde será aplicado esta forma de extenso ?
> 

Oi,

Em um programa de licitações (pregão), onde a diferença entre um lance
e outro poderá ser menos de R$ 0,01 (um centavo), já que haverá
produtos, como comprimidos por exemplo, que custam quase isso (R$ 0,01).

Álvaro Vieira.





-- 
< 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] Extenso para 3 casas decimais

[tatu]

apenas por curiosidade, onde será aplicado esta forma de extenso ?

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 1/4/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

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

 

Re: [delphi-br] Biometria - Facial

[Nicholas Eduardo]

Cara...fiz algumas coisas com essa finalidade no meu projeto de graduação.

sobre o q vc precisa saber?



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: carlos sene 
  To: delphi-br 
  Sent: Monday, April 04, 2005 10:24 AM
  Subject: [delphi-br] Biometria - Facial


  Alguem esta trabalhando com Biometria em Delphi? 
  De preferencia reconhecimento facil...

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



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




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/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

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

 

Re: RES: [delphi-br] Extenso para 3 casas decimais

[moacirponti]

1,066 é um real e sessenta e seis centésimos de centavo.
Acho que é isto.

--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]> 
escreveu
> Desculpe entrar no assunto, mas acho que ele irá chamar: um real e 
seis
> centésimos de centavos. Não é isso ?
>   -Mensagem original-
>   De: [> Mutuka <] [mailto:[EMAIL PROTECTED]
>   Enviada em: segunda-feira, 4 de abril de 2005 09:52
>   Para: delphi-br@yahoogrupos.com.br
>   Assunto: Re: [delphi-br] Extenso para 3 casas decimais
> 
> 
>   e me diz uma coisa como vc irá chamar a ultima
>   casa hehehe
>   exemplo um real e seis centavos e seis decimos de
>   centavos hehehe
> 
> 
>   --- arcoverdeneto <[EMAIL PROTECTED]>
>   wrote:
>   -
> 
>   Amigos,
> 
>   Alguém conhece alguma rotina ou componente que me
>   retorne um valor,
>   COM 3 CASAS DECIMAIS, por extenso?
> 
>   Preciso imprimir valores como R$ 1,066 e R$
>   10,754 por extenso e não
>   estou conseguindo.
> 
>   []'s
> 
>   Álvaro Vieira
> 
> 
> 
> 
> 
>   --
>   < 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
> 
>  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!.
> 
> 
>  Leandro...
> 
>   [> Mutuka <]
> 
> 
>   __
>   Converse com seus amigos em tempo real com o Yahoo! Messenger
>   http://br.download.yahoo.com/messenger/
> 
> 
>   --
>   < 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!.
> 
> 
> 
> 
> [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] Re: Biometria - Facial

[moacirponti]

Reconhecimento facial tem custo computacional alto. Você deve 
procurar por artigos científicos, principalmente de revisão (survey 
ou review), que dão uma noção geral do que se tem para fazer.
Podem ser usadas muitas técnicas (estatísticas, redes neurais, etc.), 
mas acho que não há componentes prontos para isto.

Abraço,

Moacir.

--- Em delphi-br@yahoogrupos.com.br, carlos sene <[EMAIL PROTECTED]> 
escreveu
> Alguem esta trabalhando com Biometria em Delphi? 
> De preferencia reconhecimento facil...
> 
>   
> -
> 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:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Auto-created Forms

[moacirponti]

Olá.

  Na lista de Forms criados automaticamente, deixo os forms 
responsáveis por acionar relatórios ou realizar tarefas simples.
  No entanto, estou tendo problemas ao chamar estes formulários (via 
ShowModal). Nas primeiras tentativas de se mostrar o form, ele dá 
Access Violation, se insistir, na 2a ou 4a tentativa ele abre 
normalmente.
  Este problema eu percebi trabalhando com o Delphi 6 sobre Windows 
98 (a máquina é um PII 300).

  O que poderá estar causando isto?
 
  Ah, os formulários criados em tempo de execução não dão este 
problema.
 
  Obrigado
  
  Moacir





-- 
< 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] Biometria - Facial

[carlos sene]

Alguem esta trabalhando com Biometria em Delphi? 
De preferencia reconhecimento facil...


-
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:
http://br.yahoo.com/info/utos.html

 

Re: [delphi-br] Para os mestres em paradox - essa ta realmente difícil.....

[CARLOS CASTRO]

Eduardo , uso um esquema parecido com o seu para reindexar o paradox, 
so que apagao todos os arquivos .VAL , antes e quando volto a abrir as tabelas 
ele e recriado automaticamnte .
Tente fazer isso.
 
Carlos

Eduardo Silva ® <[EMAIL PROTECTED]> wrote:
Uso o seguinte comando para criar tabelas paradox em tempo de execução

   Table1:= TTable.Create(self);
   with Table1 do
   begin
  Active   := False;
  DatabaseName := 'Banco';
  TableName:= 'Associados';
  TableType:= ttParadox;
  //-- Cria os campos da tabela <--
  with FieldDefs do
  begin
 Clear;
 Add('Codigo_matricula' , ftinteger, 0, true);
 Add('Codigo_empresa'   , ftinteger, 0, false);
 Add('Nome' , ftString ,45, False);
 Add('F_pai', ftstring ,45, false);
 Add('F_mae', ftstring ,45, false);
 Add('Rg'   , ftstring ,10, false);
 Add('Cpf'  , ftString ,14, false);
 Add('Cart_profissional', ftinteger, 0, false);
 Add('Serie_cart'   , ftstring , 8, false);
 Add('Pis'  , ftstring ,14, false);
 Add('Dtnascimento' , ftDate   , 0, false);
 Add('Dt_admissao'  , ftDate   , 0, false);
 Add('Dt_demissao'  , ftDate   , 0, false);
 Add('Est_civil', ftstring ,13, false);
  end;
  //-- Cria a chave primária e índices <--
  with IndexDefs do
  begin
 Clear;
 Add('', 'Codigo_matricula', [ixPrimary, ixUnique]);
 Add('ind_nome', 'Nome', [ixCaseInsensitive]);
 Add('ind_codEmpresa'  , 'Codigo_empresa'  , [ixCaseInsensitive]);
 Add('ind_dtAdmissao'  , 'Dt_admissao' , [ixCaseInsensitive]);
 Add('ind_dtDemissao'  , 'Dt_demissao' , [ixCaseInsensitive]);
  end;
  //-- Cria tabela <--
  CreateTable;
  Showmessage('Tabela Associados Criada!!!');
   end;

  O parametro True do campo Codigo_matricula da tabela cria um arquivo com a
extensão Associado.VAL no diretorio onde esta a tabela. Esse arquivo .VAL,
pelo que eu pude perceber, é que ele faz com que o campo Codigo_matricula
seja requerido.
  Se eu abrir a tabela pelo DataBase Desktop vou ver que o check Required
Field esta marcado.
  Ocorre que o paradox muitas vezes da problema de índice (corrompe), então
eu criei uma rotina para reindexar a tabela, que é a rotina abaixo, só que
se esse arquivo VAL existir eu não consigo reindexar os meus índices.

  Minha pergunta é, como eu faço para criar esse arquivo VAL via programação
?

var
   IndPri, IndSec : TIndexOptions;
begin
   begin
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.px');
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.xg*');
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.yg*');

  Screen.Cursor := crHourGlass;
  IndPri := [ixPrimary, ixUnique];
  IndSec := [ixCaseInsensitive];
  with tabela do
  begin
 Active   := False;
 DatabaseName := 'Bancos';
 TableName:= 'Associados';
 TableType:= ttDefault;
 lblTabela.Caption := ' Recriando índices da tabela ' +
tabela.TableName;
 Application.ProcessMessages;
 IndexDefs.Clear;
 AddIndex('', 'Codigo_matricula', IndPri);
 AddIndex('ind_codEmpresa'  , 'Codigo_empresa'  , IndSec);
 AddIndex('ind_dtAdmissao'  , 'Dt_admissao' , IndSec);
 AddIndex('ind_dtDemissao'  , 'Dt_demissao' , IndSec);
 AddIndex('ind_dtnascimento', 'Dtnascimento', IndSec);
 AddIndex('ind_nome', 'Nome', IndSec);
 Active := True;
  end;
   end;
end;


~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



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



















   function SearchComboBox() { if 
(document.form_combo.keyword.value.length==0){  alert("Por favor, digite 
algo.");  return false; }else {  document.form_combo.action 
="http://br.rd.yahoo.com/SIG=12anusbmf/M=264105.3931087.6562589.1588051/D=brclubs/S=2

Re: RES: [delphi-br] Extenso para 3 casas decimais

[arcoverdeneto]

--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
escreveu
> Desculpe entrar no assunto, mas acho que ele irá chamar: um real e seis
> centésimos de centavos. Não é isso ?

R$ 1,066 = Um real e sessenta e seis centésimos de centavo
R$ 1,234 = Um real e duzentos e trinta e quatro centésimos de centavo.

Bem, acho que assim :D

Álvaro Vieira.





-- 
< 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] VOIP no Delphi

[Robson]

Se alguém tiver interesse na revista ActiveDelphi saiu um artigo muito 
interessante de como trabalhar com VOIP no Delphi.

http://www.activedelphi.com.br/revista_13.php

Abraços,
Robson 



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

 

Re: [delphi-br] Extenso para 3 casas decimais

[\[> Mutuka <\]]

Bom brincadeiras a parte hehehe!!! ai vai minha
rotina, estude-a e faça as alterações
necessárias...


function ValorExtenso(Valor :Currency) :String;
var
  StrValores, StrPart, StrValor, PartDec :String;
  i, Parcela, Posicao :Integer;
begin
  StrValores := 'trilhão  '+'trilhões '+'bilhão  
'+'bilhões  '+
'milhão   '+'milhões  '+'mil 
'+'mil  ';

//Formata o valor corretamente...
  StrValor := CurrToStr(Valor);
  Posicao  := Pos('.',StrValor);

  if Posicao > 0 then
  begin
PartDec := Copy(StrValor,Posicao+1,2);
if Length(PartDec) < 2 then
begin
  StrValor := StrValor+'0';
  PartDec  := PartDec +'0';
end;
StrValor :=
StringReplace(StrValor,'.','',[rfReplaceAll]);
  end
  else
  begin
PartDec  := '00';
StrValor := StrValor+PartDec;
  end;

  while Length(StrValor) < 17 do StrValor :=
'0'+StrValor;

//Fim da formatação...
  for i := 1 to 5 do begin
StrPart := Copy(StrValor,((i-1)*3)+1,3);
Parcela := StrToInt(StrPart);
if Parcela = 1 then Posicao := 1 else Posicao
:= 10;
if Parcela > 0 then
begin
  if Length(Result) > 0 then Result :=
Result+' e ';
  Result := Result+Centenas(Parcela);
  Result :=
Result+TrimRight(Copy(StrValores,((i-1)*18)+Posicao,9));
  if not i = 5 then Result := Result+' ';
end;
  end;

  if Length(Result) > 0 then
if Int(Valor) = 1 then
  Result := Result+'real '
else
  Result := Result+' reais ';

  Parcela := StrToInt(PartDec);

  if Parcela > 0 then
  begin
if Length(Result) > 0 then Result := Result+'
e ';
if Parcela = 1 then
  Result := Result+'um centavo'
else
  Result :=
Result+Dezenas(Parcela)+'centavos';
end;

  Result := Ajusta(Result);
end;

function Ajusta(Valor :String) :String;
begin
  Valor := Trim(StringReplace(Valor,'  ','
',[rfReplaceAll]));

  if Pos('um mil ',Valor) = 1 then
Valor := StringReplace(Valor,'um
mil','mil',[rfReplaceAll]);

  if (Copy(Valor,Length(Valor)-8,9) = 'tos
reais') or
 (Copy(Valor,Length(Valor)-8,9) = 'mil
reais') then
  begin
Result := Valor;
Exit;
  end;

//Ajusta milhares
  Valor  := StringReplace(Valor,'mil e cento'
  ,'mil cento'   ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e duzentos' 
  ,'mil duzentos',[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e trezentos'
  ,'mil trezentos'   ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
quatrocentos','mil quatrocentos',[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
quinhentos'  ,'mil quinhentos'  ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
seiscentos'  ,'mil seiscentos'  ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
setecentos'  ,'mil setecentos'  ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
oitocentos'  ,'mil oitocentos'  ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'mil e
novecentos'  ,'mil novecentos'  ,[rfReplaceAll]);
//Ajusta trilhões, bilhões e milhões
  Valor  := StringReplace(Valor,'ão reais' ,'ão
de reais' ,[rfReplaceAll]);
  Valor  := StringReplace(Valor,'ões reais','ões
de reais',[rfReplaceAll]);
//Retorna valor
  Result := Valor;
end;

function Centenas(Valor :Integer) :String;
var
  StrValor, StrDig :String;
begin
  if Valor = 100 then
Result := 'cem '
  else
  begin
Result   := '';
StrDig   := '00'+IntToStr(Valor);
StrDig   := Copy(StrDig,Length(StrDig)-2,3);
StrValor := 'cento   '+'duzentos   
'+'trezentos   '+
'quatrocentos'+'quinhentos 
'+'seiscentos  '+
'setecentos  '+'oitocentos 
'+'novecentos  ';
if StrToInt(StrDig[1]) > 0 then
  Result :=
TrimRight(Copy(StrValor,((StrToInt(StrDig[1])-1)*12)+1,12))+'
';
if StrToInt(Copy(StrDig,2,2)) > 0 then
begin
  if Length(Result) > 0 then Result :=
Result+'e ';
Result :=
Result+Dezenas(StrToInt(Copy(StrDig,2,2)))
end;
  end;
end;

function Dezenas(Valor :Integer) :String;
var
  StrValor, StrDig :String;
begin
   if Valor < 20 then
 Result := Unidades(Valor)
   else
   begin
 Result   := '';
 StrDig   := '00'+IntToStr(Valor);
 StrDig   := Copy(StrDig,Length(StrDig)-1,2);
 StrValor := 'vinte'+'trinta  
'+'quarenta '+'cinquenta'+
 'sessenta '+'setenta  '+'oitenta
 '+'noventa  ';
 Result   :=
TrimRight(Copy(StrValor,((StrToInt(StrDig[1])-2)*9)+1,9))+'
';
 if StrToInt(StrDig[2]) > 0 then
   Result := Result+'e
'+Unidades(StrToInt(StrDig[2]));
   end;
end;

function Unidades(Valor :Integer) :String;
const
  StrValor :Array[0..18] of pChar =
('um','dois','três','quatro','cinco','seis',

'sete','oito','nove','dez','onze','doze',

'treze','quatorze','quinze','dezesseis',

'dezessete','dezoito','dezenove');
begin
  Result := StrValor[Valor-1]+' ';
end;


   Leandro...

[> Mutuka <]  






Yahoo! Acesso Grátis - Internet rápida 

[delphi-br] Cofiguração D2005

[Renato Javaman]

Gente, quase sempre que dou um Run na minha aplicação ASP.NET o D2005 me 
retorna a mensagem de erro: 
 
"Unable to start debugging on the web server. Unable to attach to ASP.NET 
worker process (typically aspner_wp.exe or w3wp.exe)"
 
aí eu dou ok e dou mais uns 2 F9s e pimba! ele executa a aplicação sem eu ter 
mudado absolutamente nada às vezes aconcete mais frequentemente e tem dias 
q nem dá isso. Simplesmente não entendo nadinha alguém já passou por isso 
aí?

delphi-br@yahoogrupos.com.br wrote:

Existem 9 mensagens sobre este tópico.

Tópicos contidos neste resumo:

1. Re: Edit ou DBEdit
De: "Giovani - GuiasDaki" 
2. Re: Por favor, apenas um teste.
De: Rogério Fernando Neves 
3. Links para o Desenvolvedor
De: Demian Lessa 
4. Re: Edit ou DBEdit
De: "Francisco Thiago" 
5. Como Listar fontes de dados?
De: "adrianolista" 
6. Passar parametros para programa FORTRAN.
De: Mauricio Vaglieri 
7. Re: Edit ou DBEdit
De: "Romario (Listas)" 
8. Re: Gif Animado
De: Fernando 
9. Re: Inno Setup
De: Fernando 





Mensagem: 1 
Data: Sun, 3 Apr 2005 08:36:30 -0300
De: "Giovani - GuiasDaki" 
Assunto: Re: Edit ou DBEdit

Eu usava antigamente Edit´s, mas era porque um programador que trabalhava
comigo falou pra gente trabalhar pra fazer um teste.
Putz... Coisa mais demorada trabalhar com Edit´s
Nunca mais utilizei...
Agora, não vejo motivo nenhum para não trabalhar com DbEdit´s, que é o
componente que utilizo até hoje, e não vou trocar de maneira nenhuma.
Utilize DbEdit´s, que o teu programa ficará, além de mais leve, mais
funcional, pois não terá que ficar "codificando" de maneira desnecessária o
mesmo, ok?

Se precisar de ajuda, estamos aí.

Um abraço

Giovani.

- Original Message -
From: "Murilo Carlos Cardoso" 
To: 
Sent: Sunday, April 03, 2005 2:17 AM
Subject: Re: [delphi-br] Edit ou DBEdit



Olá,

Eu uso delphi 7 + mysql, e eu prefiro usar o DBEdt, muita gente critica
isso, mas eu acho muito mais prático e rápido!
Para vc que é iniciante eu aconselho usar o DBEdit.


fabiano_jd wrote:

Pessoal, bom dia.

Eu sou iniciante e estou com dúvidas.
Comprei um livro e fiz um sistema de mala direta com Interbase.
No livro usa Edits, eu achei um pouco demorado a programação.
Gostaria de saber qual a melhor forma de trabalhar com Edits ou
DBEdits?
Quem tem mais experiencia, dê uma força. Obrigado.







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



















function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert("Por favor, digite
algo."); return false; }else { document.form_combo.action
="http://br.rd.yahoo.com/SIG=12a09j9ss/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1112430650/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11"; } return true;} [input]
[input] [input]

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



-
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










--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 1/4/2005



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 1/4/2005






Mensagem: 2 
Data: Sun, 3 Apr 2005 14:55:08 -0300 (ART)
De: Rogério Fernando Neves 
Assunto: Re: Por favor, apenas um teste.

oi, estamos sim amigo, continue...

Ricardo Cabral wrote:


Pessoal, gostaria que alguns respondese essa msg, somente para eu saber se 
estão recebendo minhas mensagens.



Valeu



[]´s

Ricardo Cabral



Abraços,

Ricardo Cabral

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

[delphi-br] Relacionamento de tabela paradox

[Tooklar Materiais Para Construcao LTDA]

Caros amigos, tenho um sisteminha onde tem as seguintes telas CADASTRO DE 
CLIENTE, CADASTRO DE PRODUTOS,  VENDAS, que trabalha com as seguintes 
tabelas: PRODUTOS, CLIENTES, ITENS DA NOTA, NOTA FISCAL, e que faço para que 
na criação das tabelas possa criar um relacionamento  para que seja feita a 
atualização automaticamente por exemplo, quando efetuar uma venda na tela de 
ela já faz subtração do item, ou por exemplo se eu fizer uma alteração nos 
produtos que aparece nos itens da nota quando eu consultar pela tela de 
cadastro já consta a alteração, assim como funciona quando você esta 
trabalhando com banco de dados feito em acess.

Esta  pergunta se refere banco de dados feito DATABASE DESKTOP  tabelas 
paradox 7.





Betho






-- 
< 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] Rave Reports

[Gabriel Ferrarini]

Olá a todos.

Estou tentando fazer um relatório no Rave com o seguinte layout.

Band1:
VendaParcela   Total

DataBand1:
Cliente: NOME_CLIENTE

DataBand2:
COD_VENDACOD_PARCELA   TOTAL_PARCELA

Band1 é o cabeçalho que aparece uma vez por página. Meu código SQL me traz 
todas as parcelas cadastradas junto com código e nome do cliente e ordenado 
pelo código de cliente. Ou seja, estou ordenando a tabela de tal forma que as 
parcelas de um mesmo cliente fiquem juntas para na impressão eu ter o resultado 
seguinte:


VendaParcelaTotal

  Cliente: José
1110,00
1210,00
2115,00

  Cliente: João
3120,00
4125,00
4225,00

Total:  105,00
_

Acontece que eu não estou conseguindo fazer funcionar. No quickrep seria fácil 
usando um QRGroup. Mas e aqui? Valeu.

Gabriel.

[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] Extenso para 3 casas decimais

[Eduardo Silva ®]

Desculpe entrar no assunto, mas acho que ele irá chamar: um real e seis
centésimos de centavos. Não é isso ?
  -Mensagem original-
  De: [> Mutuka <] [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 4 de abril de 2005 09:52
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Extenso para 3 casas decimais


  e me diz uma coisa como vc irá chamar a ultima
  casa hehehe
  exemplo um real e seis centavos e seis decimos de
  centavos hehehe


  --- arcoverdeneto <[EMAIL PROTECTED]>
  wrote:
  -

  Amigos,

  Alguém conhece alguma rotina ou componente que me
  retorne um valor,
  COM 3 CASAS DECIMAIS, por extenso?

  Preciso imprimir valores como R$ 1,066 e R$
  10,754 por extenso e não
  estou conseguindo.

  []'s

  Álvaro Vieira





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

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


 Leandro...

  [> Mutuka <]


  __
  Converse com seus amigos em tempo real com o Yahoo! Messenger
  http://br.download.yahoo.com/messenger/


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




[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

 

Re: [delphi-br] Extenso para 3 casas decimais

[\[> Mutuka <\]]

e me diz uma coisa como vc irá chamar a ultima
casa hehehe
exemplo um real e seis centavos e seis decimos de
centavos hehehe


--- arcoverdeneto <[EMAIL PROTECTED]>
wrote:
-

Amigos,

Alguém conhece alguma rotina ou componente que me
retorne um valor,
COM 3 CASAS DECIMAIS, por extenso?

Preciso imprimir valores como R$ 1,066 e R$
10,754 por extenso e não
estou conseguindo.

[]'s

Álvaro Vieira





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

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


   Leandro...

[> Mutuka <]  


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 


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

 

Re: [delphi-br] Calendário

[Filipe]

O pessoal se supera as vezes...   :-)

- Original Message - 
From: "Rodrigo Othavio Farias" <[EMAIL PROTECTED]>
To: 
Sent: Monday, April 04, 2005 9:19 AM
Subject: Re: [delphi-br] Calendário


>
> Vc espera realmente alguma resposta pra esse bando de palavras desconexas?
> Respira, expira, toma folego e antes de digitar tenta  botar os 
> pensamentos
> em ordem
>
>
>
>
> - Original Message - 
> From: marcelo_l_m
> To: delphi-br@yahoogrupos.com.br
> Sent: Saturday, April 02, 2005 12:28 PM
> Subject: [delphi-br] Calendário
>
>
>
>
> ola por favor  alguem pode me ajudar
>
> eu estou com um programa de gerenciamento escolar, com um
> calendário.
> Mas não está configurado, pediu para configurar como que é o
> calendário normal como todo o pessoal ver,"na geladeira etc..".
> Alguem podesse me explicar como eu faço isso??
>
>
>
>
>
>
>
>
> -- 
> < 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!.
>
>
>
> -- 
> < 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

 

Re: [delphi-br] Calendário

[Rodrigo Othavio Farias]

Vc espera realmente alguma resposta pra esse bando de palavras desconexas? 
Respira, expira, toma folego e antes de digitar tenta  botar os pensamentos 
em ordem




- Original Message - 
From: marcelo_l_m
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, April 02, 2005 12:28 PM
Subject: [delphi-br] Calendário




ola por favor  alguem pode me ajudar

eu estou com um programa de gerenciamento escolar, com um
calendário.
Mas não está configurado, pediu para configurar como que é o
calendário normal como todo o pessoal ver,"na geladeira etc..".
Alguem podesse me explicar como eu faço isso??








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



-- 
< 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] Para os mestres em paradox - essa ta realmente difícil.....

[Eduardo Silva ®]

Uso o seguinte comando para criar tabelas paradox em tempo de execução

   Table1:= TTable.Create(self);
   with Table1 do
   begin
  Active   := False;
  DatabaseName := 'Banco';
  TableName:= 'Associados';
  TableType:= ttParadox;
  //-- Cria os campos da tabela <--
  with FieldDefs do
  begin
 Clear;
 Add('Codigo_matricula' , ftinteger, 0, true);
 Add('Codigo_empresa'   , ftinteger, 0, false);
 Add('Nome' , ftString ,45, False);
 Add('F_pai', ftstring ,45, false);
 Add('F_mae', ftstring ,45, false);
 Add('Rg'   , ftstring ,10, false);
 Add('Cpf'  , ftString ,14, false);
 Add('Cart_profissional', ftinteger, 0, false);
 Add('Serie_cart'   , ftstring , 8, false);
 Add('Pis'  , ftstring ,14, false);
 Add('Dtnascimento' , ftDate   , 0, false);
 Add('Dt_admissao'  , ftDate   , 0, false);
 Add('Dt_demissao'  , ftDate   , 0, false);
 Add('Est_civil', ftstring ,13, false);
  end;
  //-- Cria a chave primária e índices <--
  with IndexDefs do
  begin
 Clear;
 Add('', 'Codigo_matricula', [ixPrimary, ixUnique]);
 Add('ind_nome', 'Nome', [ixCaseInsensitive]);
 Add('ind_codEmpresa'  , 'Codigo_empresa'  , [ixCaseInsensitive]);
 Add('ind_dtAdmissao'  , 'Dt_admissao' , [ixCaseInsensitive]);
 Add('ind_dtDemissao'  , 'Dt_demissao' , [ixCaseInsensitive]);
  end;
  //-- Cria tabela <--
  CreateTable;
  Showmessage('Tabela Associados Criada!!!');
   end;

O parametro True do campo Codigo_matricula da tabela cria um arquivo 
com a
extensão Associado.VAL no diretorio onde esta a tabela. Esse arquivo .VAL,
pelo que eu pude perceber, é que ele faz com que o campo Codigo_matricula
seja requerido.
Se eu abrir a tabela pelo DataBase Desktop vou ver que o check Required
Field esta marcado.
Ocorre que o paradox muitas vezes da problema de índice (corrompe), 
então
eu criei uma rotina para reindexar a tabela, que é a rotina abaixo, só que
se esse arquivo VAL existir eu não consigo reindexar os meus índices.

Minha pergunta é, como eu faço para criar esse arquivo VAL via 
programação
?

var
   IndPri, IndSec : TIndexOptions;
begin
   begin
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.px');
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.xg*');
  Fmenu_principal.ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados\','*.yg*');

  Screen.Cursor := crHourGlass;
  IndPri := [ixPrimary, ixUnique];
  IndSec := [ixCaseInsensitive];
  with tabela do
  begin
 Active   := False;
 DatabaseName := 'Bancos';
 TableName:= 'Associados';
 TableType:= ttDefault;
 lblTabela.Caption := ' Recriando índices da tabela ' +
tabela.TableName;
 Application.ProcessMessages;
 IndexDefs.Clear;
 AddIndex('', 'Codigo_matricula', IndPri);
 AddIndex('ind_codEmpresa'  , 'Codigo_empresa'  , IndSec);
 AddIndex('ind_dtAdmissao'  , 'Dt_admissao' , IndSec);
 AddIndex('ind_dtDemissao'  , 'Dt_demissao' , IndSec);
 AddIndex('ind_dtnascimento', 'Dtnascimento', IndSec);
 AddIndex('ind_nome', 'Nome', IndSec);
 Active := True;
  end;
   end;
end;


~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



-- 
< 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] Re: Expert para padronizar nomes de componentes

[Luiz Henrique Severo d Oliveira]

Daniel,

Se não me engano a GExperts tem uma opção para isso.
www.gexperts.org


Abraços
Luiz Henrique Severo d Oliveira
RPG Soluçoes
www.rpgsolucoes.com.br
> 
> 
>  Mensagem: 2 
>  Data: Sat, 02 Apr 2005 12:30:50 -
>De: "Daniel Sonda" <[EMAIL PROTECTED]>
>   Assunto: Expert para padronizar nomes de componentes
> 
> 
> Olá pessoal,
> 
> Existe algum expert, de preferência para D7, que siga uma padrão de 
> nomeação de componentes utilizando prefixos configurados pelo 
> usuário?
> 
> Ex.: todos os componentes DBEdits devem começar com "Dbe_"
> 
> Procurei na web e achei um pra Delphi6 chamado ADEVIdeExperts mas 
> não achei lugar pra baixar, somente citações.
> 
> Um abraço a todos.
> 
> Daniel Sonda
> 



-- 
< 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] Problema ao gravar campo data com maskedit

[Eduardo Silva ®]

Galera, um amigo meu fez um programa usando paradox e maskedit e edit para
grvar os dados.

Ele joga o valor dos edits na tabela para fazer a gravação.

No campo EdtDtAdmissao, que é um maskedit, ele faz o seguinte teste:

  if EdtDtAdmissao.Text <> '  /  /' then
 Tb_associados.FieldByName('Dt_admissao').AsDateTime:=
StrToDate(EdtDtAdmissao.Text);

O problema é que se ele não digitar nada no campo EdtDtAdmissao, a data esta
sendo gravada com 30/12/1899.

Como resolver esse problema ?



~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Kobra Sistemas   |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



-- 
< 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] Instalação de componente x DesignIntf

[faustofrca]

Bom dia alguém aqui já baixou e conseguiu instalar o componente 
SimpleFind, que esta na seção artigos da Clube Delphi?

Eu simplesmente não consigo instala-lo no delphi 6, pois dá erro na 
unit DesignIntf,depois de muito ralar consegui encontrar uma breve 
solução que era a de inserir no package em requireds a designide.dcp, 
mas mesmo assim continua dando erro diz que não esta encontrando uma 
unit proxies e ela não tem no meu computador.. detalhe meu delphi 6 é 
original..

Tentei por várias vezes entrar em contato com o desenvolvedor do 
componente mas ele não responde.

Se alguém conseguiu instalar o componente por favor me dê umas dicas.

Fausto







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

[Cícero]

Alguém pode me indicar um endereço para que eu acessar e ver como funciona o
webservice?

Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP ?



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