[delphi-br] Mais um bug no Delphi2007, será?

2007-04-12 Por tôpico Fellipe Henrique
Olá amigos, estou vindo relatar um probleminha que estou tendo depois que
instalei o Delphi2007... quando eu chamo ele, ele não aparece na barra de
ferramentas... mas fica ativo, eu tenho que minimizar para ele ter que
aparecer lá e o mais estranho.. depois disso, meu BDS2006, começou a ter
este mesmo problema.

O que pode ser?


[]s

-- 
_
Fellipe Henrique
[EMAIL PROTECTED]
Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
história avança graças a elas. Tudo o que se imagina pode ser alcançado.
Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho...
e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
grandeza desses eventos e as pessoas que os realizam... não podemos esquecer
o sacrifício daqueles que tornam possíveis tais realizações.


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



[delphi-br] Off Topic - Programador

2007-04-12 Por tôpico avysbr
Procuramos programador Delphi com experiencia minima de 02 anos em
aplicações comerciais com banco de dados relacional para criação de
novo projeto.
Contratação PJ
Período : 2 meses podendo se estender. 
Local de trabalho : São Paulo - Parí
Enviar curriculo para [EMAIL PROTECTED] 





[delphi-br] Problema driver UIB.

2007-04-12 Por tôpico Rodrigo de Moura
Bom dia pessoal,

 

Tenho uma aplicação desenvolvida em Delphi 7, DBExpress com driver UIB e
Firebird 1.5.3.

Nessa aplicação há uma tela em especial de cadastro que faço uso de uma
procedure do banco para algumas atualizações.

O processo é da seguinte maneira: preencho as informações da tela e logo
depois gravo. Após gravar clico no botão “Processar”, que executa a proc do
banco. Até ae tudo normal, é feita a gravação e as atualizações da proc são
realizadas. O problema surge quando clico no botão incluir para cadastrar
novas informações. Preencho os dados do cadastro novamente e quando vou
salvar as informações dá o erro de:

“Access violation at address 012F4D76 in module 'dbexpUIBfire15.dll'. Read
od adress 00.”

 

O mais estranho é quando faço dois ou três cadastros seguidos sem clicar no
botão processar (que executa a proc) esse erro não acontece, o que me levou
a suspeitar que quando executo procedures do banco tal erro ocorre.

Alguém já passou por esse problema?? Existe alguma configuração especial
componente SQLStoredProc?? Será que a dbexpUIBfire15.dll precisa ficar junto
com o executável???

Qualquer ajuda será bem vinda!!

Muito obrigado a todos!!

 

Rodrigo de Moura



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



[delphi-br] [maf] Tipos de dados valor

2007-04-12 Por tôpico Marcos Abreu Ferreira
Pessoal

Desenvolvi uma aplicação que recebe informações via porta serial.
Dentre as informacoes, existem valores com campos decimais. Só que a
aplicação vai ser usada aqui e no EUA. Queria saber como faço para
saber se a máquina está configurada para separação decimal por '.' ou
por ','. Alguém tem uma dica? Os valores que recebo são assim.

$G,4,19,18,00:35:19.469
$H,7,19,14,00:01:50.429

ou 

$G,4,19,18,00:35:19,469
$H,7,19,14,00:01:50,429

Preciso substituir o '.' por ',' e ',' por '.' conforme a máquina
estiver configurada! Alguém poderia me dar uma dica.


Att

Marcos Ferreira




Re: [delphi-br] Mais um bug no Delphi2007, será?

2007-04-12 Por tôpico Eduardo Silva dos Santos
a ultima vez que vi um problema como esse era falha no próprio Windows.

aqui tenho tudo instalado e ta normal.

qual o seu windows?


Em 12/04/07, Fellipe Henrique [EMAIL PROTECTED] escreveu:

   Olá amigos, estou vindo relatar um probleminha que estou tendo depois
 que
 instalei o Delphi2007... quando eu chamo ele, ele não aparece na barra de
 ferramentas... mas fica ativo, eu tenho que minimizar para ele ter que
 aparecer lá e o mais estranho.. depois disso, meu BDS2006, começou a
 ter
 este mesmo problema.

 O que pode ser?

 []s

 --
 _
 Fellipe Henrique
 [EMAIL PROTECTED] fellipeh%40gmail.com
 Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
 história avança graças a elas. Tudo o que se imagina pode ser alcançado.
 Deve-se ousar sonhar. Mas não há substituto para perseverança e
 trabalho...
 e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
 grandeza desses eventos e as pessoas que os realizam... não podemos
 esquecer
 o sacrifício daqueles que tornam possíveis tais realizações.

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Mais um bug no Delphi2007, será?

2007-04-12 Por tôpico Adriano Santos - Direção de Arte
Em casa tb aconteceu isso ontem, mas só notei no BDS2006 porque não abri 
o 2007. Achei que fosse problema no meu Windows, mas aparentemente não.
Se bem que houve uma atualização grande do XP entre terça-feira e ontem. 
Pode ter algo a ver, pq estava funcionando.


*Adriano Santos*


Eduardo Silva dos Santos respondeu:

 a ultima vez que vi um problema como esse era falha no próprio Windows.

 aqui tenho tudo instalado e ta normal.

 qual o seu windows?

 Em 12/04/07, Fellipe Henrique [EMAIL PROTECTED] 
 mailto:fellipeh%40gmail.com escreveu:
 
  Olá amigos, estou vindo relatar um probleminha que estou tendo depois
  que
  instalei o Delphi2007... quando eu chamo ele, ele não aparece na 
 barra de
  ferramentas... mas fica ativo, eu tenho que minimizar para ele ter que
  aparecer lá e o mais estranho.. depois disso, meu BDS2006, começou a
  ter
  este mesmo problema.
 
  O que pode ser?
 
  []s
 
  --
  _
  Fellipe Henrique
  [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com
  Você valoriza a existêcia das pessoas extraordinárias e momentos em 
 que a
  história avança graças a elas. Tudo o que se imagina pode ser alcançado.
  Deve-se ousar sonhar. Mas não há substituto para perseverança e
  trabalho...
  e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
  grandeza desses eventos e as pessoas que os realizam... não podemos
  esquecer
  o sacrifício daqueles que tornam possíveis tais realizações.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 -- 
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/

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

 
 

 No virus found in this incoming message.
 Checked by AVG Free Edition.
 Version: 7.5.446 / Virus Database: 269.2.0/757 - Release Date: 11/4/2007 17:14
   


Re: [delphi-br] Mais um bug no Delphi2007, será?

2007-04-12 Por tôpico Fellipe Henrique
Opa... meu windows é XP SP2, todo atualizado, inclusive com o Framework do
.NET e tudo... o estranho é que não acontecia isso antes da instalação do
Delphi 2007

[]s

Em 12/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:

   a ultima vez que vi um problema como esse era falha no próprio Windows.

 aqui tenho tudo instalado e ta normal.

 qual o seu windows?

 Em 12/04/07, Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com
 escreveu:
 
  Olá amigos, estou vindo relatar um probleminha que estou tendo depois
  que
  instalei o Delphi2007... quando eu chamo ele, ele não aparece na barra
 de
  ferramentas... mas fica ativo, eu tenho que minimizar para ele ter que
  aparecer lá e o mais estranho.. depois disso, meu BDS2006, começou a
  ter
  este mesmo problema.
 
  O que pode ser?
 
  []s
 
  --
  _
  Fellipe Henrique
  [EMAIL PROTECTED] fellipeh%40gmail.com fellipeh%40gmail.com
  Você valoriza a existêcia das pessoas extraordinárias e momentos em que
 a
  história avança graças a elas. Tudo o que se imagina pode ser alcançado.
  Deve-se ousar sonhar. Mas não há substituto para perseverança e
  trabalho...
  e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
  grandeza desses eventos e as pessoas que os realizam... não podemos
  esquecer
  o sacrifício daqueles que tornam possíveis tais realizações.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com/

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

  




-- 
_
Fellipe Henrique
[EMAIL PROTECTED]
Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
história avança graças a elas. Tudo o que se imagina pode ser alcançado.
Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho...
e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
grandeza desses eventos e as pessoas que os realizam... não podemos esquecer
o sacrifício daqueles que tornam possíveis tais realizações.


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



[delphi-br] Inserir uma lista na outra

2007-04-12 Por tôpico Vandinei Santos
Salve colegas!


Gostaria de saber se existe alguma propriedade que me permita inserir um 
arquivo de texto num determinado ponto (insert) de outro arquivo de texto? Não 
é acrescentar um arquivo no final do outro arquivo que eu quero.

Consegui fazer isso carregando ambos arquivos em duas StringList e inserindo 
linha-a-linha o conteúdo do segundo arquivo a partir do ponto desejado. Mas 
achei o método trabalhoso e tecnicamente deselegante.

Grato.
Vandinei A. Santos
Analista Desenvolvedor em Delphi
Salvador-BA

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



[delphi-br] Retirar segundos campo time firebird

2007-04-12 Por tôpico Mauro Paes Corrêa - gnX Ltda .
Colegas,

Tenho uma aplicação da qual há o armazenamento de um campo hora na base em 
firebird. Como sabemos , há o armazenamento da hora,minutos e segundos.
Necessito fazer uma rotina ler este dado, porém com os segundos suprimidos.
Tentei usar o shortdateformat, para ver se o delphi trazia somente a hora sem 
os segundos , sem sucesso.
Não quero usar a OOG (Orientação Orientada à Gambiarra), pra pegar esta data, 
transformar em em uma string e pegar somente a hora sem exportar.
Alguma solução inteligente?

Saudações

Mauro Paes Correa
www.gnx.com.br



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



[delphi-br] Erro de DeadLock!!!

2007-04-12 Por tôpico Giovanny Carvalho
PUBLICIDADE
 
 
Boa noite a todos...
Na minha aplicação está acorrendo um erro de deadlock. A situação é
a seguinte:

Eu abro a venda com uma numeração temporária...
Quando o usuário vai fechar a venda, eu pego no BD o número
definitivo da venda, usando uma StoredProcedure, porém quando as
venda ocorrem simultaneamente, ocorre o erro.

Segue abaixo a StoredProc...

CREATE PROCEDURE SP_CONTADORES_VALOR (
P_NOMECONTADOR VARCHAR(15))
RETURNS (
P_VALORCONTADOR INTEGER)
AS
begin
update contadores
SET valorcontador = valorcontador +1
WHERE nomecontador = :P_NOMECONTADOR;

SELECT C.valorcontador
FROM CONTADORES c
WHERE C.nomecontador = :P_NOMECONTADOR
INTO :P_VALORCONTADOR;

suspend;
end

No delphi 6 eu chamo a StoredProc da seguinte maneira...

function Contador(VTipo : String) : integer;
begin
With DM.SP_Contadores_Valor do
begin
Active := False;
ParamByName('P_Nomecontador').AsString := VTipo;
Prepare;
ExecProc;
end;
DM.IBTransaction.Commit;

Result := DM.SP_Contadores_Valor.paramByname
('P_VALORCONTADOR').Value;
end;


Alguém pode me ajudar?
Podem até me sugerir outra alternativa.

Obrigado,
Giovanny Carvalho




[delphi-br] Exemplo com DBX 4, Delphi 2007 e SQL Server

2007-04-12 Por tôpico Bruno Lichot
Galera, postei um exemplo com DBX4 e SQL Server, com tratamento de erros e
manipulação de dados usando o Northwind.

 

Talvez ajude alguém.

 

http://cc.codegear.com/Author/795118

 

 

Atenciosamente,

 

Bruno Lichot

CodeGegar Team Brazil

 

http://www.codegear.com

http://cc.codegear.com/Author/795118

 

 



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



[delphi-br] [Off] Meu blog, quem quiser dar uma olhada.

2007-04-12 Por tôpico Adriano Santos (Yahoo)
Pessoal,

Lancei um blog sobre Delphi, gostaria de convidá-los a participar.
Um abraço

http://delphitodelphi.blogspot.com

Abs, vlw.

-- 

Adriano Santos
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

Colunista e Comissão Editorial da revista ClubeDelphi.
Meu blog: Delphi to Delphi
http://delphitodelphi.blogspot.com/



[delphi-br] Delphi For PHP - off

2007-04-12 Por tôpico Robson
Pra quem tiver interesse, o pessoal da Active já está publicando material na 
revista impressa:

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

abraços,
Robson

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



Re: [delphi-br] alguém da CodeGear, Delphi Asp.Net

2007-04-12 Por tôpico Alberto
Leonardo,

Acho que vc esqueceu de colocar o link. 


  - Original Message - 
  From: Leonardo Anselmo 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, April 11, 2007 6:18 PM
  Subject: Re: [delphi-br] alguém da CodeGear, Delphi Asp.Net


  Alberto,

  Da uma olhada nesse site que eu desenvolvi com Asp.net e padroes web, vc nao 
precisa mas de frames, agora visualiza de preferencia no IE, pois ainda preciso 
implementa-lo no fire..., e qualquer coisa manda email que eu posso te 
orientar. Certo ?

  Leonardo Anselmo
  Desenvolvedor Borland.

  - Original Message - 
  From: Alberto 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, April 11, 2007 5:30 PM
  Subject: [delphi-br] alguém da CodeGear, Delphi Asp.Net

  Olá,

  Alguém saberia me dizer como implemento frames nas minhas páginas?
  Tipo, tenho um menu lateral(lado esquerdo), mas quero carregar os formulários 
no lado direito. Além disso tenho um cabeçalho e um rodapé. Sei que existem os 
Usercontrols. Só gostaria de saber se existe outra possiblidade.

  Obrigado.

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

  __ Informação do NOD32 IMON 2182 (20070411) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br

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



   

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



RES: [delphi-br] alguém da CodeGear, Delphi As p.Net

2007-04-12 Por tôpico Walter Alves Chagas Junior
Presumindo que voce quer fazer uma pagina WEB, os frames voce pode montar via 
codigo HTML. Aí você precisa saber programar em HTML.

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215



-Mensagem original-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
nome de Alberto
Enviada em: quarta-feira, 11 de abril de 2007 18:17
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] alguém da CodeGear, Delphi Asp.Net


Como?


  - Original Message - 
  From: Walter Alves Chagas Junior 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, April 11, 2007 5:39 PM
  Subject: RES: [delphi-br] alguém da CodeGear, Delphi Asp.Net


  Faz isto via HTML mesmo sô. Isto não precisa de ASP

  []s

  Walter Alves Chagas Junior
  Projeto e desenvolvimento de sistemas
  Telemont Engenharia de telecomunicações S/A
  Belo Horizonte - MG - Brasil
  [EMAIL PROTECTED]
  Fone: (31) 3389-8217 Fax: (31) 3389-8215

  -Mensagem original-
  De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
  nome de Alberto
  Enviada em: quarta-feira, 11 de abril de 2007 17:30
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] alguém da CodeGear, Delphi Asp.Net

  Olá,

  Alguém saberia me dizer como implemento frames nas minhas páginas?
  Tipo, tenho um menu lateral(lado esquerdo), mas quero carregar os formulários 
no lado direito. Além disso tenho um cabeçalho e um rodapé. Sei que existem os 
Usercontrols. Só gostaria de saber se existe outra possiblidade.

  Obrigado.

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

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Links do Yahoo! Grupos



   

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 


Re: [delphi-br] FW: Rave Zebrado

2007-04-12 Por tôpico HENRIQUE PEIXINHO
Eu ultilizo o rave 6.5, mas tenho o 5.0 nativo do Delphi 7 tambem, e nao ta 
dando esse erro nao.
se puder manda teu código ai pra mim.

Estou achando que o erro esta em outro código e não nesse, Tiago é o 
seguinte tire o código de zebrar e compile para ver se vai da erro.

Cara tenho um material de rave q posso te passar, entre em contato comigo em 
ptv para q possa saber qual o email que enviarei os arquivos.

Henrique Peixinho
[EMAIL PROTECTED]

- Original Message - 
From: Tiago Vendemiatti [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, April 11, 2007 11:32 AM
Subject: RE: [delphi-br] FW: Rave Zebrado


Olha o erro ae..
Com seu código também da.
Estou usando o Rave 5...que vem nativo no delphi..o seu também é esse?

ACCESS VIOLATION AT ADDRESS 0201722F IN MODULE 'RVENGINE50.BPL'. WRITE OF 
ADDRESS 3FFCAbs

Tiago


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 
11 Apr 2007 11:26:42 -0300Subject: Re: [delphi-br] FW: Rave Zebrado




if self.fillcolor = clwhite thenself.fillcolor := 
self.bordercolor;elseself.fillcolor := clWhite;end if;ultilizo esse codigo 
no evento OnBeforePrint, nunca tive problema.manda ai qual o erro q ta dando 
e se possivel um pedaço do seu código.Henrique PeixinhoMSN: 
[EMAIL PROTECTED]: [EMAIL PROTECTED] Original 
Message - From: Tiago Vendemiatti To: [EMAIL PROTECTED] Sent: 
Tuesday, April 10, 2007 9:38 AMSubject: RE: [delphi-br] FW: Rave 
ZebradoFala ae...Eu coloco um RectangleOs eventos já tentei os 
quatro:OnBeforeReportOnBeforePrintOnAfterPrintOnAfterReportTodos dão o mesmo 
erroPedi o Rave..porque testei na versão 5.05 do site da Nevrona..e com 
ele não da erro algum..!!! Porém ele é DEMO.Abs.TiagoTo: 
[EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 10 
Apr 2007 09:21:19 -0300Subject: Re: [delphi-br] FW: Rave ZebradoSobre o 
seu problema, me responde uma coisa que evento vc ta usando para zebrar? e 
de que componente?- Original Message - From: Tiago Vendemiatti To: 
[EMAIL PROTECTED] Sent: Monday, April 09, 2007 12:36 PMSubject: 
[delphi-br] FW: Rave ZebradoBoa tarde Pessoal...Sobre esse meu probleminha 
do rave zebrando..Nunca ninguem passou por isso?Abs.TiagoFrom: 
[EMAIL PROTECTED]: [EMAIL PROTECTED]: Rave 
ZebradoDate: Thu, 5 Apr 2007 15:59:54 +0300Bom dia a Todos, Primeiramente 
gostaria de agradecer por me aceitarem no grupo. desenvolvo em Delphi já há 
algum tempo, acredito que tenho alguma experiência para compartilhar com 
vocês também. Estou com um problema que pesquisei na internet e até 
encontrei a solução. Que é como deixar o Rave zebrado.Eu uso o Rave 5.0 
Nativo do delphi 7, com ele o código de zebrando não funciona, porém baixei 
uma versão demo do site do Rave versão. 5.5 e com essa da tudo certo. 
Gostaria de perguntar se alguém já fez isso com o Rave, em qual versão, qual 
código, ou se alguém tem alguma versão mais nova crackeada. O código que 
estou usando é: if self.FillColor = clWhite thenself.FillColor := 
clSilver;elseself.FillColor := clwhite;end if; Em um Rectangle1. Muito 
Obrigado Abs. Tiago VendemiattiLigue para os amigos com a Chamada de PC para 
PC - GRATUITO Experimente já! 
__Procure em 
qualquer página Web com protecção eficaz. Obtenha já o Windows Live Toolbar 
GRATUITO!http://www.toolbar.live.com[As partes desta mensagem que não 
continham texto foram removidas][As partes desta mensagem que não continham 
texto foram removidas] 
__O Windows Live 
Spaces já chegou! É fácil criar o seu próprio Web site 
pessoal.http://spaces.live.com/signup.aspx[As partes desta mensagem que não 
continham texto foram removidas][As partes desta mensagem que não continham 
texto foram removidas]


_
Veja só alguns dos novos serviços online no Windows Live Ideas - são tão 
novos que ainda não foram disponibilizados oficialmente.
http://ideas.live.com

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos





[delphi-br] Pesquisa rápida em array. Tem como?

2007-04-12 Por tôpico Eduardo Paci Galvão
Pessoal,

Meu vetor [vet] possui os seguintes itens, sempre
em ordem crescente:

10, 21, 35, 90, 136, 200

Existe alguma maneira prática de se verificar
se o número 35, por exemplo, existe neste vetor?

(sem precisar varrer os itens, um a um?)

Saudações,
Eduardo Paci Galvão
Bacharel em Engenharia Elétrica - UFMG
Analista de Sistemas
www.egalvao.com.br

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



Re: [delphi-br] Pesquisa rápida em array. Tem como?

2007-04-12 Por tôpico Joao Morais
Eduardo Paci Galvão wrote:

 Pessoal,
 
 Meu vetor [vet] possui os seguintes itens, sempre
 em ordem crescente:
 
 10, 21, 35, 90, 136, 200
 
 Existe alguma maneira prática de se verificar
 se o número 35, por exemplo, existe neste vetor?
 
 (sem precisar varrer os itens, um a um?)

Você pode usar uma thashedstringlist ou você pode construir sua própria 
rotina: pegue o elemento central, compare com o elemento que você quer. 
Igual, encontrou; se é menor tem que pesquisar na segunda metade; se é 
maior, tem que pesquisar na primeira metade. Repita este procedimento de 
forma recursiva até achar o bendito.

--
Joao Morais



[delphi-br] QuickReport Delphi 2007

2007-04-12 Por tôpico Marcos André
Olá Pessoal,
disseram que Delphi 2007 vem com o Quick Report, mas não encotrei ele por
Default, alguém tem alguma dica?

-- 
Um abraço

Marcos André


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



[delphi-br] Suipack

2007-04-12 Por tôpico Doretto
Alguem tem a versao original do conjunto de componentes suipack ?

Onde conseguiram ?  Quanto R$ ?

Abraço

Doretto.

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



Re: [delphi-br] Pesquisa rápida em array. Tem como?

2007-04-12 Por tôpico Vandinei Santos
O thashedstringlist executa uma pesquisa binária na lista.

Um abraço
Vandinei Santos.

  - Original Message - 
  From: Joao Morais 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, April 12, 2007 11:59 AM
  Subject: Re: [delphi-br] Pesquisa rápida em array. Tem como?


  Eduardo Paci Galvão wrote:

   Pessoal,
   
   Meu vetor [vet] possui os seguintes itens, sempre
   em ordem crescente:
   
   10, 21, 35, 90, 136, 200
   
   Existe alguma maneira prática de se verificar
   se o número 35, por exemplo, existe neste vetor?
   
   (sem precisar varrer os itens, um a um?)

  Você pode usar uma thashedstringlist ou você pode construir sua própria 
  rotina: pegue o elemento central, compare com o elemento que você quer. 
  Igual, encontrou; se é menor tem que pesquisar na segunda metade; se é 
  maior, tem que pesquisar na primeira metade. Repita este procedimento de 
  forma recursiva até achar o bendito.

  --
  Joao Morais



   

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



RES: [Spam] [delphi-br] Suipack

2007-04-12 Por tôpico Valdir Sola
Compra no site
 
www.sunisoft.com
 
Abs

  _  

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em
nome de Doretto
Enviada em: quinta-feira, 12 de abril de 2007 11:13
Para: [EMAIL PROTECTED]
Assunto: [Spam] [delphi-br] Suipack



Alguem tem a versao original do conjunto de componentes suipack ?

Onde conseguiram ? Quanto R$ ?

Abraço

Doretto.

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



 

__ Informação do NOD32 IMON 2169 (20070405) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



  _  

E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra
http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=fastbyte_l=1,1176393826.214
838.26584.alcala.hst.terra.com.br,15250,20031127114101,20031127114101 Mail 


  _  

Esta mensagem foi verificada pelo E-mail Protegido Terra
http://mail.terra.com.br/ .
Scan engine: McAfee VirusScan / Atualizado em 11/04/2007 / Versão:
5.1.00/5006
Proteja o seu e-mail Terra: http://mail.terra.com.br/ 



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



[delphi-br] QuickReport Etiquetas !!!

2007-04-12 Por tôpico Djonatas Tenfen
Olá Amigos... 

Seguinte preciso de uma ajuda com o QuickReport estou tentando emitir etiquetas 
em linha ou seja

 

1 | 2

3 | 4

5 | 6

7 | 8

 

Mas ele imprime de outra forma

1 | 5

2 | 6 

3 | 7

4 | 8

 

Alguém pode me ajudar com isso ???

Agradeço se alguém me ajudar estou precisando o quanto antes disto

 

 

Atenciosamente

Djonatas Tenfen



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



[delphi-br] Suipack

2007-04-12 Por tôpico Doretto
Alguem tem a versao original do conjunto de componentes suipack ?

Onde conseguiram ?  Quanto R$ ?

Abraço

Doretto.

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



Re: [delphi-br] Mais um bug no Delphi2007, será?

2007-04-12 Por tôpico galvao_em
O meu tá dando o mesmo erro.

Att.
Rodrigo

Fellipe Henrique escreveu:

 Opa... meu windows é XP SP2, todo atualizado, inclusive com o Framework do
 .NET e tudo... o estranho é que não acontecia isso antes da instalação do
 Delphi 2007

 []s

 Em 12/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED] 
 mailto:eduardo.drd%40gmail.com escreveu:
 
  a ultima vez que vi um problema como esse era falha no próprio Windows.
 
  aqui tenho tudo instalado e ta normal.
 
  qual o seu windows?
 
  Em 12/04/07, Fellipe Henrique [EMAIL PROTECTED] 
 mailto:fellipeh%40gmail.com fellipeh%40gmail.com
  escreveu:
  
   Olá amigos, estou vindo relatar um probleminha que estou tendo depois
   que
   instalei o Delphi2007... quando eu chamo ele, ele não aparece na barra
  de
   ferramentas... mas fica ativo, eu tenho que minimizar para ele ter que
   aparecer lá e o mais estranho.. depois disso, meu BDS2006, 
 começou a
   ter
   este mesmo problema.
  
   O que pode ser?
  
   []s
  
   --
   _
   Fellipe Henrique
   [EMAIL PROTECTED] mailto:fellipeh%40gmail.com 
 fellipeh%40gmail.com fellipeh%40gmail.com
   Você valoriza a existêcia das pessoas extraordinárias e momentos 
 em que
  a
   história avança graças a elas. Tudo o que se imagina pode ser 
 alcançado.
   Deve-se ousar sonhar. Mas não há substituto para perseverança e
   trabalho...
   e trabalho em equipe. Por que ninguém consegue sozinho. Se 
 comemoramos a
   grandeza desses eventos e as pessoas que os realizam... não podemos
   esquecer
   o sacrifício daqueles que tornam possíveis tais realizações.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
  --
  Eduardo Silva dos Santos
  DRD Sistemas.
  (27) 3218-4201
  MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com 
 eduardo.drd%40gmail.com
  Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 -- 
 _
 Fellipe Henrique
 [EMAIL PROTECTED] mailto:fellipeh%40gmail.com
 Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
 história avança graças a elas. Tudo o que se imagina pode ser alcançado.
 Deve-se ousar sonhar. Mas não há substituto para perseverança e 
 trabalho...
 e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
 grandeza desses eventos e as pessoas que os realizam... não podemos 
 esquecer
 o sacrifício daqueles que tornam possíveis tais realizações.

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

  



___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/


RE: [delphi-br] QuickReport Delphi 2007

2007-04-12 Por tôpico Andreano Lanusse
Marcos,
 
estaremos  disponibilizando na área de usuários registrados em breve, assim que 
estiver comunico a todos.
 
[]'s
 
 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
. . . . . . . 

  http://www.codegear.com/ 

Andreano Lanusse

Product Line Manager Latin America  Caribbean 



phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED]

 

100 Enteprise Way

Scotts Valley, CA, 95066 USA

www.codegear.com


blogs.codegear.com/andreanolanusse



¡Visite CodeGear Developer Network en Español!  http://dn.codegear.com/es 
http://dn.codegear.com/es 

Visite CodeGear Developer Network em Português! http://dn.codegear.com/br 
http://dn.codegear.com/br 

 




From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Marcos André
Sent: Thursday, April 12, 2007 8:59 AM
To: [EMAIL PROTECTED]
Subject: [delphi-br] QuickReport Delphi 2007



Olá Pessoal,
disseram que Delphi 2007 vem com o Quick Report, mas não encotrei ele por
Default, alguém tem alguma dica?

-- 
Um abraço

Marcos André

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



 


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



Re: [delphi-br] QuickReport Delphi 2007

2007-04-12 Por tôpico Marcos André
Grato Andreano...
Abraço
Marcos André


Em 12/04/07, Andreano Lanusse [EMAIL PROTECTED] escreveu:

   Marcos,

 estaremos disponibilizando na área de usuários registrados em breve, assim
 que estiver comunico a todos.

 []'s



 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 . . . . . . . . . . . . . .

 http://www.codegear.com/

 Andreano Lanusse

 Product Line Manager Latin America  Caribbean

 phone 1.831.431.5051 | mobile 1.831.332.5100 | email
 [EMAIL PROTECTED] andreano.lanusse%40codegear.com

 100 Enteprise Way

 Scotts Valley, CA, 95066 USA

 www.codegear.com

 blogs.codegear.com/andreanolanusse

 ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es 
 http://dn.codegear.com/es

 Visite CodeGear Developer Network em Português! http://dn.codegear.com/br
 http://dn.codegear.com/br

 

 From: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.br[mailto:
 [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.br] On Behalf
 Of Marcos André
 Sent: Thursday, April 12, 2007 8:59 AM
 To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.br
 Subject: [delphi-br] QuickReport Delphi 2007

 Olá Pessoal,
 disseram que Delphi 2007 vem com o Quick Report, mas não encotrei ele por
 Default, alguém tem alguma dica?

 --
 Um abraço

 Marcos André

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

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

 




-- 
Um abraço

Marcos André


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



Re: [delphi-br] [maf] Tipos de dados valor

2007-04-12 Por tôpico Paulo Alexsandro
HI,

  ShowMessage( DecimalSeparator );


sabendo se é . ou ,

é só usar StringReplace para trocar

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 12/04/07, Marcos Abreu Ferreira [EMAIL PROTECTED] escreveu:

   Pessoal

 Desenvolvi uma aplicação que recebe informações via porta serial.
 Dentre as informacoes, existem valores com campos decimais. Só que a
 aplicação vai ser usada aqui e no EUA. Queria saber como faço para
 saber se a máquina está configurada para separação decimal por '.' ou
 por ','. Alguém tem uma dica? Os valores que recebo são assim.

 $G,4,19,18,00:35:19.469
 $H,7,19,14,00:01:50.429

 ou

 $G,4,19,18,00:35:19,469
 $H,7,19,14,00:01:50,429

 Preciso substituir o '.' por ',' e ',' por '.' conforme a máquina
 estiver configurada! Alguém poderia me dar uma dica.

 Att

 Marcos Ferreira



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



[delphi-br] [off-topic] sistema de impressão - controle

2007-04-12 Por tôpico Gustavo André de Freitas
Pessoal,

estou precisando de um programador que desenvolva um sistema de 
controle de impressão. quem estiver interessado, favor entrar em 
contato pelo email [EMAIL PROTECTED] ou pelo msn 
[EMAIL PROTECTED]

maiores esclarecimentos somente por email, 

um abraço a todos,

Gustavo

GF Solucoes.net



[delphi-br] Sistema para controle de funções e erros de um sistema.

2007-04-12 Por tôpico Fellipe Henrique
Olá amigos, preciso de um sistema, para guardar os erros e funções a serem
desenvolvidas num sistema... tipo uma lista.. para controle, do que já foi
feito e etc... existe isso? sem ser Web, e de preferência gratuito :o)


Desde já agradeço.

[]s

-- 
_
Fellipe Henrique
[EMAIL PROTECTED]
Você valoriza a existêcia das pessoas extraordinárias e momentos em que a
história avança graças a elas. Tudo o que se imagina pode ser alcançado.
Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho...
e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a
grandeza desses eventos e as pessoas que os realizam... não podemos esquecer
o sacrifício daqueles que tornam possíveis tais realizações.


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



[delphi-br] Application.MessageBOX

2007-04-12 Por tôpico Jorge Ericsson
Boa tarde amigos,

Alguém por a caso já destacou alguma frase ou palavra usando o
Application.MessageBOX ?
Exemplo: Ao gravar uma determinada ocorrência, eu informo ao usuário o
número da mesma: Nº 12345 gerado com sucesso.
Eu gostaria de destacar esse número com uma font maior ou em negrito.
Tem como fazer isto ???

Grato desde já,

//
/* As regras foram criadas para serem quebradas!!! */
/***/
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericssonsup.com.br
61 9667-4785 / 3966-4535
Brasília- DF


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



Re: [delphi-br] Application.MessageBOX

2007-04-12 Por tôpico O2 Tecnologia (aJato)

Destacar uma parte só montando uma rotina sua interna, aonde criaria um 
form, e detalharia o que deseja, via API não tem jeito, para fazer o que 
deseja seria algo assim:


Application.MessageBox(PChar('Ordem ' + FormatFloat(iNro_Ordem) + ' 
gravada com sucesso.'), 'Atenção', mb_Ok + mb_TaskModal + mb_IconWarning);




Jorge Ericsson escreveu:

 Boa tarde amigos,

 Alguém por a caso já destacou alguma frase ou palavra usando o
 Application.MessageBOX ?
 Exemplo: Ao gravar uma determinada ocorrência, eu informo ao usuário o
 número da mesma: Nº 12345 gerado com sucesso.
 Eu gostaria de destacar esse número com uma font maior ou em negrito.
 Tem como fazer isto ???

 Grato desde já,

 //
 /* As regras foram criadas para serem quebradas!!! */
 /***/
 Jorge Ericsson S. Pinheiro
 Analista/Projetista de Sistemas
 Ericsson Sistemas e Soluções
 http://www.jericssonsup.com.br http://www.jericssonsup.com.br
 61 9667-4785 / 3966-4535
 Brasília- DF

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

  


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



Re: [delphi-br] Application.MessageBOX

2007-04-12 Por tôpico Jorge Ericsson
Valuew, mas isso eu já faço.

vMsg := 'Ocorrência do '+tbsAtendimento.Caption+' Nº ' +inttostr(
dtmPrincipal.qryOcorrenciaSequencialNU_SEQ_OCORRENCIA.AsInteger) + '
registrada com sucesso!';
Application.MessageBox(PChar(vMensagem), 'Aviso do Sistema', mb_ok +
mb_iconinformation);

Só que eu gostaria de que a mensagem fosse exibir assim:
Ocorrência do Atendimento 0800 Nº 123456 registrada com sucesso !

Sei que tem jeito usando uma criação dinâminca de um TForm ou usando um
TPanel, mas estou tentando através da API mesmo...

No Delphi 2006 usando Dot.Net é moleza, mas eu estou marrento no Delphi 5
para resolver o problema.

Conseguindo eu publico como fazer porque muitos podem precisar.

Valew Mesmo !!!


Em 12/04/07, O2 Tecnologia (aJato) [EMAIL PROTECTED] escreveu:


 Destacar uma parte só montando uma rotina sua interna, aonde criaria um
 form, e detalharia o que deseja, via API não tem jeito, para fazer o que
 deseja seria algo assim:

 Application.MessageBox(PChar('Ordem ' + FormatFloat(iNro_Ordem) + '
 gravada com sucesso.'), 'Atenção', mb_Ok + mb_TaskModal + mb_IconWarning);

 Jorge Ericsson escreveu:

 
  Boa tarde amigos,
 
  Alguém por a caso já destacou alguma frase ou palavra usando o
  Application.MessageBOX ?
  Exemplo: Ao gravar uma determinada ocorrência, eu informo ao usuário o
  número da mesma: Nº 12345 gerado com sucesso.
  Eu gostaria de destacar esse número com uma font maior ou em negrito.
  Tem como fazer isto ???
 
  Grato desde já,
 
  //
  /* As regras foram criadas para serem quebradas!!! */
  /***/
  Jorge Ericsson S. Pinheiro
  Analista/Projetista de Sistemas
  Ericsson Sistemas e Soluções
  http://www.jericssonsup.com.br http://www.jericssonsup.com.br
  61 9667-4785 / 3966-4535
  Brasília- DF
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

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

  




-- 
/*/
/* As regras foram criadas para serem quebradas!!! */
/***/
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericssonsup.com.br
61 9667-4785 / 3966-4535
Brasília- DF


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



[delphi-br] Ordenação no Grid

2007-04-12 Por tôpico magnun_oliveira
Olá fiz um master detail e coloquei os campos da tabela master em 
DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu 
tenho um campo lookpu q uso pra exibir um tipo.

Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso, 
sei q IndexFieldNames nao da pra usar com lookup ...

Obrigado.



Re: [delphi-br] Application.MessageBOX

2007-04-12 Por tôpico O2 Tecnologia (aJato)


Fizemos uma rotina de inventário de carregamentos e precisava que 
tocasse um alerta, uma sirene, quando o operador comesse bola, o jeito 
foi fazer um form, semelhante ao MessageBox, onde o cara é obrigado a 
ler a mensagem e ainda tem a sirene que ficou escancarada.



Jorge Ericsson escreveu:

 Valuew, mas isso eu já faço.

 vMsg := 'Ocorrência do '+tbsAtendimento.Caption+' Nº ' +inttostr(
 dtmPrincipal.qryOcorrenciaSequencialNU_SEQ_OCORRENCIA.AsInteger) + '
 registrada com sucesso!';
 Application.MessageBox(PChar(vMensagem), 'Aviso do Sistema', mb_ok +
 mb_iconinformation);

 Só que eu gostaria de que a mensagem fosse exibir assim:
 Ocorrência do Atendimento 0800 Nº 123456 registrada com sucesso !

 Sei que tem jeito usando uma criação dinâminca de um TForm ou usando um
 TPanel, mas estou tentando através da API mesmo...

 No Delphi 2006 usando Dot.Net é moleza, mas eu estou marrento no Delphi 5
 para resolver o problema.

 Conseguindo eu publico como fazer porque muitos podem precisar.

 Valew Mesmo !!!

 Em 12/04/07, O2 Tecnologia (aJato) [EMAIL PROTECTED] 
 mailto:o2tecnologia%40ajato.com.br escreveu:
 
 
  Destacar uma parte só montando uma rotina sua interna, aonde criaria um
  form, e detalharia o que deseja, via API não tem jeito, para fazer o que
  deseja seria algo assim:
 
  Application.MessageBox(PChar('Ordem ' + FormatFloat(iNro_Ordem) + '
  gravada com sucesso.'), 'Atenção', mb_Ok + mb_TaskModal + 
 mb_IconWarning);
 
  Jorge Ericsson escreveu:
 
  
   Boa tarde amigos,
  
   Alguém por a caso já destacou alguma frase ou palavra usando o
   Application.MessageBOX ?
   Exemplo: Ao gravar uma determinada ocorrência, eu informo ao usuário o
   número da mesma: Nº 12345 gerado com sucesso.
   Eu gostaria de destacar esse número com uma font maior ou em negrito.
   Tem como fazer isto ???
  
   Grato desde já,
  
   //
   /* As regras foram criadas para serem quebradas!!! */
   /***/
   Jorge Ericsson S. Pinheiro
   Analista/Projetista de Sistemas
   Ericsson Sistemas e Soluções
   http://www.jericssonsup.com.br http://www.jericssonsup.com.br 
 http://www.jericssonsup.com.br http://www.jericssonsup.com.br
   61 9667-4785 / 3966-4535
   Brasília- DF
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 -- 
 /*/
 /* As regras foram criadas para serem quebradas!!! */
 /***/
 Jorge Ericsson S. Pinheiro
 Analista/Projetista de Sistemas
 Ericsson Sistemas e Soluções
 http://www.jericssonsup.com.br http://www.jericssonsup.com.br
 61 9667-4785 / 3966-4535
 Brasília- DF

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

  


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



RES: [delphi-br] Ordenação no Grid

2007-04-12 Por tôpico Bruno Lichot
Campos lookups, blob, text e calculated não podem ser indexados

 

Se vc trouxer os dados diretamente da tabela ou utilizar um campo
internalcalc vc pode indexar e ordenar.

 

Em tempo segue abaixo um código genérico de uma função q faz ordenação
crescente e decrescente , chamado no ebenmto ontitle click do dbgrid,
passando o client dataset, o dbgrid e a coluna como parâmetro.

 

procedure TDM.OrdenaDataSetGrid(var CDS: TClientDataSet; var DBG: TDBGrid;

  Column: TColumn);

const

  idxDefault = 'DEFAULT_ORDER';

var

  strColumn : string;

  i : integer;

  bolUsed   : boolean;

  idOptions : TIndexOptions;

begin

  strColumn := idxDefault;

 

  if Column.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate] then

Exit;

 

  if Column.Field.DataType in [ftBlob, ftMemo] then

Exit;

 

  for i := 0 to DBG.Columns.Count - 1 do

  begin

DBG.Columns[i].Title.Font.Style := [];

  end;

 

  DBG.Columns[Column.Index].Title.Font.Style := [fsBold];

 

  bolUsed := (Column.Field.FieldName = CDS.IndexName);

 

  CDS.IndexDefs.Update;

  for i := 0 to CDS.IndexDefs.Count - 1 do

  begin

if CDS.IndexDefs.Items[i].Name = Column.Field.FieldName then

begin

  strColumn := Column.Field.FieldName;

  case (CDS.IndexDefs.Items[i].Options = [ixDescending]) of

True  : idOptions := [];

False : idOptions := [ixDescending];

  end;

end;

  end;

 

  if (strColumn = idxDefault) or (bolUsed) then

  begin

if bolUsed then

  CDS.DeleteIndex(Column.Field.FieldName);

try

  CDS.AddIndex(Column.Field.FieldName,

   Column.Field.FieldName,

   idOptions,

   '',

   '',

   0);

  strColumn := Column.Field.FieldName;

except

  if bolUsed then

strColumn := idxDefault;

end;

  end;

 

  try

CDS.IndexName := strColumn;

  except

CDS.IndexName := idxDefault;

  end;

end;

 

No exemlpo do Borland conference 2006 ou no exemplo de DBX 4 com Delphi 2007
vc encontra esta função..

 

No exemplo do borcon estou ainda usando ionternalcalc e “lookups” mas
trazendo os valores já do banco dentro do select, o q e mto mais rápido e
melhor do q fazer campos lookups, eu desaconselho totalmente usop de campo
lookups, pois isso era mto bom qdo estávamos na era paradox, hj em dia com
td trecnologia relacional dos banco e mais o datasnap.. não existe muitas
justificativas de usar lookups na maioria dos casos.

 

O meu link de exemplos esta abaixo da minha assinatura

 

 

Atenciosamente,

 

Bruno Lichot

CodeGegar Product Evangelist

 

http://www.codegear.com

http://cc.codegear.com/Author/795118

 

 

 

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em
nome de magnun_oliveira
Enviada em: quinta-feira, 12 de abril de 2007 16:44
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Ordenação no Grid

 

Olá fiz um master detail e coloquei os campos da tabela master em 
DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu 
tenho um campo lookpu q uso pra exibir um tipo.

Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso, 
sei q IndexFieldNames nao da pra usar com lookup ...

Obrigado.

 



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



[delphi-br] Suipack

2007-04-12 Por tôpico Doretto
Alguem tem a versao original do conjunto de componentes suipack ?

Onde conseguiram ?  Quanto R$ ?

Abraço

Doretto.

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



Re: [delphi-br] Pesquisa rápida em array. Tem como?

2007-04-12 Por tôpico Alberto
Desculpe a minha ignorância, nunca usei esse thashedstringlist.

Mas se vai ter que usar algum T???List, por que não o TStringList e para 
pesquisar, TStringList.IndexOff('35') ?


  - Original Message - 
  From: Vandinei Santos 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, April 12, 2007 1:09 PM
  Subject: Re: [delphi-br] Pesquisa rápida em array. Tem como?


  O thashedstringlist executa uma pesquisa binária na lista.

  Um abraço
  Vandinei Santos.

  - Original Message - 
  From: Joao Morais 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, April 12, 2007 11:59 AM
  Subject: Re: [delphi-br] Pesquisa rápida em array. Tem como?

  Eduardo Paci Galvão wrote:

   Pessoal,
   
   Meu vetor [vet] possui os seguintes itens, sempre
   em ordem crescente:
   
   10, 21, 35, 90, 136, 200
   
   Existe alguma maneira prática de se verificar
   se o número 35, por exemplo, existe neste vetor?
   
   (sem precisar varrer os itens, um a um?)

  Você pode usar uma thashedstringlist ou você pode construir sua própria 
  rotina: pegue o elemento central, compare com o elemento que você quer. 
  Igual, encontrou; se é menor tem que pesquisar na segunda metade; se é 
  maior, tem que pesquisar na primeira metade. Repita este procedimento de 
  forma recursiva até achar o bendito.

  --
  Joao Morais

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



   

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



[delphi-br] Consulta com ClientDataSet

2007-04-12 Por tôpico Carlos
Boas, olha eu aqui de novo(e como é de se esperar, querendo sugar o
conhecimento de vcs...rs...),
Verifiquei e testei que é possivel passar parâmetros a um
ClientDataSet via código
ex: 
procedure TfConsulta.aLocalizaExecute(Sender: TObject);
var
  mSql : string;
begin
  mSql := 'select * from servidor where 0=0';
  if eGuerra.Text  '%' then
mSql := mSql + ' and APELIDO like '''+ eApelido.Text +;
  if eNome.Text  '%' then
mSql := mSql + ' and NOME like '''+ eNome.Text +;
  if (rgOrdenar.ItemIndex = 0) then
mSql := mSql + ' order by RG asc';
  if (rgOrdenar.ItemIndex = 1) then
mSql := mSql + ' order by NOME asc';
  if (rgOrdenar.ItemIndex = 2) then
mSql := mSql + ' order by CARGO asc';
  dmCadastro.cdsCadastro.Close;
  dmCadastro.cdsCadastro.CommandText := mSql;
  dmCadastro.cdsCadastro.Open;
end;

Funciona que é uma beleza, exceto que não consigo consultar com o
like, alguém pode me dar uma força, pois quando o usuário colocar um
nome (ex: Jose%) apareça todos os nome que iniciam com Jose;
se digitar %Jose% apareça todos os nomes que possuem Jose e por
último, se digitar %Jose, apareça todos os nomes com Jose no final.
Com ADO é fácil fazer isto, mas com DBExpress ainda estou aprendendo.
Agradeço antecipadamente,
Carlos




Re: [delphi-br] [maf] Tipos de dados valor

2007-04-12 Por tôpico Claudio O2
Opa... acho que voce pode resolver isso facilmente.
Use o comando decimalseparator no seu programa.
Antes de iniciar a rotina defina decimalseparator como , ou , ai e so 
voce ler a informacao.
Eu tive esse problema pra ler arquivos textos e importar no sistema. 
Alguns textos vinham com . na separacao dos centavos.
Espero que ajude.
[]´s


Marcos Abreu Ferreira escreveu:

 Pessoal

 Desenvolvi uma aplicação que recebe informações via porta serial.
 Dentre as informacoes, existem valores com campos decimais. Só que a
 aplicação vai ser usada aqui e no EUA. Queria saber como faço para
 saber se a máquina está configurada para separação decimal por '.' ou
 por ','. Alguém tem uma dica? Os valores que recebo são assim.

 $G,4,19,18,00:35:19.469
 $H,7,19,14,00:01:50.429

 ou

 $G,4,19,18,00:35:19,469
 $H,7,19,14,00:01:50,429

 Preciso substituir o '.' por ',' e ',' por '.' conforme a máquina
 estiver configurada! Alguém poderia me dar uma dica.

 Att

 Marcos Ferreira

  


-- 


[delphi-br] Off-topic - somente teste

2007-04-12 Por tôpico Marcelo - Kappesberg
Desconsiderar...


  - Original Message - 
  From: Djonatas Tenfen 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, April 12, 2007 1:37 PM
  Subject: [delphi-br] QuickReport Etiquetas !!!


  Olá Amigos... 

  Seguinte preciso de uma ajuda com o QuickReport estou tentando emitir 
etiquetas em linha ou seja

  1 | 2

  3 | 4

  5 | 6

  7 | 8

  Mas ele imprime de outra forma

  1 | 5

  2 | 6 

  3 | 7

  4 | 8

  Alguém pode me ajudar com isso ???

  Agradeço se alguém me ajudar estou precisando o quanto antes disto

  Atenciosamente

  Djonatas Tenfen

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



   

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



[delphi-br] Aplicativos em execução

2007-04-12 Por tôpico Wandarlei
Pessoal,

 

Utilizo a função EnumWindowProc para pegar os aplicativos que estão em
execução no equipamento, porém funciona quando executo o meu programa como
aplicativo e quando executo o meu programa como serviço a função retorna
apenas os serviços que estão em execução.

 

Alguém sabe como faço para pegar os aplicativos abertos executando o
programa como serviço?

 

Obrigado,

 

 

Wandarlei Michelon
Equipe MT-SAC

[EMAIL PROTECTED]
Fone: 55-41-3544-8711 

Fax: 55-41-3544-8701 

Tree Tools Informática Ltda.  

Qualidade e Competência a Seu Alcance
http://www.treetools.com.br http://www.treetools.com.br/ 

 



Antes de imprimir reflita sobre sua responsabilidade com o MEIO AMBIENTE 



Esta comunicação, incluindo seus eventuais anexos e imagens, pode conter
informações confidenciais de uso restrito e/ou legalmente protegidas e pode
conter informação que não pode ser divulgada sob obrigações confidenciais
assumidas por compromissos escritos. 

Se você não for o destinatário e recebeu esta mensagem por engano, por
favor, observe que qualquer divulgação, distribuição, cópia ou tomada de
qualquer atitude com base nas informações desta comunicação é estritamente
proibida.

Se você recebeu esta mensagem por engano, por favor, avise imediatamente o
remetente por meio do mesmo endereço eletrônico ou pelo número de telefone:
+ 55 (41) 3544-8733 e em seguida apague a informação do seu computador. 

Por favor, não copie ou use esta mensagem para nenhum propósito de
divulgação do seu conteúdo a uma outra pessoa. 

Todas as opiniões, conclusões ou informações contidas nesta comunicação
somente serão consideradas como provenientes da Tree Tools quando
efetivamente confirmadas, formalmente, por um de seus representantes legais.




This communication, including all attachments and images transmitted with it
may include restricted, legally privileged, and/or confidential information
and may contain information that is exempt from disclosure by law or
pursuant to confidentiality obligations assumed by written agreement. 

If you are not the intended recipient and receive this e-mail in error,
please note that any dissemination, distribution, copying or taking any
action based on the information contained in this communication is strictly
prohibited. 

If you receive this e-mail in error, please notify the sender immediately at
the electronic mail address or phone number : +55 (41) 3544-8733 and delete
the information from your computer. 

Please do not copy or use it for any purpose nor disclose its contents to
any other person. 

All opinions, impressions, conclusions or information in this message will
be considered as originated from Tree Tools only when formally confirmed by
its officers authorized for that.

 



 

 


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



[delphi-br] Rotacionar PDF utilizando ActiveX

2007-04-12 Por tôpico eric
Boa tarde, colegas.

 

Ao me deparar com a necessidade de abrir um PDF por dentro da minha
aplicação, descobri que a Adobe disponibiliza um ActiveX para lidar com
arquivos desta extensão.

 

Tudo está funcionando muito bem, porém, meu sistema não pode permitir que o
usuário salve o PDF, nem copie, nem imprima... etc.. enfim..., o usuário
apenas poderá visualizar o arquivo, navegar por suas páginas, trabalhar com
o zoom e com a rotação.

 

Como não encontrei uma forma de sesabiliar as funcionalidades indesejadas na
ToolBar, fui forçado a ocultá-la e fazer via código a utilização do Zoom. (a
navegação deixei por conta do próprio componente, não ocultando a
ScrollBars).

 

A dificuldade que encontrei é utilizar via código a opção de rotacionar o
arquivo.

 

Será que alguém poderia me ajudar?

 

 

Agradeço a atenção.



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



Re: [delphi-br] Erro de DeadLock!!!

2007-04-12 Por tôpico Fernando Nappe
Fala Giovanny, blz?

Basicamente, um DeadLock é uma situação onde dois processos ficam aguardando
um pelo término do outro.

Por exemplo:
- O processo 1 trava a tabela A;
- O processo 2 trava a tabela B;

Imaginemos que o processo 1 precise acessar a tabela B, mas ela está
bloqueada pelo processo 2 e, o processo 2 precisa acessar a tabela A, que
por sua vez foi bloqueada pelo processo 1.

Como vê essa operação nunca terá fim, pois os processo se travam mutuamente,
nessa caso, o banco lança o DeadLock para destravar toda a coisa.

Portanto, descobrir a causa do DeadLock exige um exame mais abrangente da
sua rotina, inclusive, aho que vc deve repensar a forma de obter o seu nro.
de venda.

Eu criaria uma tabela, gravaria nela um sequencial e atualizaria ela toda
vez que uma nova venda fosse aberta. Dessa forma, enquanto um processo está
atualizando a tabela, o outro fica no aguardo, ou seja, geramos
concorrência, mas em fila.

QQ coisa estamos aí.



Em 11/04/07, Giovanny Carvalho [EMAIL PROTECTED] escreveu:

   PUBLICIDADE


 Boa noite a todos...
 Na minha aplicação está acorrendo um erro de deadlock. A situação é
 a seguinte:

 Eu abro a venda com uma numeração temporária...
 Quando o usuário vai fechar a venda, eu pego no BD o número
 definitivo da venda, usando uma StoredProcedure, porém quando as
 venda ocorrem simultaneamente, ocorre o erro.

 Segue abaixo a StoredProc...

 CREATE PROCEDURE SP_CONTADORES_VALOR (
 P_NOMECONTADOR VARCHAR(15))
 RETURNS (
 P_VALORCONTADOR INTEGER)
 AS
 begin
 update contadores
 SET valorcontador = valorcontador +1
 WHERE nomecontador = :P_NOMECONTADOR;

 SELECT C.valorcontador
 FROM CONTADORES c
 WHERE C.nomecontador = :P_NOMECONTADOR
 INTO :P_VALORCONTADOR;

 suspend;
 end

 No delphi 6 eu chamo a StoredProc da seguinte maneira...

 function Contador(VTipo : String) : integer;
 begin
 With DM.SP_Contadores_Valor do
 begin
 Active := False;
 ParamByName('P_Nomecontador').AsString := VTipo;
 Prepare;
 ExecProc;
 end;
 DM.IBTransaction.Commit;

 Result := DM.SP_Contadores_Valor.paramByname
 ('P_VALORCONTADOR').Value;
 end;

 Alguém pode me ajudar?
 Podem até me sugerir outra alternativa.

 Obrigado,
 Giovanny Carvalho

  




-- 
Fernando Nappe
Analistas de Sistemas
http://nappe.blogspot.com


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



Re: [delphi-br] Ordenação no Grid

2007-04-12 Por tôpico Hudson
Ola amigo,

Pra fazer isso e simples

Vai ate o evento OnTitleClick do DBGrid e faça o codigo:
exemplo:

  banco.produto.Close;
  banco.produto.SQL.Clear;
  banco.produto.SQL.Add('select * from tabela order by ' + Column.FieldName);
  banco.produto.Open;

aonde Column.FieldName representa o campo clicado...

espero ter ajudado!

  - Original Message - 
  From: magnun_oliveira 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, April 12, 2007 4:44 PM
  Subject: [delphi-br] Ordenação no Grid


  Olá fiz um master detail e coloquei os campos da tabela master em 
  DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu 
  tenho um campo lookpu q uso pra exibir um tipo.

  Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso, 
  sei q IndexFieldNames nao da pra usar com lookup ...

  Obrigado.



   

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



Re: [delphi-br] Ordenação no Grid

2007-04-12 Por tôpico Rubem Nascimento da Rocha

Esta alternativa causa um grande impecilho no que tange tráfego de dados em 
uma rede. Toda vez que o usuário der um clique em um título de uma coluna 
que queira ordenar, ele irá trafegar uma SQL pra retornar dados, o que irá 
causar o primeiro transforno: tráfego de dados desnecessário na rede. O 
segundo transtorno seria o tempo de resposta para receber estes dados via 
rede. Imagine 50 usuários fazendo acesso concorrente ao seu banco de dados, 
e o SQL desse grid necessitar de dados que estão em concorrência no instante 
em que se submete a instrução SQL para receber os dados. Resultado: lerdeza 
no uso da aplicação e intenso tráfego de rede, que pode ocasionar outros 
problemas a nível de disponibilidade de banda da rede.

O mais coerente é usar ClientDataSet. Associe o dataset que vc está querendo 
visualizar no grid a um TDataSetProvider, e este a um TClientDataSet. Com o 
ClientDataSet, vc pode ordenar os dados já carregados na própria estação 
cliente, sem a necessidade de se reenviar a consulta para refazer uma ordem 
que se deseje visualizar.

Informe-se a respeito disto. Neste e em outras listas de discussão sobre 
Delphi, este tema está mais do que tarimbado, abordado e discutido, e a 
solução é essa: ClientDataSet.

Sds.

From: Hudson [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Re: [delphi-br] Ordenação no Grid
Date: Thu, 12 Apr 2007 23:51:02 -0300

Ola amigo,

Pra fazer isso e simples

Vai ate o evento OnTitleClick do DBGrid e faça o codigo:
exemplo:

   banco.produto.Close;
   banco.produto.SQL.Clear;
   banco.produto.SQL.Add('select * from tabela order by ' + 
Column.FieldName);
   banco.produto.Open;

aonde Column.FieldName representa o campo clicado...

espero ter ajudado!

   - Original Message -
   From: magnun_oliveira
   To: [EMAIL PROTECTED]
   Sent: Thursday, April 12, 2007 4:44 PM
   Subject: [delphi-br] Ordenação no Grid


   Olá fiz um master detail e coloquei os campos da tabela master em
   DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu
   tenho um campo lookpu q uso pra exibir um tipo.

   Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso,
   sei q IndexFieldNames nao da pra usar com lookup ...

   Obrigado.





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


_
MSN Messenger: converse com os seus amigos online. 
http://messenger.msn.com.br



Re: [delphi-br] Ordenação no Grid

2007-04-12 Por tôpico Rubem Nascimento da Rocha

Esta alternativa causa um grande impecilho no que tange tráfego de dados em 
uma rede. Toda vez que o usuário der um clique em um título de uma coluna 
que queira ordenar, ele irá trafegar uma SQL pra retornar dados, o que irá 
causar o primeiro transforno: tráfego de dados desnecessário na rede. O 
segundo transtorno seria o tempo de resposta para receber estes dados via 
rede. Imagine 50 usuários fazendo acesso concorrente ao seu banco de dados, 
e o SQL desse grid necessitar de dados que estão em concorrência no instante 
em que se submete a instrução SQL para receber os dados. Resultado: lerdeza 
no uso da aplicação e intenso tráfego de rede, que pode ocasionar outros 
problemas a nível de disponibilidade de banda da rede.

O mais coerente é usar ClientDataSet. Associe o dataset que vc está querendo 
visualizar no grid a um TDataSetProvider, e este a um TClientDataSet. Com o 
ClientDataSet, vc pode ordenar os dados já carregados na própria estação 
cliente, sem a necessidade de se reenviar a consulta para refazer uma ordem 
que se deseje visualizar.

Informe-se a respeito disto. Neste e em outras listas de discussão sobre 
Delphi, este tema está mais do que tarimbado, abordado e discutido, e a 
solução é essa: ClientDataSet.

Sds.

From: Hudson [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Re: [delphi-br] Ordenação no Grid
Date: Thu, 12 Apr 2007 23:51:02 -0300

Ola amigo,

Pra fazer isso e simples

Vai ate o evento OnTitleClick do DBGrid e faça o codigo:
exemplo:

   banco.produto.Close;
   banco.produto.SQL.Clear;
   banco.produto.SQL.Add('select * from tabela order by ' + 
Column.FieldName);
   banco.produto.Open;

aonde Column.FieldName representa o campo clicado...

espero ter ajudado!

   - Original Message -
   From: magnun_oliveira
   To: [EMAIL PROTECTED]
   Sent: Thursday, April 12, 2007 4:44 PM
   Subject: [delphi-br] Ordenação no Grid


   Olá fiz um master detail e coloquei os campos da tabela master em
   DBEdit's e o detail em um grid. Porem nessa tabela de Detail's eu
   tenho um campo lookpu q uso pra exibir um tipo.

   Preciso ordenar o DBGrid por este campo, alguem sabe como fazer isso,
   sei q IndexFieldNames nao da pra usar com lookup ...

   Obrigado.





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


_
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com



[delphi-br] DBGRID - ADICIONAR / REMOVER E CAPTURAR VALOR DA LINHA CLICADA

2007-04-12 Por tôpico tiano27
Colegas

Solicito ajuda pois sou iniciante em delphi.
Estou montando um programa de testes com Delphi 3 + Postgres + Zeos.
Quero alimentar um DBGRID com esses alguns dados apartir de campos que 
coloquei no formulario.

Pergunto:

1.Como faço para adicionar um registro com varios campos em um dbgrid?
2.Como faço para capturar o click na linha ou coluna do dbgrid depois de 
alimentado com minhas informacoes?
3.Depois de captar o linha / coluna onde foi clicado no dbgrid como faco 
para remover os dados da linha do dbgrid e coloca-los nos campos do meu 
formulario?

Desculpa chatear, mas para quem sabe tudo isso é muito facil, quase 
brincadeira.

Muito obrigado pela atencao de todos colegas.

[]´s
Tiano.