Re: [delphi-br] arrastar item de um checklistbox
Veja se isso ajuda. Supondo que o nome do componente seja CheckListBox1. Programe no evento OnDragOver: if Source is TCheckListBox then Accept := True; Programe no evento OnEndDrag: var Ponto: TPoint; Aux: String; Chk: Boolean; i: Integer; begin Ponto.x := X; Ponto.y := Y; i := CheckListBox1.ItemAtPos(Ponto, True); if i <> -1 then begin Aux := CheckListBox1.Items[i]; Chk := CheckListBox1.Checked[i]; CheckListBox1.Items[i] := CheckListBox1.Items[CheckListBox1.ItemIndex]; CheckListBox1.Checked[i] := CheckListBox1.Checked[CheckListBox1.ItemIndex]; CheckListBox1.Items[CheckListBox1.ItemIndex] := Aux; CheckListBox1.Checked[CheckListBox1.ItemIndex] := Chk; end; end; Fernando Fabiano Arndt wrote: > Olá pessoal, > > Preciso mudar a ordem dos itens de um checklistbox e gostaria de fazer isso > arrastando os itens com o mouse de um posição para outra... > > se alguém puder me ajudar agradeço > > Valeu obrigado. > > Fabiano. > -- < 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] Transações no Firebird
Nao sei se ha limite, mas o recomendavel e fazer com que as transacoes durem pouco. Quanto ao tamanho do banco, acho que depende do sistema operacional. Se voce acha que o banco ira ficar muito grande, divida-o em varios arquivos. O FB permite que um mesmo banco fique em varios arquivos diferentes, definindo o limite de tamanho para cada um. Consulte o manual do IB. Fernando g_mandro wrote: > Pessoal – Bom dia! > > Estamos iniciando o desenvolvimento de um novo sistema em firebird, e > gostaríamos de alguns esclarecimentos. Existe um certo limite de > transações diárias segura para o banco?? Qual o tamanho disponível > seguro para armazenamento dos dados? > > Obrigado, > > Gustavo Mandro. > -- < 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] Try Except Dbexpress
Olá amigos da lista!
Estou com um problema que é o seguinte:
estou tentando usa a seguinte rotina para a exclusão de meus registros:
begin
if MessageDlg('Deseja realmente excluir o'+#13+
'Cliente: '+DBEdit3.Text,
mtConfirmation,[mbYes, mbNo],0) = mrYes then
begin
DmOS.CliDsCli.Delete;
DmOS.CliDsCli.ApplyUpdates(-1);
ShowMessage('Cliente excluído;');
end
else
begin
DmOS.CliDsCli.Cancel;
end;
end;
Até aí tudo bem!
Mas se o meu cliente é chave estrangeira em uma tabela eu não consigo excluílo
devido à integridade referencial.
Vamos ao problema.
Em tempo de execução (assim que compilo o programa) se tento excluir o referido
cliente me mostar o EDatabaseError OK! Tratei o erro com om Try e um Except,
daí o problema. Quando vou excluir esse cliente simplesmente não valida o try
except exclui o registro e me apresenta a mensagem contida no ShowMessage:
Cliente excluído. Navego pelos registros dos clientes e esse cliente não existe
(bom nem deveria ter excluído mas tudo bem), saio e entro no programa novamente
e o registro que supostamente fora excluído está lá.
Alguém sabe o que está acontecendo? Podem me ajudar
Uso componentes de conexão DBexpress na seguinte ordem SQLConnection >
SQLDataSet > DataSetProvider > ClientDataset > DataSource.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> 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] Acesso ao banco
Voce reiniciou o micro com o banco aberto? Talvez tenha corrompido. Utilize algum utilitario do FB (gfix ou gbak se nao me engano) para tentar resolver. Outra coisa: Nunca copie o arquivo do banco se ele estiver sendo acessado por algum usuario. Sempre faca um backup transportavel para copia-lo para outro micro. Fernando Aldinei Simoes wrote: > > Boa tarde > Estou tentando acessar meu banco e esta dando a mansagem "cannot > attach to password" . > Não mudei nada , apenas copiei de um micro para outra e estava > usando , ai deu um erro no msn e reiniciei o micro e começou a dar > esse erro > Uso o D7 com FB 1.5 > > Aldinei > > > > > -- < 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] Erro!!!
Eu tambem ja tive problemas de memoria com relatorios. Eu consegui amenizar criando os relatorios em tempo de execucao e liberando da memoria logo em seguida. Quanto a esses arquivos, sao arquivos temporarios que o BDE cria para rodar querys. Isso e normal. Fernando Cássio wrote: > > Bom dia pessoal!!!Esta me aparecendo uma mensagem de erro dentro do sistema > em delphi que tenho aqui na empresa, onde conforme imprimo cerca de 4 ou 5 > pedidos de venda é mostrada uma mensagem de memória insuficiente. > > Sei que o programa gera arquivos temporários (_qsq...db), mas por mais que eu > exclua constantemente esses arquivos o erro permanece. > > Será que teria alguma forma de corrigir isso? > > Algum jeito de driblar ou ignorar esses temporários quando for enviado um > pedido de impressão? > > Alguma configuração do BDE? > > Obrigado. > > Cássio. > > -- < 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] Versão de Demonstração
Voce pode bloquear algumas funcoes na versao de demonstracao ou faze-lo completo mas que funcione apenas por um periodo de tempo. Fernando Marcelo Carvalho wrote: > Como criar uma versão de demonstração de meu sistema ?? > > Atenciosamente, > > Marcelo Carvalho > > [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] Conversao para char
Pessoal como converter de String ou Inteiro para char. [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] combinação de letras
Pessoal preciso de um algoritmo que dado um numero de letras X, me apresente todas as combinções. Exemplo: Se eu forneço: sutvgao O algoritmo tem que calcular (adicionar num memo) todas as combinações. sutvgao sutvgoa ... stuvgoa vutsaog ... gustavo ... ... E todas as outras. -- < 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] Não passando pelo evento OnKeyDown
estou com um problema... parece que quando crio um form dentro de um panel, o código que dentro dos eventos OnKeyDown OnKeyPress não é executado... -- < 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 TEMA DO XP
Ajudem-me Eu uso o Windows XP. Quando eu coloco no form um componente TabControl, GroupBox, Edit... e rodo a aplicação, os componentes ficam no padrão do XP (com aquelas bordas abixalhadas, tudo colorido...) eu quero que os componentes fiquem no padrão de cores do Windows clássico... -- < 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
Galera to usando o Report Builder para fazer um relatório. Uso ibquery para selecionar os dados que irão sair no relatório. No primeiro ppdbppllista coloco a query principal. Assim eu seleciono apenas o registro que eu estou posicionado na grid para gerar o relatório. Porém quando eu vou para o detalhe em outra query ele só lista o primeiro registro. Alguém já passou por isso e poderia ajudar? Obrigado. Marco Ganzer Marco Ganzer Silvestrin Frutas Ltda. Fone/Fax: (54) 261-1015 E-mail: [EMAIL PROTECTED] Visite nossa Home Page: www.silvestrinfrutas.com.br [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> 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] Classes de regra de negócio - campos ou propriedades?
Conceituação e herança. Conceituação: Todo objeto possue caraterísticas (propriedades), realiza tarefas (métodos), etc. Utilizando propriedades, vc agrega valor para o seu sistema. Herança: Propriedades são herdadas pelas classes derivadas, variáveis não. (ok...dá pra acessar fazendo o typecast...masé q nem chutar de bico...) [ ]'s - Original Message - From: "Daniel Pohren" <[EMAIL PROTECTED]> To: Sent: Thursday, December 23, 2004 1:23 PM Subject: Re: [delphi-br] Classes de regra de negócio - campos ou propriedades? Concordo que não preciso criar metodos de get e set, posso escrever direto na variável (é assim que faço). Mas a pergunta é, se vou APENAS escrever direto na variável, não tendo métodos get/set, QUAL É A VANTAGEM de usar uma property? On Thu, 23 Dec 2004 11:37:51 -0200, Romario (Delphi) <[EMAIL PROTECTED]> wrote: > > A real vantagem está justamente no encapsulamento que está sendo criado. > > O fato de você criar as propriedades não quer dizer que você precisa > criar os métodos de Get e Set. > > Esses métodos só serão criados se você precisar fazer algo mais além de > ler e/ou escrever no atributo. Se não for preciso, leia diretamente do > atributo. > > Ex.: > > Type > Duplicata = Class(TObject) > Private > fValor : Currency; > fVencimento : TDateTime; > fNumero : Smallint; > fEmissao: TDateTime; > Public > Property Valor : Currency Read fValor Write fValor; > Property Vencimento : TDateTime Read fVencimento Write fVencimento; > Property Numero : Smallint Read fNumero Write fNumero; > Property Emissao: TDateTime Read GetEmissao Write SetEmissao; > > Function GetEmissao: TDateTime; > > Function SetEmissao(dtEmissao: TDateTime): Boolean; > > End; > > Implementation > > ... > > = > > Espero ter ajudado. > > Sds, > > Romario > > Daniel Pohren escreveu: > > Bom dia! > > > > Estou criando umas classes de regra de negócio aqui na empresa, e me > > pintou esta dúvida... > > > > Elas não virarão um componente visual, são apenas para código mesmo. > > > > Então, para atributos simples, tem alguma vantagem em criar propriedades? > > > > ex: classe tDuplicatas > > > > tenho valor, vencimento, numero e emissao, entre outros. > > > > Estes valores serão alimentados direto, sempre com > > "duplicata.vencimento := ..." por exemplo, e não tem nenhum tratamento > > especial de get ou set. > > Para criar propriedade vou ter no mínimo uma variável private a mais... > > > > Tem uma REAL vantagem de usar propriedades ao invés de campos neste caso? > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > -- Daniel Pohren Naphta Informática -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Re: Linhas num Grid
Gostaria de saber como posso criar uma query que me retorne as ultimas compras de um produto com seus fornecedores. Quero que me retorne todos os fornecedores de um determinado produto com suas respectivas datas de ultima compra. Tenho a seguinte consulta: SELECTDISTINCTprod.COD_PRODUTO, prod.COD_PRODUTO_SE, prod.DESCRICAO, pf.COD_FORNEC, forn.DESCRICAO AS Expr1, forn.CNPJ, forn.ENDERECO, forn.NUMERO, forn.CEP, forn.COMPLEMENTO, forn.BAIRRO, forn.CIDADE, forn.UF, forn.FONE, forn.FAX, forn.PESSOA_CONTATO, MAX(dbo.T0160.DTRECNF_RM) AS Expr2, dbo.T0161.PRECOUNNF_ AS Expr3 FROM dbo.T0161 INNER JOIN dbo.T0160 ON dbo.T0161.CODNF_RM01 = dbo.T0160.CODNF_RM01 INNER JOIN dbo.CF_PRODUTO prod INNER JOIN dbo.CF_PROD_FORNEC pf ON prod.COD_PRODUTO = pf.COD_PROD INNER JOIN dbo.CF_FORNECEDOR forn ON pf.COD_FORNEC = forn.COD_FORN ON dbo.T0161.ITEMNF_RM0 = prod.COD_PRODUTO_SE WHERE (prod.COD_PRODUTO <= 115) AND (prod.COD_PRODUTO >= 115) GROUP BY dbo.T0161.PRECOUNNF_,prod.COD_PRODUTO_SE, prod.DESCRICAO, pf.COD_FORNEC, forn.DESCRICAO, forn.CNPJ, forn.ENDERECO, forn.NUMERO, forn.CEP, forn.COMPLEMENTO, forn.BAIRRO, forn.CIDADE, forn.UF, forn.FONE, forn.FAX, forn.PESSOA_CONTATO, prod.COD_PRODUTO Mas ela me retorna todas as compras que tenho na tabela de compras e items de compras. A tabela T0160 é a tabela de Compras e a T0161 é a de itens de compra. - Original Message - From: Osmar de Souza Júnior To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 2:43 PM Subject: [delphi-br] Re: Linhas num Grid não sei se o gride padrão do Delphi faz isso... eu utilizo o gride dos componentes InfoPower (http://www.woll2woll.com/infopower) ele permite uma extensibilidade enorme para os grids. coloca combobox dentro dos grides, colunas que ajustam a largura automaticamente, etc... --- Em delphi-br@yahoogrupos.com.br, "Eduardo Buffara Junior" <[EMAIL PROTECTED]> escreveu > > Olá pessoal td bem??? > > Estou com o seguinte problematenho um grid...este grid esta ligado numa tabela cujo o campo texto alem de ser um pouquinho grandetem quebra de linhas. > Tenho duas opções > * Não sei como posso fazer para que o dbgrid quebre as linhas ou seja...moste varias linhas de um unico registro...tipo excel qd vc aumenta o espaço da celula > * Pegar somente a primeira linha da string...mais tb não sei como fazer isso. > > Preciso de uma solução urgente > > Ate agora obrigado > > T+ > > Eduardo Buffara Junior - Programador Delphi > [EMAIL PROTECTED] > (41) 9149.5756 - Paranaguá - PR > > [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!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] teste
teste (desculpem o incÃmodo) [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] Ultimas compras e preços
Pessoal é o seguinte: Tenho que gerar um consulta com todos os fornecedores de um certo produto, esta consulta tem que me retornar entre as informações do fornecedor (CNPJ,DESCRICAO,TELEFONE,...) o último preço de compra do produto para cada fornecedor. Meu problema é que quando coloco para puxar da tabela de items_compra, ele me retorna todas as compras que tenho na tabela. seria mais ou menos isto que eu quero: Cod ProdDescricao 05 AMIDO Cod Forn descricao Ultimo preco 1 Teste 11,50 2 Teste 22,50 3 Teste 30,99 Assim saberia de quem está mais barato. Alguem pode me ajudar -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] Delphi + Paradox + VPN = Lentidão ABSURDA
A única maneira que vejo é vc setar no bde do cliente o endereço IP do servidor de dados como diretório que os dados estão, mas tem uma coisa, no paradox não são criadas as tabelas temporárias na memória, o acesso é feito direto ao disco, talvez por isso o sistema fique tão lento. Uma vez que não há essa geração de tabela na memória para posterior salvamento fisico, os clientes estão conectados diretos com as tabelas e isto explicaria a lentidão na rede. Como pode ver o sistema não está carregando a pasta inteira como vc disse e sim acessando a pasta inteira o tempo todo. - Original Message - From: "Bruno Domenici Ferreira" <[EMAIL PROTECTED]> To: Sent: Wednesday, December 22, 2004 11:38 AM Subject: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA > > > > Bom Dia Colegas, > > Primeiramente gostaria de dizer sou novo aki. :0) > > Sou programador mas naum trabalho com Delphi, me inscrevi nessa lista pelo > seguinte motivo: (lah vai o livro...heheheh) > > Tenho um cliente que presto serviços de manutenção de servidores de rede e > firewall em linux para ele, pois bem, ele tem 2 filiais e as 2 usam um > sistema feito em Delphi + Paradox. > Ele me procurou dizendo que gostaria de integrar as 2 filiais (q rodam o > mesmo sistema com base separada para cada filial), entaum eu montei pra > ele uma VPN com os 2 firewall que jah estavam rodando. > Em cada firewall tenho um Speedy de 512 kbps em cada, a VPN ficou > perfeita, soh que o sistema em Delphi ficou MUITO lento. > > Eu achava que o delphi pegaria da pasta aonde fica o sistema somente os > arquivos .db do paradox e traria para a maquina q solicitou a consulta (o > maior arquivo .db eh de 800kb) entaum pela minhas contas ele demoraria no > maximo 30 segundos para abrir esse arquivo. > O problema eh que eu acredito (olhando o trafego a VPN) que ele esteja > trazendo a pasta toda do sistema (essa tem uns 13mb) inviabilizando o uso > do sistema pela VPN. > > Pesquisando na net tenteio alterar algumas configuração do BDE mas naum > obtive sucesso. > > Alguém já passou por isso antes!? > > Existe alguma configuração no BDE para isso!? > > Qual a solução para rodar Delphi/Paradax em uma rede lenta!? > > Alguem tem alguma sujestão? > > Grato desde jah e desculpem o livrohehehe > > Abraços e bom fim de ano a todos. > > -- > Bruno D. > > Using Opera's revolutionary e-mail client: http://www.opera.com/m2/ > > ** > Scanned by VisNetic MailScan for SMTP Servers. > Visit http://www.deerfield.com/products/visnetic_mailscan. > ** > > > > > > > > > -- > < 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.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Linhas num Grid
Cara, este código resolve type TCGrid = class(TDBGrid); type TColunaGrid = Record LSuperior : String; LInferior : String; Posicao : Cardinal; end; procedure ConfiguraGrid(Coluna: Array of TColunaGrid; Sender: TObject; Column: TColumn; DataCol: Integer; Rect: TRect); var R: TRect; begin With TCGrid(TDBGrid(Sender)) do begin RowHeights[0] := 32; Canvas.Brush.Style := bsClear; Canvas.Font.Color:= ClTeal; Canvas.Font.Style:= [FsBold]; Column.Title.Caption := ''; R := Rect; R.Left := R.Left + 2; R.Right := R.Right - 2; R.Top := 2; DrawText(Canvas.Handle, PChar(Coluna[Column.ID].LSuperior), Length(Coluna[Column.ID].LSuperior), R, Coluna[Column.ID].Posicao); R.Top := 16; DrawText(Canvas.Handle, PChar(Coluna[Column.ID].LInferior), Length(Coluna[Column.ID].LInferior), R, Coluna[Column.ID].Posicao); Canvas.Font.Color := ClWindowText; Canvas.Font.Style := []; end; end; procedure TForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var ColGrid1: Array of TColunaGrid; begin SetLength(ColGrid1,6); ColGrid1[0].LSuperior := 'linha1'; ColGrid1[0].LInferior := 'linha2'; ColGrid1[0].Posicao := DT_CENTER; ColGrid1[1].LSuperior := 'pode ser qualquer coisa'; ColGrid1[1].LInferior := 'aqui tb pode '; ColGrid1[1].Posicao := DT_CENTER; ConfiguraGrid(ColGrid1, Sender, Column, DataCol, Rect); end; -Mensagem original- De: Eduardo Buffara Junior [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 23 de dezembro de 2004 12:58 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Linhas num Grid Olá pessoal td bem??? Estou com o seguinte problematenho um grid...este grid esta ligado numa tabela cujo o campo texto alem de ser um pouquinho grandetem quebra de linhas. Tenho duas opções * Não sei como posso fazer para que o dbgrid quebre as linhas ou seja...moste varias linhas de um unico registro...tipo excel qd vc aumenta o espaço da celula * Pegar somente a primeira linha da string...mais tb não sei como fazer isso. Preciso de uma solução urgente Ate agora obrigado T+ Eduardo Buffara Junior - Programador Delphi [EMAIL PROTECTED] (41) 9149.5756 - Paranaguá - PR [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: 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: _ 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!. --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.819 / Virus Database: 557 - Release Date: 20/12/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.819 / Virus Database: 557 - Release Date: 20/12/2004 [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] [OFF-TOPIC] - InnoSetup
Walter vc usa o InnoSteup ??? Eu uso mas da forma mais simples possível, mas gostaria de melhorar meus scripts. Todos os arquivos são instalados no mesmo diretório, como faço para criá-los em outros diretórios. Tipo assim: APLICAÇÃO.EXE ficaria em C:\PROJETO\APLICAÇÃO.EXE BANCO.GDB ficaria em C:\PROJETO\BANCO\ANCO.GDB Como fazer isso ??? Atenciosamente, Marcelo Carvalho [EMAIL PROTECTED] - Original Message - From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]> To: Sent: Thursday, December 23, 2004 3:49 PM Subject: RES: [delphi-br] [OFF-TOPIC] - InnoSetup Que que tá pegando aí ô bacana??? []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: Carlos Vitorino [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 23 de dezembro de 2004 11:18 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] [OFF-TOPIC] - InnoSetup > > > > > Olá povo!!! > > > Alguém aqui usa o InnoSetup? Já usaram o InnoSetup Form Designer?? > > Se sim, PVT-me, ou MSN-me ([EMAIL PROTECTED]) :-) > > > []'s > > > Carlos Vitorino > Programalista > CTVoicer - Curitina - PR > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] [OFF-TOPIC] - InnoSetup
Que que tá pegando aí ô bacana??? []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: Carlos Vitorino [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 23 de dezembro de 2004 11:18 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] [OFF-TOPIC] - InnoSetup > > > > > Olá povo!!! > > > Alguém aqui usa o InnoSetup? Já usaram o InnoSetup Form Designer?? > > Se sim, PVT-me, ou MSN-me ([EMAIL PROTECTED]) :-) > > > []'s > > > Carlos Vitorino > Programalista > CTVoicer - Curitina - PR > > > > [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] Store Procedure (SQLServer)
Olá a todos, Estou fazendo uma aplicação que insere dados no banco utilizando store procedure (SQLServer2000) e ADO (TADOStoredProc) do Delphi 6. Alguém utiliza? É estável? Estou meio preocupado, pois algumas vezes da erro dizendo que não encontrou um parametro e só volta a funcionar quando eu apago o objeto TADOStoredProc e crio um novo. Obrigado []s Juarez -- < 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: Linhas num Grid
não sei se o gride padrão do Delphi faz isso... eu utilizo o gride dos componentes InfoPower (http://www.woll2woll.com/infopower). ele permite uma extensibilidade enorme para os grids. coloca combobox dentro dos grides, colunas que ajustam a largura automaticamente, etc... --- Em delphi-br@yahoogrupos.com.br, "Eduardo Buffara Junior" <[EMAIL PROTECTED]> escreveu > > Olá pessoal td bem??? > > Estou com o seguinte problematenho um grid...este grid esta ligado numa tabela cujo o campo texto alem de ser um pouquinho grandetem quebra de linhas. > Tenho duas opções > * Não sei como posso fazer para que o dbgrid quebre as linhas ou seja...moste varias linhas de um unico registro...tipo excel qd vc aumenta o espaço da celula > * Pegar somente a primeira linha da string...mais tb não sei como fazer isso. > > Preciso de uma solução urgente > > Ate agora obrigado > > T+ > > Eduardo Buffara Junior - Programador Delphi > [EMAIL PROTECTED] > (41) 9149.5756 - Paranaguá - PR > > [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] Delphi + Paradox + VPN = Lentidão ABSURDA
Bom Dia Colegas, Primeiramente gostaria de dizer sou novo aki. :0) Sou programador mas naum trabalho com Delphi, me inscrevi nessa lista pelo seguinte motivo: (lah vai o livro...heheheh) Tenho um cliente que presto serviços de manutenção de servidores de rede e firewall em linux para ele, pois bem, ele tem 2 filiais e as 2 usam um sistema feito em Delphi + Paradox. Ele me procurou dizendo que gostaria de integrar as 2 filiais (q rodam o mesmo sistema com base separada para cada filial), entaum eu montei pra ele uma VPN com os 2 firewall que jah estavam rodando. Em cada firewall tenho um Speedy de 512 kbps em cada, a VPN ficou perfeita, soh que o sistema em Delphi ficou MUITO lento. Eu achava que o delphi pegaria da pasta aonde fica o sistema somente os arquivos .db do paradox e traria para a maquina q solicitou a consulta (o maior arquivo .db eh de 800kb) entaum pela minhas contas ele demoraria no maximo 30 segundos para abrir esse arquivo. O problema eh que eu acredito (olhando o trafego a VPN) que ele esteja trazendo a pasta toda do sistema (essa tem uns 13mb) inviabilizando o uso do sistema pela VPN. Pesquisando na net tenteio alterar algumas configuração do BDE mas naum obtive sucesso. Alguém já passou por isso antes!? Existe alguma configuração no BDE para isso!? Qual a solução para rodar Delphi/Paradax em uma rede lenta!? Alguem tem alguma sujestão? Grato desde jah e desculpem o livrohehehe Abraços e bom fim de ano a todos. -- Bruno D. Using Opera's revolutionary e-mail client: http://www.opera.com/m2/ ** Scanned by VisNetic MailScan for SMTP Servers. Visit http://www.deerfield.com/products/visnetic_mailscan. ** -- < 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] [OFF-TOPIC] - InnoSetup
Olá povo!!! Alguém aqui usa o InnoSetup? Já usaram o InnoSetup Form Designer?? Se sim, PVT-me, ou MSN-me ([EMAIL PROTECTED]) :-) []'s Carlos Vitorino Programalista CTVoicer - Curitina - PR [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] Componete MediaPlayer...
Não estou conseguindo criar uma condição para o componente MediaPlayer, ou seja, nas duas forms do meu programa possuem o MediaPlayer, eu queria criar uma condição que verificasse se na form1 estiver rodando uma música, exibisse uma mensagem alertando o usuário a clicar no botão Stop para depois executar a música de outro form. Eu tentei implementar no botão Fechar a condição MediaPlayer1.Stop; só que quando eu for sair daquela Form sem estar tocando a música está ocorrendo um erro. Então se eu simplesmente Fechar a Form1 a música continuará rodando, e se eu abrir outra música em outra Form elas irão tocar simultaneamente. Enfim, se alguém puder ajudar ficarei agradecido. Ficarei no aguardo, obrigado pela atenção de todos! Edson Luis N. Langner - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> 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] Linhas num Grid
Olá pessoal td bem??? Estou com o seguinte problematenho um grid...este grid esta ligado numa tabela cujo o campo texto alem de ser um pouquinho grandetem quebra de linhas. Tenho duas opções * Não sei como posso fazer para que o dbgrid quebre as linhas ou seja...moste varias linhas de um unico registro...tipo excel qd vc aumenta o espaço da celula * Pegar somente a primeira linha da string...mais tb não sei como fazer isso. Preciso de uma solução urgente Ate agora obrigado T+ Eduardo Buffara Junior - Programador Delphi [EMAIL PROTECTED] (41) 9149.5756 - Paranaguá - PR [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] Pesquisa em campo BLOB
Será q alguém sabe como realizar pesquisa em um campo blob ?
Tenho o seguinte código:
select S.CCLIFOR, S.CSERVICO, S.PECAS, S.DEFEITO, S.OBS, S.DATA, S.SAIDA,
CF.NCLIFOR
from SERVICOS S inner join CLIFOR CF on CF.CCLIFOR = S.CCLIFOR WHERE UPPER(' +
DS.DataSet.Fields[ComboBox1.ItemIndex].FieldName + ') LIKE
'+QuotedStr('%'+Edit1.Text+'%')..
quando executo este código me retorna o seguinte erro: "conversion error from
string "BLOB"..
Utilizo o firebird 1.5
Desde já agradeço..
Obrigado.
Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]
[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] Alterando Campos de Formulários...
Adapte para as suas necessidades. procedure TForm1.BitBtn1Click(Sender: TObject); var Texto :WideString; formato : Word; Data : THandle; Palette: HPALETTE; tudo:string; begin //Inicializando o Word //Insira um componente TWordApplication e utilize o codigo: W.Connect; W.Visible := True; //Abrindo um documento em branco no Word: //Insira um objeto TWordDocument, e execute o metodo NewInstance: WD.Activate; //Exibe o aplicativo Word (não e necessario) WD.NewInstance; //Cria um novo documento //Inserindo texto no final do arquivo: Texto := 'WorkShop Delphi 5 Novos Eecursos' +chr(13)+chr(10)+ 'www.clubedelphi.com.br'; WD.Content.InsertAfter(texto); //Substituindo uma palavra: //Neste caso, a palavra de indice 2 sera substituida pela string Borland Delphi. WD.Words.Item(2).Text:= 'Borland Delphi'; //Alterando a formatação de uma palavra: //Insira um objeto TWordFont e um TWordDocument. Em seguida, digite o codigo: WF.ConnectTo(WD.Content.Font); WF.Bold:=1; WF.Italic:=1; texto:= #13+'ui ui'; WD.Content.InsertAfter(texto); //o texto sera inserido com a formatacao negrito e italico //Inserindo texto no meio de um arquivo : Texto:= '(Clube Delphi)'; WD.Words.Item(2).InsertAfter(texto); //Este comando ira inserir a string 'Clube Delphi' apos a Segunda palavra //Inserindo uma figura dentro do arquivo: Image1.Picture.SaveToClipBoardFormat(Formato,Data,Palette); //copia o conteudo do objeto image para o clipboard //WD.content wd.content+ wd.content.Paste; wd.content; //é todo o que contem no documento showmessage(tudo); //cola a area de transferencia dentro do documento} end; WD.CONTENT.TEXT:= stringreplace(wd.Content.Text,'DELPHI','TROCOU',[rfReplaceAll, rfIgnoreCase]); Espero ter ajudado. - Original Message - From: "Mauricio Naozuka" <[EMAIL PROTECTED]> To: Sent: Monday, December 20, 2004 12:04 PM Subject: [delphi-br] Alterando Campos de Formulários... Olá! Será que alguém poderia me dar um exemplo de como alterar um campo de formulário no Word via delphi??? Desde já agradeço Maurício. [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
RES: [delphi-br] Capturar informações de cd de música
Como sei que vc entende realmente do assunto, por mim dou este assunto por encerrado e não irei mais perder tempo pesquisando sobre isso. Valeu pelo esclarecimento, Walter. []s -Mensagem original- De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 22 de dezembro de 2004 14:45 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Capturar informações de cd de música Alguns CD´s, criam uma área na mídia onde armazenam estas informações (conhecida como CD Text). Mas já fiquei sabendo também que nem todos CD´s originais fazem isto. E quase todos CD´s que você grava inserindo o CD Text costuma dar pau em certos aparelhos. []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: Rubem Rocha [mailto:[EMAIL PROTECTED] > Enviada em: quarta-feira, 22 de dezembro de 2004 14:33 > Para: delphi-br@yahoogrupos.com.br > Assunto: RES: [delphi-br] Capturar informações de cd de música > Prioridade: Alta > > > > Colega Walter, poderia então me explicar como é que > reprodutores de CD de áudio conseguem listar essas > informações (nome da música, nome do álbum, artista, etc.)??? > > []s > > -Mensagem original- > De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED] > Enviada em: quarta-feira, 22 de dezembro de 2004 14:31 > Para: 'delphi-br@yahoogrupos.com.br' > Assunto: RES: [delphi-br] Capturar informações de cd de música > > > > Senhores, > > Nenhum CD carrega consigo estas informações. Programas de > Rippagem e Reprodução de CD´s de audio fazem a consulta ao > CDDB, um cadastro mundial de CD´s aonde tem e qualquer um > pode adicionar informações a ele (o cadastro). > > O processo funciona mais ou menos assim: > > Você coloca o CD no drive. > > Executa o programa de leitura de CD (Windows Media Player, > Winamp, Exact Audio Copy, etc..) > > No programa, tem a opção de chamar o CDDB. Alguns isto é > automático, como o Winamp por exemplo. > > O Programa então submete ao CDDB alguns dados do CD, como > quantidade de faixas e o tempo de duração de cada uma. Daí > que o CDDB retorna ao seu programa, os nomes de músicas e do > próprio Album que coincidam com os dados informados a ele. > Nem sempre vem. Quando não vem, você tem que digitar tudo na > munheca e, se você um cara gente boa, manda as informações > digitadas para o CDDB. Daí que na proxima vez que você ou > qualquer outra pessoa colocar aquele referido CD no drive, os > nomes das musicas e o album virão. > > Muita gente acha que estas informações estão armazenadas na > TOC (a FAT do CD), mas não estão. Já rolou muita discussão a > este respeito nas listas de MP3 que sou filiado. E o processo > é realmente este que descrevi. > > Há, isto vale pra CD original ou não. > > > []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: Rubem Rocha [mailto:[EMAIL PROTECTED] > > Enviada em: quarta-feira, 22 de dezembro de 2004 14:14 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: RES: [delphi-br] Capturar informações de cd de música > > Prioridade: Alta > > > > > > > > Se o Windows Media Player consegue fazer, deve ter algum meio de > > fazer isso em uma aplicação qualquer, seja ela feita em Delphi ou > > não. Tb tenho interesse e estou pesquisando a tempos sobre isso tb. > > []s > > > > -Mensagem original- > > De: Luiz Henrique Severo d Oliveira > > [mailto:[EMAIL PROTECTED] > > Enviada em: quarta-feira, 22 de dezembro de 2004 11:17 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: [delphi-br] Capturar informações de cd de música > > > > > > > > Pessoal, > > > > Alguém sabe como posso capturar as informações de um cd de música > > (não é mp3, é o cd original)? Tipo colocar o cd no drive e o > > programa ler as informações de nome, banda, nome das músicas, etc. > > > > Para falar a verdade não sei nem se dá para fazer isso. Se alguém > > tiver outra forma... > > > > > > Obrigado > > Luiz Henrique Severo d Oliveira > > RPG Soluçoes > > www.rpgsolucoes.com.br > > > > > > > > -- > > < 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 > > > > > > > > > > --- > Incoming mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 > > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br
Re: [delphi-br] Classes de regra de negócio - campos ou propriedades?
Concordo que não preciso criar metodos de get e set, posso escrever direto na variável (é assim que faço). Mas a pergunta é, se vou APENAS escrever direto na variável, não tendo métodos get/set, QUAL É A VANTAGEM de usar uma property? On Thu, 23 Dec 2004 11:37:51 -0200, Romario (Delphi) <[EMAIL PROTECTED]> wrote: > > A real vantagem está justamente no encapsulamento que está sendo criado. > > O fato de você criar as propriedades não quer dizer que você precisa > criar os métodos de Get e Set. > > Esses métodos só serão criados se você precisar fazer algo mais além de > ler e/ou escrever no atributo. Se não for preciso, leia diretamente do > atributo. > > Ex.: > > Type > Duplicata = Class(TObject) > Private > fValor : Currency; > fVencimento : TDateTime; > fNumero : Smallint; > fEmissao: TDateTime; > Public > Property Valor : Currency Read fValor Write fValor; > Property Vencimento : TDateTime Read fVencimento Write fVencimento; > Property Numero : Smallint Read fNumero Write fNumero; > Property Emissao: TDateTime Read GetEmissao Write SetEmissao; > > Function GetEmissao: TDateTime; > > Function SetEmissao(dtEmissao: TDateTime): Boolean; > > End; > > Implementation > > ... > > = > > Espero ter ajudado. > > Sds, > > Romario > > Daniel Pohren escreveu: > > Bom dia! > > > > Estou criando umas classes de regra de negócio aqui na empresa, e me > > pintou esta dúvida... > > > > Elas não virarão um componente visual, são apenas para código mesmo. > > > > Então, para atributos simples, tem alguma vantagem em criar propriedades? > > > > ex: classe tDuplicatas > > > > tenho valor, vencimento, numero e emissao, entre outros. > > > > Estes valores serão alimentados direto, sempre com > > "duplicata.vencimento := ..." por exemplo, e não tem nenhum tratamento > > especial de get ou set. > > Para criar propriedade vou ter no mínimo uma variável private a mais... > > > > Tem uma REAL vantagem de usar propriedades ao invés de campos neste caso? > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > -- Daniel Pohren Naphta Informática -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Mudar propriedade EditMask do TField??
usa um dblistbox com os tipo PF ou PJ: if dblistbox1.selectedIndex = 0 then nomedatabelanomedocampo.Mask := '999.999.999-99' Else nomedatabelaNomedocampo.Mask := '99.999.999/-99'; coloca este código no evento onexit do dblistbox ou no onenter do dbedit de cpf/cnpj. - Original Message - From: faustofrca To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:15 PM Subject: [delphi-br] Mudar propriedade EditMask do TField?? Boa tarde a todos.. Em uma tabela tenho 1 único campo onde eu armazeno o CNPJ OU CPF, dependendo do tipo de pessoa, no caso Pessoa Juridica o CNPJ e pessoa fisica o CPF. Existe alguma forma de mudar a propriedade EditMask via programação, dependendo do tipo da pessoa? Se sim, como seria esta mudança? []´s 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] 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.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] Duvida ao trabalhar com MaskEdit
Utilizo o componente MaskEdit para meus campos tipo data, o problema que está acontecendo é quando já existe uma data cadastrada neste campo e quero deixá-la em branco. Dá uma mensagem de erro do componente. Como posso fazer para corrigir isso ??? Atenciosamente, Marcelo Carvalho [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] Executavel no browse
Alternativas possíveis: A) Se sua aplicação já está pronta e rodando em win32 utilize ela num windows 200x Server com Terminal Server, ai a tua maquina Cliente pode ser até um linux, que vai beleza. inclusive na web B) Se vc ainda naum fez a aplicação, use WebBroker/WebSnap/IntraWeb ou .net/php/java em um servidor de aplicação (tirando o .net o resto roda em linux) * esta opção é necessáriamente aplicativo "web" mesmo. C) Lembro que no delphi3 tinha um esquema pra fazer formulários (OCX) para browser, nunca fiz, nem sei se funciona a contento, mas não custa nada dar uma olhada certo... Pessoalmente utilizo as 2 primeiras alternativas e utilizo WebSnap que roda tanto em linux quando em Windows. Espero ter ajudado -- _ __ / )| | / / | Jimi Roy Pugss (41 88377350) | _( (_ | _ Developer World Inc.| (((\ \)|_/ )__| ( \_/ / \ / \_/ / / Em Qui, 2004-12-23 às 11:44, Nilson Chagas escreveu: > Please, > > Alguém me indica o caminho, uma luz, como posso fazer para executar uma > aplicativo no browse, estava pensando em algo do tipo: > Servidor (com a aplicação) > Cliente (Acessa a aplicação que esta no servidor, através do browse) > > Tem como fazer isto usando o D7? > > []s > > Nilson Chagas > > "E Jesus, respondendo, disse-lhes: Porventura não errais vós em razão de não > saberdes as Escrituras nem o poder de Deus?" Mc 12v24 > > > - > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! > agora. > > [As partes desta mensagem que não continham texto foram removidas] > -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> 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] sistema odontologico e fez alguma odontograma.
Alguem ja desenvolveu um sistema odontologico e fez alguma odontograma.??? Evandro Araujo de Abreu Uniodonto Campinas Analista de Sistema [EMAIL PROTECTED] Fone: (19) 37314020 [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] Mudar propriedade EditMask do TField??
Boa tarde a todos.. Em uma tabela tenho 1 único campo onde eu armazeno o CNPJ OU CPF, dependendo do tipo de pessoa, no caso Pessoa Juridica o CNPJ e pessoa fisica o CPF. Existe alguma forma de mudar a propriedade EditMask via programação, dependendo do tipo da pessoa? Se sim, como seria esta mudança? []´s 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
Re: [delphi-br] WebCam
Segue em anexo o exemplo solicitado. P.S.: Lembre-se sempre de fazer qualquer solicitação em PVT. Sds, Romario André Argeri escreveu: > Me manda direto nesse e-mail [EMAIL PROTECTED] , fazendo o favor. > Ficarei muito agradecido > > Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 [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] Executavel no browse
Melhor utilizar o Terminal Server do XP. - Original Message - From: "Nilson Chagas" <[EMAIL PROTECTED]> To: "Delphi Br" Sent: Thursday, December 23, 2004 11:44 AM Subject: [delphi-br] Executavel no browse Please, Alguém me indica o caminho, uma luz, como posso fazer para executar uma aplicativo no browse, estava pensando em algo do tipo: Servidor (com a aplicação) Cliente (Acessa a aplicação que esta no servidor, através do browse) Tem como fazer isto usando o D7? []s Nilson Chagas "E Jesus, respondendo, disse-lhes: Porventura não errais vós em razão de não saberdes as Escrituras nem o poder de Deus?" Mc 12v24 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Classes de regra de negócio - campos ou propriedades?
A real vantagem está justamente no encapsulamento que está sendo criado. O fato de você criar as propriedades não quer dizer que você precisa criar os métodos de Get e Set. Esses métodos só serão criados se você precisar fazer algo mais além de ler e/ou escrever no atributo. Se não for preciso, leia diretamente do atributo. Ex.: Type Duplicata = Class(TObject) Private fValor : Currency; fVencimento : TDateTime; fNumero : Smallint; fEmissao: TDateTime; Public Property Valor : Currency Read fValor Write fValor; Property Vencimento : TDateTime Read fVencimento Write fVencimento; Property Numero : Smallint Read fNumero Write fNumero; Property Emissao: TDateTime Read GetEmissao Write SetEmissao; Function GetEmissao: TDateTime; Function SetEmissao(dtEmissao: TDateTime): Boolean; End; Implementation ... = Espero ter ajudado. Sds, Romario Daniel Pohren escreveu: > Bom dia! > > Estou criando umas classes de regra de negócio aqui na empresa, e me > pintou esta dúvida... > > Elas não virarão um componente visual, são apenas para código mesmo. > > Então, para atributos simples, tem alguma vantagem em criar propriedades? > > ex: classe tDuplicatas > > tenho valor, vencimento, numero e emissao, entre outros. > > Estes valores serão alimentados direto, sempre com > "duplicata.vencimento := ..." por exemplo, e não tem nenhum tratamento > especial de get ou set. > Para criar propriedade vou ter no mínimo uma variável private a mais... > > Tem uma REAL vantagem de usar propriedades ao invés de campos neste caso? -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Executavel no browse
Please, Alguém me indica o caminho, uma luz, como posso fazer para executar uma aplicativo no browse, estava pensando em algo do tipo: Servidor (com a aplicação) Cliente (Acessa a aplicação que esta no servidor, através do browse) Tem como fazer isto usando o D7? []s Nilson Chagas "E Jesus, respondendo, disse-lhes: Porventura não errais vós em razão de não saberdes as Escrituras nem o poder de Deus?" Mc 12v24 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> 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] Classes de regra de negócio - campos ou propriedades?
eu, particularmente, faria assim.. a classe de regra, como o nome já diz, refere-se apenas as regras, controlando a estrutura, validando, por exemplo: Para eu gerar uma nota fiscal, deverei ter produtos em estoque. para usares os atributos, seria interessante teres uma classe bean/entidade seria assim: TNotaFiscalEnt <--TNotaFiscalRegra TItensNFEnt<-TItensNFRegra somente as regras conversam entre simos entidades não conversam entre si. falowww. Marcelo - Original Message - From: "Daniel Pohren" <[EMAIL PROTECTED]> To: "Delphi-br" Sent: Thursday, December 23, 2004 10:07 AM Subject: [delphi-br] Classes de regra de negócio - campos ou propriedades? Bom dia! Estou criando umas classes de regra de negócio aqui na empresa, e me pintou esta dúvida... Elas não virarão um componente visual, são apenas para código mesmo. Então, para atributos simples, tem alguma vantagem em criar propriedades? ex: classe tDuplicatas tenho valor, vencimento, numero e emissao, entre outros. Estes valores serão alimentados direto, sempre com "duplicata.vencimento := ..." por exemplo, e não tem nenhum tratamento especial de get ou set. Para criar propriedade vou ter no mínimo uma variável private a mais... Tem uma REAL vantagem de usar propriedades ao invés de campos neste caso? -- Daniel Pohren Naphta Informática -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Delphi 2005 Profetional ou Enterprise?
Gente, decidi que vou comprar o Delphi 2005. Como tenho que comprar 3 licenças pra mim a diferença financeira entre as versões Profetional e Enterprise é considerável. Gostaria de saber dos colegas se as diferenças entre as duas serão limitantes do ponto de vista de desenvolvimento web (ASP.NET etc.). Digam: Dá pra levar bem com a versão mais baratinha ou vou me arrepender depois. Obrigado. ___ Alessandro Cunha Fernandes ><> SoftTI - Software e Consultoria em TI [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] Classes de regra de negócio - campos ou propriedades?
Bom dia! Estou criando umas classes de regra de negócio aqui na empresa, e me pintou esta dúvida... Elas não virarão um componente visual, são apenas para código mesmo. Então, para atributos simples, tem alguma vantagem em criar propriedades? ex: classe tDuplicatas tenho valor, vencimento, numero e emissao, entre outros. Estes valores serão alimentados direto, sempre com "duplicata.vencimento := ..." por exemplo, e não tem nenhum tratamento especial de get ou set. Para criar propriedade vou ter no mínimo uma variável private a mais... Tem uma REAL vantagem de usar propriedades ao invés de campos neste caso? -- Daniel Pohren Naphta Informática -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Retornar registros dentro de um campo
Com a tabela a seguir: PEDIDO ITEM COMPONENTE QTD1 QTD2 1000112012205 1 2000112012302 2 3000212012203 3 Utilizando "TRANSFORM", "GROUP BY", "PIVOT pedido" tenho o retorno COMPONENTE TOTQTD1 TOTQTD2 100 200 300 120122084 53 1201230222 Qual TRANSFORM, SELECT poderia utilizar para retornar: COMPONENTE TOTQTD1 TOTQTD2 PEDIDOS 120122084100,300 120123022200 Obrigado Douglas - CPD SISTEMAS - Torres ( Ramal 225 * [EMAIL PROTECTED] * [EMAIL PROTECTED] [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] OFF Topic - Carta ao Programador
Autor : Júlio Cesar Cascalles Cunha
Programador,
Escrever código-fonte é como escrever um livro ou uma carta a um amigo.
Não seja repetitivo
Cada "capítulo" tem seu papel - cada procedure executa uma parte da tarefa
do código.
Não é porque você pode copiar e colar que vai espalhar o mesmo trecho por
todo o programa.
Imagine que alguém altere um trecho e não outro. Logo será impossível dizer
qual é o trecho correto.
Por outro lado, alterar a procedure é muito mais fácil e garante que ela
fará o que deve ser feito.
DICAS...
...Para ganhar tempo: Pressione Ctrl+Shift+R, digite uma seqüência de
teclas, pressione Ctrl+Shift+R novamente - Isso gravará uma macro. Execute a
macro com Ctrl+Shift+P .
...Para criar uma procedure rapidamente, digite a palavra "procedure" mais o
nome da procedure, na área private, public ou protected da declaração do
form. Depois pressione Ctrl+Shift+C. A implementação da procedure será
gerada no corpo do código.
Para se deslocar da declaração para a implementação da procedure, você pode
pressionar Ctrl+Shift+ a qualquer momento.
Respeite os nomes
O que aconteceria se um locutor esportivo decidisse narrar o jogo falando
apenas os números dos jogadores? Ficaria confuso, não?
Bem, dar manutenção em um código onde Button5 habilita CheckBox3 e limpa
Edit2 também é confuso!
Agora pense como você gostaria que seu nome fosse escrito por alguém que não
tivesse a barra de espaços: No mínimo, você exigiria que as iniciais
estivessem em maiúsculo, não é?!
Por exemplo, "joaquimpereirasantos" é mais difícil de compreender que
"JoaquimPereiraSantos". É o caso de "FieldByName", "ShowModal", "SetFocus",
"UpperCase" etc.
Dicas 2
Na dúvida, pressione Ctrl+Shift+ para ativar o Code Insight do
Delphi que mostrará a maneira correta* de escrever o nome de uma propriedade
ou método.
* = Ao contrário do Java, por exemplo, o compilador do Delphi não é case
sensitive: Se você escrever nomes do jeito "carnavalesco" (com maiusculos
e/ou minusculos aleatóriamente), o compilador ainda tentará fazer algo de
bom com isso.
Diagramação
Olhe os jornais e revistas. Repare como o texto é organizado de forma que
fique agradável aos olhos.
Indentação é assunto polêmico entre programadores: Alguns acham que devem
colocar um número aleatório de espaços ou quebras de linha; Outros acham que
fica bonito alinhar os comandos com a palavra da linha de cima...
Basicamente, um bloco de código deve ser organizado para dar a sensação de
hierarquia: o bloco do "if" e do "else" devem estar alinhados porque
pertencem ao mesmo nível hierárquico.
A quantidade de blocos begin/end pode ser bem reduzida com a melhor
utilização dos comandos Exit, Break e Continue.
Dicas 3
Marque um bloco e pressione Ctrl+K+I para colocar indentação ou Ctrl+K+U
para retirar indentação.
Comentário
A coisa mais terrível na vida de um programador é pegar aquele fonte
monstruoso e ver no final da procedure algumas dúzias de "end" sem saber de
onde vieram.
Uma coisa legal a fazer nesse caso é comentar alguns deles dizendo qual é do
"for", qual é do "with", qual é do "try"...
Comentários são como placas de sinalização para o coitado que estiver
perdido na confusão do código - Placas demais, no entanto, só vão piorar a
confusão.
Dicas 4
No menu "Tools", "Editor Options", clique na aba "Code Insight" - Na parte
central da tela haverá uma área para configurar templates de código.
Você pode definir um template para os tipos de blocos mais comuns que você
usa (if, while, for, with...) e já com o comentário adequado.
Quando estiver programando, digite o atalho e pressione Ctrl+J - Assim o
bloco será escrito no código sempre como foi definido - e não será
necessário colocar o comentário no "end" do bloco.
Variáveis são suas amigas
Não seja excêntrico - seja prático: Soluções rápidas geram muita dor de
cabeça.
Use sua criatividade para tornar seu programa o mais modular possível,
tornando-o fácil de entender e depurar.
É aí que entram as variáveis: pegue aquele valor que se repete e coloque-o
numa variável; Dê à sua variável um nome adequado ao que ela representa.
Veja um exemplo simples:
-
procedure TForm1.ExtraiDDD;
begin
if (Pos('(',string1)>0) then
begin
if (Pos(')',string1)>0) then
begin
string1:=Copy(string1,Pos('(',string1)+1,Pos(')',string1)-Pos('(',string1)-1
);
end;
end;
end;
--
Quantas vezes "Pos('(')" foi utilizada acima?
Seria mais prático substituí-lo pela variável "pos_abre"...
E "s_mascara" seria um nome mais claro para "string1".
Veja:
--
procedure TForm1.ExtraiDDD;
var
pos_abre,pos_fecha: integer;
begin
pos_abre := Pos('(',s_Mascara);
if pos_abre = 0 then
begin
Exit; // Nenhum parênteses encontrado
end;
pos_fecha := Pos('(',s_Mascara);
if pos_fecha > pos_abre then
begin
{** Ajusta as variáveis para extrair a string entre os separadores
[delphi-br] Tema do XP
Eu uso o Windows XP. Quando eu coloco no form um componente TabControl, GroupBox, Edit... e rodo a aplicação, os componentes ficam no padrão do XP (com aquelas bordas abixalhadas, tudo colorido...) eu quero que os componentes fiquem no padrão de cores do Windows clássico... -- < 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] DBLookupComboBox (Urgente mesmo)
Eu gostaria de saber se tem como eu colocar algum digito no dbloockupcombobox, tipo eu colocar 1 e ele me retornar o valor correspondente ao valor digitado, onde ele faz a pesquisa em outro campo. E outra coisa na hora de eu fazer a consulta se tem como eu fazer atravé so nome pra me trazer o código correspontente??? Alguem poderia me ajudar nesse componente Estou prescisando Urgentemente.. -- < 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] Bold for Delphi
Alguém aqui da lista que já trabalhou com o Bold poderia comentar sua experiência em PVT ! -- < 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] Problema com o GROUP BY
Esta faltando colocar no group by a palavra "AdoDESC_PAPEL" - Original Message - From: "Douglas - CPD" <[EMAIL PROTECTED]> To: "Delphi - grupos" <[EMAIL PROTECTED]>; "Delphi-Br" ; "[EMAIL PROTECTED] Com. Br" <[EMAIL PROTECTED]>; "Delphi-No-Brasil" <[EMAIL PROTECTED]>; "Delphi-Total" <[EMAIL PROTECTED]>; "Lista-Delphi" <[EMAIL PROTECTED]> Sent: Wednesday, December 22, 2004 6:17 PM Subject: [delphi-br] Problema com o GROUP BY Por que ao tentar executar o seguinte código, recebo a mensagem de erro abaixo: dm.AdoQryTrabOpsCorte.Close; dm.AdoqryTrabOpsCorte.SQL.Text := 'SELECT AdoComponente, ' + 'SUM(AdoQTDM2PAPEL) AS AdoTOTM2PAPEL, ' + 'SUM(AdoQTDBOBINAS) AS AdoTOTBOBINAS, ' + 'AdoDESC_PAPEL, AdoDATAFINAL FROM ' + sTabelaTemporariaOps + ' GROUP BY AdoComponente, AdoDataFinal' ; dm.AdoQryTrabOpsCorte.Open; 'You tried to execute a query that does not include the specified expression 'AdoDesc_Papel' as part of an aggregate function' Alguém poderia me ajudar ? Douglas - CPD SISTEMAS - Torres ( Ramal 225 * [EMAIL PROTECTED] * [EMAIL PROTECTED] [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.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] WebCam
Se não for muito incomodo, também gostaria de receber esse exemplo um abraço Ademir [EMAIL PROTECTED] -- Poderia me enviar tb, tenho interesse sobre o assunto. [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] Re: Localizar linha em arquivos texto
Eu estou utilizando o conteúdo do arquivo num stringlist e nele estou
manipulando o arquivo.
Adaptando a forma que você me passou num stringlist não estou
conseguindo realizar o if, você poderia me dizer como:
Leandro Ferreira
Desenvolvedor - Tecnologia
NEXXERA Tecnologia e Serviços
itamar escreveu:
>PARA AGILIZAR EM MUITO ESTE METODO UTILIZE O FUNCAO POS()
>que ao encontrar a primeira ocorrencia de busca descarta o resto da linha
>procedure percorreArquivoTexto ( nomeDoArquivo: String );
>var
> arq: TextFile;
> linha: String;
> i: integer
>begin
> AssignFile ( arq, nomeDoArquivo );
> Reset ( arq );
> ReadLn ( arq, linha );
> while not Eof ( arq ) do begin
> if pos('*',linha) then //ALTERDO AQUI RETIRADO O FOR
> Begin
>// Faz o que for preciso
>End;
> ReadLn ( arq, linha );
> end;
> CloseFile ( arq );
>end;
>
>
>
>[EMAIL PROTECTED]
>Analista de Sistemas
>itamar roloff
>---
>- Original Message -
>From: "dom_rr2004" <[EMAIL PROTECTED]>
>To:
>Sent: Thursday, December 23, 2004 8:38 AM
>Subject: [delphi-br] Re: Localizar linha em arquivos texto
>
>
>
>
>Bom dia companheiro.
>
>Aqui tem um procedimento que lê o arquivo linha por linha e em cada
>linha verifica caracter por caracter. Se encontra o caracter
>procurado (no exemplo o '*') então faz o que for preciso.
>
>{ Para ler o arquivo }
>procedure percorreArquivoTexto ( nomeDoArquivo: String );
>var
> arq: TextFile;
> linha: String;
> i: integer
>begin
> AssignFile ( arq, nomeDoArquivo );
> Reset ( arq );
> ReadLn ( arq, linha );
> while not Eof ( arq ) do begin
> for i := 1 to Length(linha) do
> if Copy(linha,i,1) = '*' then
>// Faz o que for preciso
> ReadLn ( arq, linha );
> end;
> CloseFile ( arq );
>end;
>
>Espero que ajude e que você tenha um ótimo dia.
>
>
>
>--- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira
><[EMAIL PROTECTED]> escreveu
>
>
>>Boa Tarde Pessoal,
>>
>>Preciso da ajuda de vocês para descobrir como construo um if
>>
>>
>onde o
>
>
>>parte do conteúdo contenha '*' ou '.'.
>>
>>Por exemplo: dentro do meu arquivo texto, possuo uma linha
>>'teste*.txt=teste*.txt.*.passou' e
>>
>>
>outra 'txt.teste=txt.*.teste.passou'.
>
>
>>Estas duas linhas precisam ser inclusas num listbox ou memo desde
>>
>>
>que o
>
>
>>conteúdo delas possua até chegar no símbolo de '=' os símbolos
>>
>>
>de '*' ou
>
>
>>'.'.
>>
>>Agradeço a ajuda de todos,
>>
>>--
>>Leandro Ferreira
>>Desenvolvedor - Tecnologia
>>NEXXERA Tecnologia e Serviços S.A.
>>
>>
--
< 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
[Spam] Re: [delphi-br] WebCam
Por favor, envie pra mim, ou disponibilize pra nós. [] Robson Farias -- < 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] Re: Localizar linha em arquivos texto
PARA AGILIZAR EM MUITO ESTE METODO UTILIZE O FUNCAO POS()
que ao encontrar a primeira ocorrencia de busca descarta o resto da linha
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i: integer
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do begin
if pos('*',linha) then //ALTERDO AQUI RETIRADO O FOR
Begin
// Faz o que for preciso
End;
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;
[EMAIL PROTECTED]
Analista de Sistemas
itamar roloff
---
- Original Message -
From: "dom_rr2004" <[EMAIL PROTECTED]>
To:
Sent: Thursday, December 23, 2004 8:38 AM
Subject: [delphi-br] Re: Localizar linha em arquivos texto
Bom dia companheiro.
Aqui tem um procedimento que lê o arquivo linha por linha e em cada
linha verifica caracter por caracter. Se encontra o caracter
procurado (no exemplo o '*') então faz o que for preciso.
{ Para ler o arquivo }
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i: integer
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do begin
for i := 1 to Length(linha) do
if Copy(linha,i,1) = '*' then
// Faz o que for preciso
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;
Espero que ajude e que você tenha um ótimo dia.
--- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira
<[EMAIL PROTECTED]> escreveu
> Boa Tarde Pessoal,
>
> Preciso da ajuda de vocês para descobrir como construo um if
onde o
> parte do conteúdo contenha '*' ou '.'.
>
> Por exemplo: dentro do meu arquivo texto, possuo uma linha
> 'teste*.txt=teste*.txt.*.passou' e
outra 'txt.teste=txt.*.teste.passou'.
> Estas duas linhas precisam ser inclusas num listbox ou memo desde
que o
> conteúdo delas possua até chegar no símbolo de '=' os símbolos
de '*' ou
> '.'.
>
> Agradeço a ajuda de todos,
>
> --
> Leandro Ferreira
> Desenvolvedor - Tecnologia
> NEXXERA Tecnologia e Serviços S.A.
--
< 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] RES: Capturar informações de cd de música
> Minha pergunta agora é: Você conhece esse esquema do CDDB > para dar umas > dicas? Ou então conhece alguma alternativa, tipo outro site > para acessar as > informações? > Infeizmente não conheço. Mas uma interessante dica, é você ir no site do CDEx (Fica no sourceforge), pega os fontes dele e dá uma olhada porque lá deve ter a rotina de acesso e leitura dos dados oriundos do CDDB []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: Luiz Henrique [mailto:[EMAIL PROTECTED] > Enviada em: quarta-feira, 22 de dezembro de 2004 22:58 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] RES: Capturar informações de cd de música > > > > Walter, > > Valeu a explicação. Mas por causa dela vou então mudar a pergunta... > > Conheço o CDDB e sei um pouco sobre o Developers Zone deles. > Na época que > olhei isso (a uns 4 anos atrás + - ) achei meio enrolado... > Não sei como > está agora (mas enquanto escrevo estou baixando os arquivos SDK). > > Minha pergunta agora é: Você conhece esse esquema do CDDB > para dar umas > dicas? Ou então conhece alguma alternativa, tipo outro site > para acessar as > informações? > > > Obrigado > Luiz Henrique Severo d Oliveira > RPG Soluções > www.rpgsolucoes.com.br > > > __ > __ > > Mensagem: 16 > Data: Wed, 22 Dec 2004 15:31:26 -0300 >De: Walter Alves Chagas Junior <[EMAIL PROTECTED]> > Assunto: RES: Capturar informações de cd de música > > Senhores, > > Nenhum CD carrega consigo estas informações. Programas de Rippagem e > Reprodução de CD´s de audio fazem a consulta ao CDDB, um > cadastro mundial de > CD´s aonde tem e qualquer um pode adicionar informações a ele > (o cadastro). > > O processo funciona mais ou menos assim: > > Você coloca o CD no drive. > > Executa o programa de leitura de CD (Windows Media Player, > Winamp, Exact > Audio Copy, etc..) > > No programa, tem a opção de chamar o CDDB. Alguns isto é > automático, como o > Winamp por exemplo. > > O Programa então submete ao CDDB alguns dados do CD, como > quantidade de > faixas e o tempo de duração de cada uma. Daí que o CDDB retorna ao seu > programa, os nomes de músicas e do próprio Album que > coincidam com os dados > informados a ele. Nem sempre vem. Quando não vem, você tem > que digitar tudo > na munheca e, se você um cara gente boa, manda as informações > digitadas para > o CDDB. Daí que na proxima vez que você ou qualquer outra > pessoa colocar > aquele referido CD no drive, os nomes das musicas e o album virão. > > Muita gente acha que estas informações estão armazenadas na > TOC (a FAT do > CD), mas não estão. Já rolou muita discussão a este respeito > nas listas de > MP3 que sou filiado. E o processo é realmente este que descrevi. > > Há, isto vale pra CD original ou não. > > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento > Telemont Engenharia de telecomunicações > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > > > > > -- > < 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
Re: [delphi-br] Erro na Tabela
antes da instrucoes de campo coloca isso SAEData.tblSAECadastro.EDIT; // para editat um registro ou SAEData.tblSAECadastro.Insert; // para um registro novo [EMAIL PROTECTED] Analista de Sistemas itamar roloff --- - Original Message - From: "alisson_delphi" <[EMAIL PROTECTED]> To: Sent: Thursday, December 23, 2004 8:28 AM Subject: [delphi-br] Erro na Tabela Salve amigos programadores, eu programo faz pouco tempo e estou com um problema que não estou conseguindo solucionar. Trabalho com o FireBird 1.5 e delphi 7, está ocorrendo um erro que eu não estou conseguindo solucionar falando que a minha tabela tblSAECadastro não está em mode de inserção ou edição, eu já tentei de tudo, antes ele naum gravava as informações no campo e dava o erro, agora eu coloquei essa instrução e ele grava no campo na saida. Estou trabalhando com o componente DBLoockUpComboBox para fazer consulta em outra tabela e no OnExit eu coloquei essa instrução abaixo para fazer a pesquisa e gravar no banco... Aonde ele vai gravar é no DBEdit as informações. DBLoockUpComboBox busca o Cep, e automaticamente nos DBEdit aparece o Endereço e o nome do Bairro. Gostaria que alguém me ajudasse a solucionar o erro, que fala que a tabela naum está em mode de inserção ou edição, e se o comando no OnExit está certo. Veja a instrução abaixo if Operacao in [oprIncluir,oprAlterar] then begin dbdtDS_ENDERECO.DataSource.DataSet.FieldByName ( 'ds_endereco' ).AsString := SAESys.tblCep.FieldByName ( 'ds_logradouro' ).AsString; dbdtMN_BAIRRO.DataSource.DataSet.FieldByName ( 'mn_bairro' ).AsString := SAESys.tblCep.FieldByName ( 'nm_bairro' ).AsString; SAEData.tblSAECadastro.Post end; -- < 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] WebCam
Me manda direto nesse e-mail [EMAIL PROTECTED] , fazendo o favor. Ficarei muito agradecido Muito 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
[delphi-br] Re: Localizar linha em arquivos texto
Bom dia companheiro.
Aqui tem um procedimento que lê o arquivo linha por linha e em cada
linha verifica caracter por caracter. Se encontra o caracter
procurado (no exemplo o '*') então faz o que for preciso.
{ Para ler o arquivo }
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i: integer
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do begin
for i := 1 to Length(linha) do
if Copy(linha,i,1) = '*' then
// Faz o que for preciso
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;
Espero que ajude e que você tenha um ótimo dia.
--- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira
<[EMAIL PROTECTED]> escreveu
> Boa Tarde Pessoal,
>
> Preciso da ajuda de vocês para descobrir como construo um if
onde o
> parte do conteúdo contenha '*' ou '.'.
>
> Por exemplo: dentro do meu arquivo texto, possuo uma linha
> 'teste*.txt=teste*.txt.*.passou' e
outra 'txt.teste=txt.*.teste.passou'.
> Estas duas linhas precisam ser inclusas num listbox ou memo desde
que o
> conteúdo delas possua até chegar no símbolo de '=' os símbolos
de '*' ou
> '.'.
>
> Agradeço a ajuda de todos,
>
> --
> Leandro Ferreira
> Desenvolvedor - Tecnologia
> NEXXERA Tecnologia e Serviços S.A.
--
< 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 na Tabela
Salve amigos programadores, eu programo faz pouco tempo e estou com um problema que não estou conseguindo solucionar. Trabalho com o FireBird 1.5 e delphi 7, está ocorrendo um erro que eu não estou conseguindo solucionar falando que a minha tabela tblSAECadastro não está em mode de inserção ou edição, eu já tentei de tudo, antes ele naum gravava as informações no campo e dava o erro, agora eu coloquei essa instrução e ele grava no campo na saida. Estou trabalhando com o componente DBLoockUpComboBox para fazer consulta em outra tabela e no OnExit eu coloquei essa instrução abaixo para fazer a pesquisa e gravar no banco... Aonde ele vai gravar é no DBEdit as informações. DBLoockUpComboBox busca o Cep, e automaticamente nos DBEdit aparece o Endereço e o nome do Bairro. Gostaria que alguém me ajudasse a solucionar o erro, que fala que a tabela naum está em mode de inserção ou edição, e se o comando no OnExit está certo. Veja a instrução abaixo if Operacao in [oprIncluir,oprAlterar] then begin dbdtDS_ENDERECO.DataSource.DataSet.FieldByName ( 'ds_endereco' ).AsString := SAESys.tblCep.FieldByName ( 'ds_logradouro' ).AsString; dbdtMN_BAIRRO.DataSource.DataSet.FieldByName ( 'mn_bairro' ).AsString := SAESys.tblCep.FieldByName ( 'nm_bairro' ).AsString; SAEData.tblSAECadastro.Post end; -- < 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] WebCam
Poderia me enviar tb, tenho interesse sobre o assunto. - Original Message - From: Romario (Delphi) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:14 AM Subject: Re: [delphi-br] WebCam Perdão! Fui enviar em PVT e acabei enviando para a lista (que não aceita anexo). Sds, Romario Romario (Delphi) escreveu: > Segue em anexo um aplicativo que faz isso. > > Sds, > > Romario > > > > > André Argeri escreveu: > >>Boa tarde. >> >>Estou desenvolvendo um programa usando delphi 7 e queria saber se tem algum componente ou alguma coisa para capturar as imagens da web cam. >> >>Desde já agradeço >> >>Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- 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.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] WebCam
Poderia me enviar o arquivo com o exemplo da webcam, tenho que desenvolver um sistema de controle de portaria aqui na empresa e iria precisar usar esta função. Atenciosamente, André Luis - Leitbom Desenvolvedor - Original Message - From: Romario (Delphi) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:14 AM Subject: Re: [delphi-br] WebCam Perdão! Fui enviar em PVT e acabei enviando para a lista (que não aceita anexo). Sds, Romario Romario (Delphi) escreveu: > Segue em anexo um aplicativo que faz isso. > > Sds, > > Romario > > > > > André Argeri escreveu: > >>Boa tarde. >> >>Estou desenvolvendo um programa usando delphi 7 e queria saber se tem algum componente ou alguma coisa para capturar as imagens da web cam. >> >>Desde já agradeço >> >>Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- 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.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] Problema com o GROUP BY
Coloque o ADODesc_Papel na clausula Group by. - Original Message - From: Douglas - CPD To: Delphi - grupos ; Delphi-Br ; [EMAIL PROTECTED] Com. Br ; Delphi-No-Brasil ; Delphi-Total ; Lista-Delphi Sent: Wednesday, December 22, 2004 6:17 PM Subject: [delphi-br] Problema com o GROUP BY Por que ao tentar executar o seguinte código, recebo a mensagem de erro abaixo: dm.AdoQryTrabOpsCorte.Close; dm.AdoqryTrabOpsCorte.SQL.Text := 'SELECT AdoComponente, ' + 'SUM(AdoQTDM2PAPEL) AS AdoTOTM2PAPEL, ' + 'SUM(AdoQTDBOBINAS) AS AdoTOTBOBINAS, ' + 'AdoDESC_PAPEL, AdoDATAFINAL FROM ' + sTabelaTemporariaOps + ' GROUP BY AdoComponente, AdoDataFinal' ; dm.AdoQryTrabOpsCorte.Open; 'You tried to execute a query that does not include the specified expression 'AdoDesc_Papel' as part of an aggregate function' Alguém poderia me ajudar ? Douglas - CPD SISTEMAS - Torres ( Ramal 225 * [EMAIL PROTECTED] * [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [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] TListItem (Urgente por favor)
Olá, estou utilizando um componente TListItem, que é semelhante ao TLIstView e gostaria de saber como que eu faço para selecionar uma determinada linha, para simular o clique do mouse. Por favor. Obrigado. __ Do you Yahoo!? Jazz up your holiday email with celebrity designs. Learn more. http://celebrity.mail.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
