Re: [delphi-br] Delphi ou C++ Builder ?
Bom, eu tinha quase certeza que não tinha tanta diferença assim, principalmente nas novas versões do Delphi, mas um amigo puxou essa discussão, falando que c++ builder era melhor e mais rápido e tals, e até discuti, mas fiquei sem bases maiores... :o) Obrigado pessoal. [] Em 23/10/07, Joao Morais [EMAIL PROTECTED] escreveu: Andreano Lanusse wrote: Assino em baixo do que o João disse. Assinou em cima =) -- Joao Morais Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Joao Morais Sent: Tuesday, October 23, 2007 5:18 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Delphi ou C++ Builder ? Fellipe Henrique wrote: Olá pessoal, gostaria de saber qual que é o melhor? Agradeceria os esclarecimentos do pessoal da CodeGear... Visto que posso usar componentes feito em Delphi no C++Builder e vice versa, no BDS2007 Gostaria de saber qual gera uma aplicação mais rápida, mais robusta e tals? Ouvi dizer a um tempo atrás que o Delphi se igualou ao C++Builder, é verdade? C possui sintaxe um pouco mais próxima da máquina, o que pode facilitar a vida do compilador para gerar código otimizado. Mas não significa que código C será necessariamente mais rápido que código pascal. Mesmo se for, isto vai acontecer em nível de milissegundos, algo que será perceptível apenas em aplicações críticas. Outra coisa: se o cara conhece bem a linguagem, ele vai saber construir códigos otimizados com qualquer linguagem que tenha um compilador decente. Você deveria se preocupar mais em evitar chamar sem necessidade uma propriedade que tenha um getter, redefinir o comprimento de uma ansi string, usar variáveis de tipos que não tenham muito a ver com os valores que você está manipulando, rever um algoritmo duas, três, quatro vezes até ter certeza de que ele não pode mais ser otimizado por você. Então a pergunta poderia ser feita da seguinte maneira: com qual linguagem você tem mais habilidade para fazer isso tudo? Então, esta será a linguagem que irá gerar o código mais rápido. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi for PHP indicado ao Prêmio Info
Andreano, Você indica alguma lista de Delphi for PHP, estou querendo me ingressar nesta. []s -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br Em 23/10/07, Andreano Lanusse [EMAIL PROTECTED] escreveu: Olá comunidade, Como todo ano acontece, este ano não seria diferente, o Prêmio Info Exame através de seus assinantes elege os melhores. Delphi for PHP está concorrendo na categoria desenvolvimento, gostaria de pedir a todos da comunidade que votem no Delphi for PHP, certamente será uma forma de divulgar a linguagem PHP e mostrar o apoio do Delphi a comunidade PHP. Para votar acesse: http://www.premioinfo.com.br/ http://www.premioinfo.com.br/ - A votação encerra dia 31 de outubro. Obrigado a todos, Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Compiladores ??
Exatamente, estas são diretivas de compilação que voce determina,
através dos blocos {$IFDEF} E {$END} quais blocos de código devem ou
não ser compilados.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
--- Em delphi-br@yahoogrupos.com.br, berdam [EMAIL PROTECTED] escreveu
{$ IFDEF MSwindows}
{$ENDIF}
{$IFDEF LINUX}
{$ENDIF}
Oque significa isso galera, tem alguma coisa a ver com
compiladores??
Pra que serve realmente ??
Re: [delphi-br] Delphi ou C++ Builder ?
É preciso testar então os prós e contras de cada IDE. Se o desenvolvimento do código-fonte não for o problema, então verifique e ferramenta que melhor se adapta à sua realidade, a que tem maior portabilidade, disponibilidade de bibliotecas e suporte. Essa é uma questão extremamente individual, rs... é como escolher uma camisa. Abraços Leonardo C. Costa Analista de Sistemas / RH Prefeitura de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 3:49 PM Subject: Re: [delphi-br] Delphi ou C++ Builder ? Olá Escobar, sei que é bastante difícil esta pergunta, mas vamos supor que o cara saiba muito bem e saiba de virar muito bem em ambos... tanto Delphi quanto C++. Pra facilitar, e por as dúvidas no sistema somente.. :o) []s Em 23/10/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: Perguntinha dificil de responder... Ambos são bons, ambos fazem de tudo, agora só falta saber se vc sabe PASCAL, ou C++, ou em qual vc se sai melhor, então ai fica facil... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, October 23, 2007 4:05 PM Subject: [delphi-br] Delphi ou C++ Builder ? Olá pessoal, gostaria de saber qual que é o melhor? Agradeceria os esclarecimentos do pessoal da CodeGear... Visto que posso usar componentes feito em Delphi no C++Builder e vice versa, no BDS2007 Gostaria de saber qual gera uma aplicação mais rápida, mais robusta e tals? Ouvi dizer a um tempo atrás que o Delphi se igualou ao C++Builder, é verdade? Desde já agradeço []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: [OFF-TOPIC] Delphi7 no Pendrive
Desculpe... mas ha vários programas que tem os mesmos requerimentos rodando diretamente de pendrivers... Alias, o proprio Windows roda diretamente a partir de um pendrive ou CD, gracas a programas como o Bart-PE. Uma pequena lista vai de freewares voce encontra em http://portableapps.com/apps Entre os programas comerciais, campeões de venda da Adobe ( por exemplo ) sao encontrados facilmente no Google. O link para o Delphi Portable, indicado apenas para fins acadêmicos, está no email anterior... Abraco Em 23/10/07, Walter Chagas (Yahoo) [EMAIL PROTECTED] escreveu: Infelizmente rodar Delphi a partir de uma Pendrive não é possível pois o Supra-citado requer algumas chaves no registro do windows para funcionar e, além do que, algumas Dll´s próprias do Windows também. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] wchagasj%40yahoo.com.br http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com SKYPE: WalterChagasJr --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Red Mosquito [EMAIL PROTECTED] escreveu Desculpem pelo off, e pela minha ignorância, mas é possuir executar o Delphi7 num pendrive, isto é, abrir o projeto, alterá-lo e compilá-lo ? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi ou C++ Builder ?
E será que essa coisa toda de melhor que o Delphi faz realmente diferença atualmente? Eu ouvia essa história na época do 486/66, aí sim fazia sentido esperar um desempenho melhor do C++ ao Pascal, mas hoje em dia o processamento está muito maior, as linguagens se desenvolveram, os sistemas melhoraram (salvo o Windows, rs... estou brincando). Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 6:08 AM Subject: Re: [delphi-br] Delphi ou C++ Builder ? Bom, eu tinha quase certeza que não tinha tanta diferença assim, principalmente nas novas versões do Delphi, mas um amigo puxou essa discussão, falando que c++ builder era melhor e mais rápido e tals, e até discuti, mas fiquei sem bases maiores... :o) Obrigado pessoal. [] Em 23/10/07, Joao Morais [EMAIL PROTECTED] escreveu: Andreano Lanusse wrote: Assino em baixo do que o João disse. Assinou em cima =) -- Joao Morais Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Joao Morais Sent: Tuesday, October 23, 2007 5:18 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Delphi ou C++ Builder ? Fellipe Henrique wrote: Olá pessoal, gostaria de saber qual que é o melhor? Agradeceria os esclarecimentos do pessoal da CodeGear... Visto que posso usar componentes feito em Delphi no C++Builder e vice versa, no BDS2007 Gostaria de saber qual gera uma aplicação mais rápida, mais robusta e tals? Ouvi dizer a um tempo atrás que o Delphi se igualou ao C++Builder, é verdade? C possui sintaxe um pouco mais próxima da máquina, o que pode facilitar a vida do compilador para gerar código otimizado. Mas não significa que código C será necessariamente mais rápido que código pascal. Mesmo se for, isto vai acontecer em nível de milissegundos, algo que será perceptível apenas em aplicações críticas. Outra coisa: se o cara conhece bem a linguagem, ele vai saber construir códigos otimizados com qualquer linguagem que tenha um compilador decente. Você deveria se preocupar mais em evitar chamar sem necessidade uma propriedade que tenha um getter, redefinir o comprimento de uma ansi string, usar variáveis de tipos que não tenham muito a ver com os valores que você está manipulando, rever um algoritmo duas, três, quatro vezes até ter certeza de que ele não pode mais ser otimizado por você. Então a pergunta poderia ser feita da seguinte maneira: com qual linguagem você tem mais habilidade para fazer isso tudo? Então, esta será a linguagem que irá gerar o código mais rápido. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] ou [EMAIL PROTECTED] Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] mailto:lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com Tipos Complexos em WebService
Bom dia a todos, Estou com um problema na declaração e uso de tipos complexos utilizando uma integração entre o ERP da Empresa e um Webservice. Este webservice vai me retornar um objeto com o resultado da requisição, mas quando faça a importação do WSDL não é criada a classe do obejto de retorno. Não deveria cria-la ou falei besteira ? Criei o objeto na mão, como sendo TRemotable, mas quando tento dar um create ou atribuí-lo com o resultado do webservice, dá access violation. Registrei ele com o RemClassRegistry.RegisterXSClass. Onde poderia estar errando ? A todos aqueles que puderem me ajudar, meu muito obrigado. Atenciosamente, André Luis da Silveira. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataSet estourando memória
Uso o firebird, e uso STORED PROCEDURE + VIEWS , nem sei se SQLServer tem esses recursos bem provável que tenha, procure algo nesse sentido. Em 24/10/07, Red Mosquito [EMAIL PROTECTED] escreveu: Delphi 7 com SQLServer usando ADO Tenho 5 tabelas. NF_COMPRA e ITENS_NF_COMPRA, NF_VENDA e ITENS_NF_VENDA e MOVIMENTO_ESTOQUE Objetivo: -Ler nf_compra e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (entrada) -Ler nf_venda e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (saida) -Atualizar o saldo diário do produto cf a inserção de registros em Mov.Est . Cada tabela tem um ClientDataSet, já que são precisos vários campos das tabelas para serem gravados em MOVIMENTO_ESTOQUE. O problema é que cf vou lendo mais registros a memória do windows vai indo pro espaço. Exemplo: -Dou um select em NF_COMPRA (ex: nf 1) -em seguida dou um select somente nos produtos desta NF_COMPRA 1 -para cada registro em ITENS_NF_COMPRA eu gero um registro em MOVIMENTO_ESTOQUE -dou um close nos CDS's NF_COMPRA e ITENS_NF_COMPRA -dou um createDS nesses 2 CDS's -dou um open nesses 2 CDS'S (o mesmo procedimento faço com Vendas) Colocando close+createDS+open a memória aguenta mais tempo. Se não colocar dá memória insuficiente rapidinho Estou procedendo corretamente ? Há alguma forma de liberar o CDS da memória ? Sei que deve haver formas mais fáceis, porém este programa eu já peguei pronto. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi ou C++ Builder ?
Sempre a mesma descução. Linguagem X melhor que delphi Mes passado um amigo que programa em duas linguagem (Delphi e Java) me disse que delphi morreuEsta mortinho, pergunte pq? ele me respondeu: Java programa para WEB Multi-plataforma Mobile Outros Perguntei pra mim mesmo Poxa, não preciso programa para mobile, ja tenho varias plataformas de desenvolvimentos web, 99,5% dos meus cliente tem como plataforma windows, os outro 0,5% linux = 3 clientes e um deles ja disse em mudar para Microsoft Server, segundo ele sai mais barato do que linux. coloquei no lapis e saiu mesmo. C++ Builder Não posso falar Mas Delphi posso sim Adoro pascal, facil de trabalhar, poderoso, os soft so param quando eu quero, programação bem rapida... se me colocar um projeto para fazer em delphi X outra linguagem, com certeza vou terminar mais rápido. em outras palavras estou muito feliz em ser Delphiano...rsrsrrss Valeu - Original Message - From: Leonardo Cruz Costa - P. M. Quissamã To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 7:24 AM Subject: Re: [delphi-br] Delphi ou C++ Builder ? E será que essa coisa toda de melhor que o Delphi faz realmente diferença atualmente? Eu ouvia essa história na época do 486/66, aí sim fazia sentido esperar um desempenho melhor do C++ ao Pascal, mas hoje em dia o processamento está muito maior, as linguagens se desenvolveram, os sistemas melhoraram (salvo o Windows, rs... estou brincando). Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 6:08 AM Subject: Re: [delphi-br] Delphi ou C++ Builder ? Bom, eu tinha quase certeza que não tinha tanta diferença assim, principalmente nas novas versões do Delphi, mas um amigo puxou essa discussão, falando que c++ builder era melhor e mais rápido e tals, e até discuti, mas fiquei sem bases maiores... :o) Obrigado pessoal. [] Em 23/10/07, Joao Morais [EMAIL PROTECTED] escreveu: Andreano Lanusse wrote: Assino em baixo do que o João disse. Assinou em cima =) -- Joao Morais Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Joao Morais Sent: Tuesday, October 23, 2007 5:18 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Delphi ou C++ Builder ? Fellipe Henrique wrote: Olá pessoal, gostaria de saber qual que é o melhor? Agradeceria os esclarecimentos do pessoal da CodeGear... Visto que posso usar componentes feito em Delphi no C++Builder e vice versa, no BDS2007 Gostaria de saber qual gera uma aplicação mais rápida, mais robusta e tals? Ouvi dizer a um tempo atrás que o Delphi se igualou ao C++Builder, é verdade? C possui sintaxe um pouco mais próxima da máquina, o que pode facilitar a vida do compilador para gerar código otimizado. Mas não significa que código C será necessariamente mais rápido que código pascal. Mesmo se for, isto vai acontecer em nível de milissegundos, algo que será perceptível apenas em aplicações críticas. Outra coisa: se o cara conhece bem a linguagem, ele vai saber construir códigos otimizados com qualquer linguagem que tenha um compilador decente. Você deveria se preocupar mais em evitar chamar sem necessidade uma propriedade que tenha um getter, redefinir o comprimento de uma ansi string, usar variáveis de tipos que não tenham muito a ver com os valores que você está manipulando, rever um algoritmo duas, três, quatro vezes até ter certeza de que ele não pode mais ser otimizado por você. Então a pergunta poderia ser feita da seguinte maneira: com qual linguagem você tem mais habilidade para fazer isso tudo? Então, esta será a linguagem que irá gerar o código mais rápido. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem
[delphi-br] Array
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta dando
erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre o ADO...
Bom Dia !!! Este primeiro componente que vc me passou usa o BDE ? Vc pode me passar como eu configuro o database dele ? Abraço Doretto - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:09 PM Subject: Re: [delphi-br] Duvidas sobre o ADO... Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED] escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira [EMAIL PROTECTED] wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Off-TOPIC] ERWin
Off dirigido apenas a usuários do ERWin. Demais favor ignorar. Antes de optar pelo ERWin gostaria de saber o seguinte: Ao salvar um arquivo no ERWin existe a opção/possibilidade de ser salvo num formato em que meu cliente que não tem o ERWin instalado possa visualizar o arquivo (ex: .doc, .pdf, .html, etc...) ? Se ele não tem esse recurso, algum concorrente dele tem ? Obrigado, Junior [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre o ADO...
Olha... verdade... Estou eu mesmo com problemas com ADO neste momento... e ja estou também buscando outra solução... :) Att, LF On 10/23/07, Eduardo Silva dos Santos [EMAIL PROTECTED] wrote: Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED]doretto%40qualitysystem.com.br escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema carregando imagem do imagelist dinamicamente
Já On 10/23/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] wrote: Já tentou fazer um update no form depois do evento? - Original Message - From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, October 22, 2007 4:39 PM Subject: Re: [delphi-br] Problema carregando imagem do imagelist dinamicamente Sim... é isso, mas tenho 3 imagens que podem ser modificadas... quando ele clicar no botão, modifica pra um tipo... clicando denovo, muda pra outro e clicando uma terceira vez, volta para o primeiro... A idéia é fazer sort no primeiro caso, sem sort, no segundo caso, sort = ASC e no terceiro, DESC... Mas o problema é q quando passa pelo código, ele entra normalmente e, debugando, parece fazer o q deve ser feito... Mas não muda a imagem na tela... os tags são alterados normalmente... menos as imagens... vlw! Leslyn On 10/22/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] leonardo_costa%40quissama.rj.gov.br wrote: Puxa, achei que o método foi tão complicado pra algo relativamente corriqueiro. A idéia aqui é modificar a imagem de um SpeedButton em runtime, certo? Se for isso, confirma aí. Acredito que podemos chegar num método mais resumido. Abs. Léo - Original Message - From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Monday, October 22, 2007 12:41 PM Subject: [delphi-br] Problema carregando imagem do imagelist dinamicamente Eu fiz o seguinte método: procedure TFrmPipeline.ChangeButton(Sender: TSpeedButton); begin Case Sender.Tag of 0 : begin Sender.Tag := 1; imagPadrao.GetBitmap(0, Sender.Glyph); end; 1 : begin Sender.Tag := 2; imagPadrao.GetBitmap(3, Sender.Glyph); end; 2 : begin Sender.Tag := 0; imagPadrao.GetBitmap(32, Sender.Glyph); end; end; end; E a chamada é : ChangeButton(sbutOrderCFANTASIA); Porém, o método não funciona! Não consigo entender porque... Inicialmente o Tag está em 0... E as imagens já estão no ImageList (imagPadrao). Alguém poderia me ajudar? Grato desde ja, Leslyn Fernandes [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.5/1084 - Release Date: 21/10/2007 15:09 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.5/1084 - Release Date: 21/10/2007 15:09 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre o ADO...
Olá Doreto, o componente que te passei o nome nao usa BDE não, ele faz acesso nativo, precisa apenas da ntwdblib.dll que é a dll client do MSSQL. baixe a versão trial em http://www.component-store.com/delphi/ Em 24/10/07, Doretto [EMAIL PROTECTED] escreveu: Bom Dia !!! Este primeiro componente que vc me passou usa o BDE ? Vc pode me passar como eu configuro o database dele ? Abraço Doretto - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:09 PM Subject: Re: [delphi-br] Duvidas sobre o ADO... Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED]doretto%40qualitysystem.com.br escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira [EMAIL PROTECTED] wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Array
Tenta isso:
if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
amp.com.br sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Agora está dando erro de Arrya type required.
- Original Message -
From: Sérgio T. Uetanabaro
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 9:29 AM
Subject: RES: [delphi-br] Array
Tenta isso:
if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
amp.com.br sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Array
O erro entao está em outro lugar pq isso funciona perfeitamente aqui. To
testando em D7
[]´s
Sergio Uetanabaro
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Agora está dando erro de Arrya type required.
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 9:29 AM
Subject: RES: [delphi-br] Array
Tenta isso:
if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
amp.com.br sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
O meu é Delphi 6 ... acho deve ser isso... vamos vou encher de if...rs
- Original Message -
From: Sérgio T. Uetanabaro
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 10:08 AM
Subject: RES: [delphi-br] Array
O erro entao está em outro lugar pq isso funciona perfeitamente aqui. To
testando em D7
[]´s
Sergio Uetanabaro
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
Agora está dando erro de Arrya type required.
- Original Message -
From: Sérgio T. Uetanabaro
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 9:29 AM
Subject: RES: [delphi-br] Array
Tenta isso:
if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
amp.com.br sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Array
Ola
Na palavra AsInteger parece-me que ficou com um espaço indevido.
Certo: AsInteger
Pode ser porisso que continua dando erro.
;)
Abço..
Omar M. Haddad
Analista de Sistemas
- Mensagem original
De: Sérgio T. Uetanabaro [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 24 de Outubro de 2007 8:29:37
Assunto: RES: [delphi-br] Array
Tenta isso:
if FieldByName( 'GRAU').AsIntege r in [1,3, 5, 8, 10, 11, 17, 18] then
[]´s
Sergio Uetanabaro
_
De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de André Luis de Oliveira
Enviada em: quarta-feira, 24 de outubro de 2007 11:13
Para: [EMAIL PROTECTED] os.com.br
Assunto: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyNam e('GRAU') .AsInteger) [1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyNam e('GRAU') .AsInteger) ;
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira aoliveira_sys@
mailto:aoliveira_ sys%40yahoo. com.br yahoo.com.br wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName( 'GRAU').AsString [1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br
amp.com.br sistemas%40uniodon tocamp.com. br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp. com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
- - - - - -
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
Re: [delphi-br] Duvidas sobre o ADO...
Pergunta de preguiçoso... Dá pra acessar MSSQL com DBExpress? Tenho quase certeza que sim, mas como estou sem Delphi aqui pra testar gostaria de tirar essa dúvida. Sds, Ricardo. Doretto [EMAIL PROTECTED] escreveu: Bom Dia !!! Este primeiro componente que vc me passou usa o BDE ? Vc pode me passar como eu configuro o database dele ? Abraço Doretto - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:09 PM Subject: Re: [delphi-br] Duvidas sobre o ADO... Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED] escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Bom dia!
Ou vc trata o valor lido como Inteiro ou trata como string e testando com if
* Tratando como inteiro vc poderia fazer assim:
{...}
Type
TIntSet = Set of 1..250;
{...}
Var
Grau : Integer;
Graus: TIntSet;
{...}
Begin
Graus := [1, 3, 5, 8, 10, 11, 17, 18];
Grau := FieldByName('GRAU').AsInteger;
if Grau in Graus then
ShowMessage('Pertence')
else
ShowMessage('Não Pertence');
End;
{...}
Sds,
Ricardo.
André Luis de Oliveira [EMAIL PROTECTED] escreveu:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
_
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Array
Companheiro, duas coisas:
1) Vc está cometando um grande equívoco ao querer comparar um caracter de uma
string com um conjunto de strings inteiras. Reveja esta sintaxe, pois ela está
muito equivocada;
2) Vc está querendo usar o operador in com um conjunto de strings, e em Object
Pascal conjuntos só podem ser de tipos de dados ordinais. Os tipos de dados
ordinais compreendem os tipos integer, char, Boolean, tipos de dados enumerados
e tipos de subrange. Pesquise no help do Delphi que vc encontra mais
informações sobre esses dois últimos tipos de dados ordinais que mencionei. Eu
lhe garanto, vc vai encontrar!
Pra resolver o seu problema, use a função AnsiIndexStr. Exemplo:
if AnsiIndexStr(FieldByName('GRAU').AsString, ['01', '03', '05', '08', '10',
'11', '17', '18']) -1 then
{ ... }
Informe-se tb mais no help do Delphi sobre esta função AnsiIndexStr().
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 24 Oct 2007 09:50:52 -0300
Subject: [delphi-br] Array
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta dando
erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
_
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas
com Windows Desktop Search GRÁTIS!
http://desktop.msn.com.br/
Re: [delphi-br] Base de Dados do CID10
Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] ou [EMAIL PROTECTED] Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] mailto:lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre o ADO...
eu uso dbexpress , ouvi falar mau do ado e nao quis encarar... dbexpress +sqldataset+ clientdataset - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:09 PM Subject: Re: [delphi-br] Duvidas sobre o ADO... Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED] escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Então... tenho a ligeira impressão que o comando IN não aceita caracteres.
Nesse caso você precisa fazer a conversão usando StrToInt ou o contrário. Fiz
um exemplo aqui que funcionou, o código é esse:
procedure TForm1.ComboBox1Click(Sender: TObject);
var
valor: integer;
begin
valor := StrToInt(combobox1.Text);
if valor in [01, 10, 15] then
showmessage('Um, dez ou quinze');
end;
Foi só um exemplo de seleção, mas você pode adaptar ao seu caso. Ficaria até
mais tranqüilo fazer uma function.
Leonardo Cruz Costa
Analista de Sistemas / RH
Prefeitura Municipal de Quissamã
Mat.: 2601
(22)2768-9324 / 9372
- Original Message -
From: André Luis de Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 10:13 AM
Subject: Re: [delphi-br] Array
Não deu certo continua dando o erro.
- Original Message -
From: Leslyn Fernandes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 8:58 AM
Subject: Re: [delphi-br] Array
Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
para converte-lo atraves da função 'AsString'.
Tente usar assim para verificar se o erro é esse:
IntToStr(FieldbyName('GRAU').AsInteger)[1]
ou então, se preferir, atribua a uma variável:
...
var
x : String;
...
x := IntToStr(FieldbyName('GRAU').AsInteger);
if x[1] in ...
Att,
LF
On 10/24/07, André Luis de Oliveira [EMAIL PROTECTED] wrote:
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED] sistemas%40uniodontocamp.com.br
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007
13:26
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida cruel...
Olá Delphinianos! Sabemos que o TBitBtn e afins não carregam imagens ICO. Esse problema eu já resolvi criando uma rotina de conversão. Só que daí comecei a perceber algo muito, muito incômodo: o fundo das imagens ficam hora transparentes, hora todo branco. Parece alguma coisa com o windows, pois desenvolvendo o sistema em casa as imagens ficam como deveriam, com o fundo transparente. Alguém tem alguma idéia do que é que há com esse velhinho? Outra coisa: quando o usuário clica no botão, o Caption e a imagem dele muda (por exemplo, clicando em Novo, o Caption muda para Salvar e a imagem muda para um disquete). Existem duas maneiras de implementar isso: criando um código para cada botão ou inserindo o código no componente de manipulação do banco de dados (ZTable por exemplo, nos eventos After e Before). O problema é que as duas maneiras são trabalhosas. Um código pra cada botão é retrabalho e um código no componente fica gigante, geralmente manipulando botões que nem foram usados. Alguém usa uma solução diferente? Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi ou C++ Builder ?
Na minha opinião a grande diferença é a linguagem... se você conhece melhor Object Pascal, então o Delphi é melhor, se tiver mais facilidade com o C então o C++ Builder será o melhor. Fellipe Henrique [EMAIL PROTECTED] escreveu: Olá pessoal, gostaria de saber qual que é o melhor? Agradeceria os esclarecimentos do pessoal da CodeGear... Visto que posso usar componentes feito em Delphi no C++Builder e vice versa, no BDS2007 Gostaria de saber qual gera uma aplicação mais rápida, mais robusta e tals? Ouvi dizer a um tempo atrás que o Delphi se igualou ao C++Builder, é verdade? Desde já agradeço []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Acho que não entendi muito bem, mas já tentou usar .Text ao invés de .AsString?
Leonardo Cruz Costa
Analista de Sistemas / RH
Prefeitura Municipal de Quissamã
Mat.: 2601
(22)2768-9324 / 9372
- Original Message -
From: André Luis de Oliveira
To: Delphi BR
Sent: Wednesday, October 24, 2007 9:50 AM
Subject: [delphi-br] Array
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007
13:26
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Array
Vejam a resposta que postei sobre este tópico. Ela explica melhor.Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 09:30:34
-0300Subject: Re: [delphi-br] Array
Então... tenho a ligeira impressão que o comando IN não aceita caracteres.
Nesse caso você precisa fazer a conversão usando StrToInt ou o contrário. Fiz
um exemplo aqui que funcionou, o código é esse:procedure
TForm1.ComboBox1Click(Sender: TObject);varvalor: integer;beginvalor :=
StrToInt(combobox1.Text);if valor in [01, 10, 15] thenshowmessage('Um, dez ou
quinze');end;Foi só um exemplo de seleção, mas você pode adaptar ao seu caso.
Ficaria até mais tranqüilo fazer uma function.Leonardo Cruz CostaAnalista de
Sistemas / RHPrefeitura Municipal de QuissamãMat.: 2601(22)2768-9324 /
9372- Original Message - From: André Luis de Oliveira To:
delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 10:13 AMSubject:
Re: [delphi-br] ArrayNão deu certo continua dando o erro.- Original Message
- From: Leslyn Fernandes To: delphi-br@yahoogrupos.com.br Sent: Wednesday,
October 24, 2007 8:58 AMSubject: Re: [delphi-br] ArrayEsse campo 'GRAU' deve
ser Integer e o compilador deve estar com problemaspara converte-lo atraves da
função 'AsString'.Tente usar assim para verificar se o erro é
esse:IntToStr(FieldbyName('GRAU').AsInteger)[1]ou então, se preferir, atribua a
uma variável:...varx : String;...x :=
IntToStr(FieldbyName('GRAU').AsInteger);if x[1] in ...Att,LFOn 10/24/07,
André Luis de Oliveira [EMAIL PROTECTED] wrote: Tenho um campo de tamanho 2
do tipo caracter. Fiz o seguinte if mas esta dando erro. if
FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11', '17',
'18'] then Ordinal type required e Incompatible types: 'Integer' and
'String'. André Luis de Oliveira Analista de Sistemas E-mail: [EMAIL
PROTECTED] sistemas%40uniodontocamp.com.br ( (19) 3322-4018 Skype:
al_oliveira Uniodonto Campinas Av. Brasil, 200 - Campinas/SP ( (19)
3322-4000 Visite nosso site: www.uniodontocamp.com.br [As partes desta
mensagem que não continham texto foram removidas] [As partes desta mensagem
que não continham texto foram
removidas]--No virus
found in this incoming message.Checked by AVG Free Edition. Version: 7.5.503 /
Virus Database: 269.15.9/1090 - Release Date: 24/10/2007 08:48[As partes desta
mensagem que não continham texto foram
removidas]--No virus
found in this incoming message.Checked by AVG Free Edition. Version: 7.5.488 /
Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26[As partes desta
mensagem que não continham texto foram removidas]
_
Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com
Alertas MSN! É GRÁTIS!
http://alertas.br.msn.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird-Join entre BDs diferentes?
bem uma outra forma , q num sei se é melhor , é: no 1° bd vc criar na tabela uma trigger onde ira lançar todo novo reg ou alterado para uma 2ª tabela gemea. ai sim c pode fazer um loop nessa tabela e atualizar o 2° bd lembrese de apos atualizar remover os registros atualizados . acho q é bem melhor pois evita de vc percorrer todos os registros em busca de qual atualizar. pelo q vc postou ai se vc alterar 1 campo tera q correr todos registros. ja dessa forma so vai ter q correr 1 - Original Message - From: Ricardo Bianchin To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:29 PM Subject: Re: [delphi-br] Firebird-Join entre BDs diferentes? Robson, como demorou a vir uma resposta eu tb postei esta pergunta na lista firebird-br segundo o pessoal de lá ainda nao dá e espera-se q passe a fazer na versao 3.0 de qquer forma, obrigado pela atencao! é q num banco tenho uma lista com datahora da ultima alteracao em cada registro e no segundo banco tenho uma repeticao desta tabela e quero atualizar somente os registros atrasados entao eu trago do primeiro banco a tabela e percorro ela num loop pra saber qual reg devo atualizar na segunda tabela se alguem tiver uma ideia melhor, agradeço! Em 23/10/07, Robson [EMAIL PROTECTED] escreveu: Ricardo, eu trabalho com dois gdb's mas um select com tabelas dos dois bancos naum tentei ainda, vou fazer um teste hj a noite e mando a resposta, ok! Kaputz, Robson Skype: kaputz_gri Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie Chaplin . Keep the Dream Alive - Mensagem original De: Ricardo Bianchin [EMAIL PROTECTED]ricardodeveloper%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 22 de Outubro de 2007 14:46:26 Assunto: [delphi-br] Firebird-Join entre BDs diferentes? é possivel eu fazer join entre duas tabelas q estejam em diferentes arquivos de dados do Firebird? se sim, como é a sintaxe? Obrigado! Ricardo Bianchin Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Relatorio com FastReport
Olá Samuel, no seu sistema, como vc carrega os arquivos dos relatórios?
mostra o codigo ae.. do FrxReport.LoadFromFile..
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED] escreveu:
Bom dia Pessoal!
Fiz um executavel de atualizacao pelo qual todas estaçoes ao acessar ele
copia ou atualiza o sistema principal para a maquina local e executa o
sistema principal até ai funciona perfeitamente, o problema que ocorre é
nos
relatorios eu uso fast report e tenho uma pasta onde se encontra todos
relatorios e executando o sistema principal na maquina ele funciona
perfeitamente os relatorios mas ao abrir o executavel principal atraves do
executavel de atualizacao ele nao encontra os relatorios, nao entendi o
motivo eu abro o executavel principal pelo seguinte comando
WinExec(PChar('C:\Sistema.exe'),SW_SHOWMAXIMIZED); ai nao funciona mas se
eu
executar o sistema.exe direto no C: ai funciona...Gostaria de saber se
tem alguma ideia senao vou ter que ver alguma maneira diferente para
isto.lembrando que os relatorios esta em uma pasta junto com o
executavel..
Grato.
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataSet estourando memória
bem eu uso sqlserver naqueles selects cabeludos de 3 ou mais tabelas graudas eu uso view e funciona q uma beleza. como tenho um bom servidor tento amenizar bem as querys com views e SPs e trazer o minimo pro cliente. - Original Message - From: Leonardo Quinino [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:25 AM Subject: Re: [delphi-br] ClientDataSet estourando memória Uso o firebird, e uso STORED PROCEDURE + VIEWS , nem sei se SQLServer tem esses recursos bem provável que tenha, procure algo nesse sentido. Em 24/10/07, Red Mosquito [EMAIL PROTECTED] escreveu: Delphi 7 com SQLServer - usando ADO Tenho 5 tabelas. NF_COMPRA e ITENS_NF_COMPRA, NF_VENDA e ITENS_NF_VENDA e MOVIMENTO_ESTOQUE Objetivo: -Ler nf_compra e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (entrada) -Ler nf_venda e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (saida) -Atualizar o saldo diário do produto cf a inserção de registros em Mov.Est . Cada tabela tem um ClientDataSet, já que são precisos vários campos das tabelas para serem gravados em MOVIMENTO_ESTOQUE. O problema é que cf vou lendo mais registros a memória do windows vai indo pro espaço. Exemplo: -Dou um select em NF_COMPRA (ex: nf 1) -em seguida dou um select somente nos produtos desta NF_COMPRA 1 -para cada registro em ITENS_NF_COMPRA eu gero um registro em MOVIMENTO_ESTOQUE -dou um close nos CDS's NF_COMPRA e ITENS_NF_COMPRA -dou um createDS nesses 2 CDS's -dou um open nesses 2 CDS'S (o mesmo procedimento faço com Vendas) Colocando close+createDS+open a memória aguenta mais tempo. Se não colocar dá memória insuficiente rapidinho Estou procedendo corretamente ? Há alguma forma de liberar o CDS da memória ? Sei que deve haver formas mais fáceis, porém este programa eu já peguei pronto. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] ClientDataSet estourando memória
Olá Junior, Vc tá no caminho. O mais correto é vc ler as informações via cursor pois assim não consome muita memória para armazenas. Não sei qual componente vc está usando mas caso aceite, desabilite o fetchAll do dataset de leitura. Outro artifício q vc pode usar é ao invés de abrir um dataset e dar append vc montar uma query de insert com os devidos parametros e somente fornecer os parâmetros do insert para cada registro de origem. Trabalhe com parâmetros pois a maioria dos componente DBWare otimizam junto ao banco a execução da DML. Assim a aplicação irá consumir pouca memória pois os dados estarão sendo lido via cursor e inseridas no banco através de inserts diretos. []´s Sergio Uetanabaro _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Red Mosquito Enviada em: quarta-feira, 24 de outubro de 2007 04:06 Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ClientDataSet estourando memória Delphi 7 com SQLServer usando ADO Tenho 5 tabelas. NF_COMPRA e ITENS_NF_COMPRA, NF_VENDA e ITENS_NF_VENDA e MOVIMENTO_ESTOQUE Objetivo: -Ler nf_compra e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (entrada) -Ler nf_venda e seus respectivos itens e gerar MOVIMENTO_ESTOQUE (saida) -Atualizar o saldo diário do produto cf a inserção de registros em Mov.Est. Cada tabela tem um ClientDataSet, já que são precisos vários campos das tabelas para serem gravados em MOVIMENTO_ESTOQUE. O problema é que cf vou lendo mais registros a memória do windows vai indo pro espaço. Exemplo: -Dou um select em NF_COMPRA (ex: nf 1) -em seguida dou um select somente nos produtos desta NF_COMPRA 1 -para cada registro em ITENS_NF_COMPRA eu gero um registro em MOVIMENTO_ESTOQUE -dou um close nos CDSs NF_COMPRA e ITENS_NF_COMPRA -dou um createDS nesses 2 CDSs -dou um open nesses 2 CDSS (o mesmo procedimento faço com Vendas) Colocando close+createDS+open a memória aguenta mais tempo. Se não colocar dá memória insuficiente rapidinho Estou procedendo corretamente ? Há alguma forma de liberar o CDS da memória ? Sei que deve haver formas mais fáceis, porém este programa eu já peguei pronto. Obrigado pela atenção Junior [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Base de Dados do CID10
CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Array
Ricardo, assim deu certo, valew.
- Original Message -
From: Ricardo César Cardoso
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 24, 2007 11:04 AM
Subject: Re: [delphi-br] Array
Bom dia!
Ou vc trata o valor lido como Inteiro ou trata como string e testando com if
* Tratando como inteiro vc poderia fazer assim:
{...}
Type
TIntSet = Set of 1..250;
{...}
Var
Grau : Integer;
Graus: TIntSet;
{...}
Begin
Graus := [1, 3, 5, 8, 10, 11, 17, 18];
Grau := FieldByName('GRAU').AsInteger;
if Grau in Graus then
ShowMessage('Pertence')
else
ShowMessage('Não Pertence');
End;
{...}
Sds,
Ricardo.
André Luis de Oliveira [EMAIL PROTECTED] escreveu: Tenho um campo de
tamanho 2 do tipo caracter. Fiz o seguinte if mas esta dando erro.
if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
'17', '18'] then
Ordinal type required e Incompatible types: 'Integer' and 'String'.
André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira
Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br
[As partes desta mensagem que não continham texto foram removidas]
_
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007
08:48
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Caro amigo luis, corrigindo o que vc mensionou...o correto é Classificação Internacional de Doenças o complemento 10 - corresponde a décima revisão. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:11 PM Subject: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Eu tenho... Coloco no grupo? Abs Tiago - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 1:21 PM Subject: Re: [delphi-br] Base de Dados do CID10 Caro amigo luis, corrigindo o que vc mensionou...o correto é Classificação Internacional de Doenças o complemento 10 - corresponde a décima revisão. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:11 PM Subject: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Relatorio com FastReport
Olá Eduardo!
Segue o codigo:
frxReport.LoadFromFile('.\Relatorios\Rel.fr3');
Em 24/10/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
Olá Samuel, no seu sistema, como vc carrega os arquivos dos relatórios?
mostra o codigo ae.. do FrxReport.LoadFromFile..
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED]samuelbasso%40yahoo.com.br
escreveu:
Bom dia Pessoal!
Fiz um executavel de atualizacao pelo qual todas estaçoes ao acessar ele
copia ou atualiza o sistema principal para a maquina local e executa o
sistema principal até ai funciona perfeitamente, o problema que ocorre é
nos
relatorios eu uso fast report e tenho uma pasta onde se encontra todos
relatorios e executando o sistema principal na maquina ele funciona
perfeitamente os relatorios mas ao abrir o executavel principal atraves
do
executavel de atualizacao ele nao encontra os relatorios, nao entendi o
motivo eu abro o executavel principal pelo seguinte comando
WinExec(PChar('C:\Sistema.exe'),SW_SHOWMAXIMIZED); ai nao funciona mas
se
eu
executar o sistema.exe direto no C: ai funciona...Gostaria de saber
se
tem alguma ideia senao vou ter que ver alguma maneira diferente para
isto.lembrando que os relatorios esta em uma pasta junto com o
executavel..
Grato.
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Samuel M. Basso
Tel: (54) 3452-9126
Cel: (54) 8135-3723
E-mail: [EMAIL PROTECTED]
MSN: [EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Base de Dados do CID10
Valeu Tiago!! Me equivoquei... :-( Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Tiago Vendemiatti [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 13:23:27 Assunto: Re: [delphi-br] Base de Dados do CID10 Eu tenho... Coloco no grupo? Abs Tiago - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 1:21 PM Subject: Re: [delphi-br] Base de Dados do CID10 Caro amigo luis, corrigindo o que vc mensionou...o correto é Classificação Internacional de Doenças o complemento 10 - corresponde a décima revisão. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:11 PM Subject: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tabelas complementares disponivel para downloads
Arquivo Descrição Tamanho CID10.DBF Arquivo contendo a tabela de categorias de doenças, conforme a CID-10. 819 CIDBR2.DBF Arquivo contendo a lista tabular CID-BR 2, conforme a CID-10. 9 CIDBR-10.DBF Arquivo contendo a lista tabular CID-BR, conforme a CID-10. 20 TABETNIA.DBF Arquivo contendo a tabela de etnias indígenas brasileiras. 11 TABMUN.DBF Arquivo contendo a tabela de municípios. 285 TABOCUP.DBF Arquivo contendo a tabela de ocupações. 171 TABPAIS.DBF Arquivo contendo a tabela de países. 9 TABUF.DBF Arquivo contendo a tabela de Unidades da Federação. 1 Galera coloquei um arquivo zipado contendo as tabelas acima, espero q ajude a galera. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Base de Dados do CID10
Eu postei em http://www.avalonsistemas.com.br/cid/CID.zip Deixarei lá até o fim do dia. []s Topolniak De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luis Lopes Enviada em: quarta-feira, 24 de outubro de 2007 11:11 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] mailto:leonardo_costa%40quissama.rj.gov.br escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] mailto:lucianoangelini%40msn.com lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] mailto:lucianoreis%40netsite.com.br lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- . Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabelas complementares disponivel para downloads
mas onde estão estes arquivos? Em 24/10/07, Ricardo Mendes [EMAIL PROTECTED] escreveu: Arquivo Descrição Tamanho CID10.DBF Arquivo contendo a tabela de categorias de doenças, conforme a CID-10. 819 CIDBR2.DBF Arquivo contendo a lista tabular CID-BR 2, conforme a CID-10. 9 CIDBR-10.DBF Arquivo contendo a lista tabular CID-BR, conforme a CID-10. 20 TABETNIA.DBF Arquivo contendo a tabela de etnias indígenas brasileiras. 11 TABMUN.DBF Arquivo contendo a tabela de municípios. 285 TABOCUP.DBF Arquivo contendo a tabela de ocupações. 171 TABPAIS.DBF Arquivo contendo a tabela de países. 9 TABUF.DBF Arquivo contendo a tabela de Unidades da Federação. 1 Galera coloquei um arquivo zipado contendo as tabelas acima, espero q ajude a galera. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] r.mendes%40totalsat.com.br Site: www.totalsat.com.br Tel. (41) 2109-7717 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Fw: [delphi-br] Tabelas complementares disponivel para downloads
Galera, falha minha...os arquivos encontram-se zipados na parte de downloads de arquivos da comunidade juntamente com os demais arquivos existentes... Foi mal.. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Gerhard Roger Nack To: [EMAIL PROTECTED] Sent: Wednesday, October 24, 2007 2:31 PM Subject: RES: [delphi-br] Tabelas complementares disponivel para downloads Gostaria desta informação, + colocou onde? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Mendes Enviada em: quarta-feira, 24 de outubro de 2007 13:35 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Tabelas complementares disponivel para downloads Arquivo Descrição Tamanho CID10.DBF Arquivo contendo a tabela de categorias de doenças, conforme a CID-10. 819 CIDBR2.DBF Arquivo contendo a lista tabular CID-BR 2, conforme a CID-10. 9 CIDBR-10.DBF Arquivo contendo a lista tabular CID-BR, conforme a CID-10. 20 TABETNIA.DBF Arquivo contendo a tabela de etnias indígenas brasileiras. 11 TABMUN.DBF Arquivo contendo a tabela de municípios. 285 TABOCUP.DBF Arquivo contendo a tabela de ocupações. 171 TABPAIS.DBF Arquivo contendo a tabela de países. 9 TABUF.DBF Arquivo contendo a tabela de Unidades da Federação. 1 Galera coloquei um arquivo zipado contendo as tabelas acima, espero q ajude a galera. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2614 (20071024) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BDE
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no computador e depois instalar o álias, estou tentando fazer esta operação : // Inicializa o ambiente do BDE Check(DBInit(nil)); dá um erro de compilação, qual seria a UNIT que tenho que declarar em USES ?? grato Stainle
[delphi-br] Zeos...
Alguem ja usou o Zeos para conectar o MSSQL no delphi5 Abraço Doretto [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
A unit é a BDE. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01 +Subject: [delphi-br] BDE Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado nocomputador e depois instalar o álias, estou tentando fazer esta operação :// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de compilação, qual seria a UNIT que tenho que declarar emUSES ??gratoStainle _ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Calculos com Horas
Valeu pela dica, as vezes o facil ta na nossa cara e a gente não percebe
- Mensagem original
De: Rubem Nascimento da Rocha [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 16:17:31
Assunto: RE: [delphi-br] Calculos com Horas
Ora, isso é simples demais!
(22 / 60) * 17,00 = 6.23
Qual é a real dificuldade nisso, companheiro? Explique melhor!
Sds.
To: [EMAIL PROTECTED] os.com.brFrom: andersonfurtilhobr3 @yahoo.com. brDate:
Tue, 23 Oct 2007 10:37:48 -0700Subject: [delphi-br] Calculos com Horas
Olá amigos da Lista!Como eu poderia proceder no caso abaixo:Exemplo: O cara
trabalho 00:22:00 (22 minutos) e ele ganha 17,00 a hora.Com eu poderia fazer
esta calculo em delphi ?Desde já antecipo meus agradecimentosAnder sonAbra sua
conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!http://br.mail. yahoo.com/
_ _ _ _ _ _
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas
com Windows Desktop Search GRÁTIS!
http://desktop. msn.com.br/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas sobre o ADO...
Qual o preço da licença do Dbexpress ? Eu baixei o SQLquery 3 e testei. Funciona muito bem tambem !!! Doretto. Abraço - Original Message - From: MiNuTo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 9:45 AM Subject: Re: [delphi-br] Duvidas sobre o ADO... eu uso dbexpress , ouvi falar mau do ado e nao quis encarar... dbexpress +sqldataset+ clientdataset - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 23, 2007 5:09 PM Subject: Re: [delphi-br] Duvidas sobre o ADO... Se você quer um conselho de quem ja passou raiva com ADO, então lá vai. procure outro componente de acesso, da muito problema, em certas máquinas os problemas são piores ainda, (as vezes alguma falha na instalação do MDAC.) se vc quer ter tranquilidade procure usar componentes que acessam o banco de dados de forma direta, sem muitos midlewares.. quando eu usava MSSQL Server eu usava esses componentes http://www.component-store.com/delphi/ nunca tive problema, a distribuição era simples e o desepenho era fantástico. outra opção muito interessante é o SDAC da Corelab www.crlab.com/sdac lembrando que este é apenas um conselho de quem ja passou por esse problema, vc é livre para ouvir ou não, minha intenção é que vc poupe tempo e nao passe pelos problemas que passei ate++ Em 23/10/07, Doretto [EMAIL PROTECTED] escreveu: Boa tarde !!! Estou começando a usar o ADO e não estou conseguindo Incluir, Alterar e Exclui dados no MSSQL c/ delphi5 Gostaria de algumas dicas de como fazer isto c/ os componentes ADO Abraço Doretto [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2613 (20071024) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Calculos com Horas
Valeu amigo, vou pesquisar
- Mensagem original
De: Alexandre Marinho da Silveira [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 16:09:14
Assunto: Re: [delphi-br] Calculos com Horas
Prezado Anderson
O valor de qualquer dado do tipo Data (TDate), Data e hora (TDateTime)
ou hora(TTime) é um tipo Double. Eles são tipos criados a partir de um
tipo Double. Para a parte inteira, vc tem os dias e para a parte
fracionária vc tem as horas. O valor zero de qualquer tipo de TDate,
TDateTime ou TTime é 30 de dezembro de 1889 às 0:00h. Para hora, cada
valor inteiro (1,0) corresponde a 24 horas. Para saber exatamente
quando corresponde cada hora, divida 1 por 24 e para minutos esse valor
por 60. E assim por diante. Daí vc consegue saber exatamente quando da
proporção de 1 (24h) vc terá para calcular. Sabendo as proporções, basta
usar uma regra de 3 simples e vc encontra os resultados que precisa.
Espero ter esclarecido as tuas dúvidas.
Atenciosamente
Alexandre
Anderson Furtilho escreveu:
Olá amigos da Lista!
Como eu poderia proceder no caso abaixo:
Exemplo:
O cara trabalho 00:22:00 (22 minutos) e ele ganha 17,00 a hora.
Com eu poderia fazer esta calculo em delphi ?
Desde já antecipo meus agradecimentos
Anderson
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. yahoo.com/ http://br.mail. yahoo.com/
--
=+=+=+=+=+=+ =+=+=+=+= +=+=+=+=+ =+=+=+=+= +=+=+=+=+ =+=
| Alexandre Marinho da Silveira |
| [EMAIL PROTECTED] com.br |
| Fone: 55(54)3581-2886 Celular: 55(54)8128-5813 |
| Rua Lava Pés, 921/302 |
| CentroPasso Fundo - RS 99010-170 Brasil |
| Analista de sistemas/Suporte/ Programador|
| RHCE nº 809003624209067 |
| ICQ: 1861215|
| Linux User: 328591 |
| Linux machine: 213157 |
=+=+=+=+=+=+ =+=+=+=+= +=+=+=+=+ =+=+=+=+= +=+=+=+=+ =+=
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0
Res: Res: [delphi-br] Calculos com Horas
Valeu amigo vou testar.. obrigado
- Mensagem original
De: Robson [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 15:16:55
Assunto: Res: [delphi-br] Calculos com Horas
Anderson,
uma alternativa é vc trabalhar tipo assim 'base 60', faça umas conversões:
nosso sistema é 100, e o relogio é 60 assim: 100/60 = 1,7 (+/- né)
vc multiplica essa dízima pela qtde de minutos 22*1,667 = 36,666
daí vc multiplica 36,66 * 0,17 sendo (17,00/100) = R$ 6,23.
ficaria +/- assim:
nVal := ((100/60)*nMinutos) *(nValHora/ 100)
Kaputz, Robson
Skype: kaputz_gri
Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu
amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade
Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie
Chaplin .
Keep the Dream Alive
- Mensagem original
De: Anderson Furtilho andersonfurtilhobr3 @yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 23 de Outubro de 2007 14:37:48
Assunto: [delphi-br] Calculos com Horas
Olá amigos da Lista!
Como eu poderia proceder no caso abaixo:
Exemplo:
O cara trabalho 00:22:00 (22 minutos) e ele ganha 17,00 a hora.
Com eu poderia fazer esta calculo em delphi ?
Desde já antecipo meus agradecimentos
Anderson
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Dúvida cruel...
Cara, isso realmente é cruel. Você tem algumas opções: - Criar um novo componente a partir o TBitbtn e programa-lo para receber duas imagens de acordo com a ação. Mas isso deve tornar a coisa meio inviável porque se você depende do TDataset para isso, vai programar um elefante branco. - Criar dois botões. Um para inserir, que quando clicado habilita o botão de salvar, que por sua vez, quando clicado, desabilita-se e habilita o botão de inserir, como qualquer outro aplicativo. - Usar imagens normais ao invés de imagens .ico. Enfim, existem várias soluções, acredito que a que você escolheu é a pior, mas também não sei o porque você a escolheu, então... se quiser explicar melhor talvez possamos ajudar, mas se eu fosse você colocaria dois botões na tela e pronto, além de ficar mais fácil fica mais visível ao usuário, no sentido de: - Cliquei aqui! Opa, aconteceu alguma coisa... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leonardo Cruz Costa - P. M. Quissamã Enviada em: quarta-feira, 24 de outubro de 2007 09:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dúvida cruel... Olá Delphinianos! Sabemos que o TBitBtn e afins não carregam imagens ICO. Esse problema eu já resolvi criando uma rotina de conversão. Só que daí comecei a perceber algo muito, muito incômodo: o fundo das imagens ficam hora transparentes, hora todo branco. Parece alguma coisa com o windows, pois desenvolvendo o sistema em casa as imagens ficam como deveriam, com o fundo transparente. Alguém tem alguma idéia do que é que há com esse velhinho? Outra coisa: quando o usuário clica no botão, o Caption e a imagem dele muda (por exemplo, clicando em Novo, o Caption muda para Salvar e a imagem muda para um disquete). Existem duas maneiras de implementar isso: criando um código para cada botão ou inserindo o código no componente de manipulação do banco de dados (ZTable por exemplo, nos eventos After e Before). O problema é que as duas maneiras são trabalhosas. Um código pra cada botão é retrabalho e um código no componente fica gigante, geralmente manipulando botões que nem foram usados. Alguém usa uma solução diferente? Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Trabalhar com componentes como Array
Pessoal estou com um dúvida aqui. Quando programava em VB lembro que tinha como definir se vários componentes de nome igual seriam um array de componentes. Então a gente poderia definir que componente seria atualizado fazendo +- assim edit(1).text=, ou edit(2).text=, sendo que o numero entre parenteses representava a posição do componente no array. Isso facilitava para atualizações de componentes em massa através de loop. Tem como fazer isso no delphi? Onde eu defino? Vlw. Ps.: no vb bastava criar o segundo componente com o mesmo nome do primeiro para ele perguntar se queria fazer um array ou não. -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com
[delphi-br] Ultima Chamada: Happy Hour dos Desenvolvedores no BorCon 2007 - dia 30/10
Salve Galera Alguns amigos que comentaram que iriam, ainda não confirmaram comigo por email ([EMAIL PROTECTED]). Lembrando que, mesmo quem não for participar do BorCon, mas estiver em São Paulo, terça feira que vem, também está convidado, mas é preciso confirmar comigo até amanha de manha, pois a tarde eu vou fechar nossa reserva no Fiorino. Não se preocupem como chegar no restaurante, vamos todos em caravana após o encerramento do evento na terça feira. Além de nosso guru Walter, mais 3 palestrantes confirmaram a participação em nosso Happy Hour, o George e os dois Marcos ;) Atenciosamente, Bruno Lichot CodeGear Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: Bruno Lichot [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 19 de outubro de 2007 15:41 Para: '[EMAIL PROTECTED]' Cc: 'delphi-br@yahoogrupos.com.br' Assunto: Happy Hour dos Desenvolvedores no BorCon 2007 - dia 30/10 Pessoal, Como estamos marcando, vamos fazer nossa bagunça, na terça feira (30/10). A principio na Pizzaria Fiorino(http://www.fiorino.com.br), pois o lugar é excelente, ao lado do metrô. É barato(Em média eu gasto R$ 16,00 quando vou lá), é rodízio de pizza ultra variado, com pizzas doces, e outros petiscos. Lugar excelente para conversar, comer e beber. Mas independente do lugar, preciso que os amigos que forem participar, me passem um email em PVT para [EMAIL PROTECTED] confirmando a participação para eu poder saber quantas pessoas irão participar e poder reservar lugares. Preciso desta pequena ajuda até o dia 23/10, pois no dia 24/10 vou confirmar a reserva para o dia 30/10 a partir das 19:00. Desde já agradeço a todos Abraços BL [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Trabalhar com componentes como Array
É costume para alguns programadores quererem usar conceitos ou recursos que se encontram em uma determinada linguagem quando passam a usar uma outra linguagem. O Delphi não se assemelha ao VB no que tange o uso de arrays de controles. Ele não trabalha com este conceito. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 16:47:23 -0300Subject: [delphi-br] Trabalhar com componentes como Array Pessoal estou com um dúvida aqui.Quando programava em VB lembro que tinha como definir se vários componentes de nome igual seriam um array de componentes.Então a gente poderia definir que componente seria atualizado fazendo +- assim edit(1).text=, ou edit(2).text=, sendo que o numero entre parenteses representava a posição do componente no array. Isso facilitava para atualizações de componentes em massa através de loop.Tem como fazer isso no delphi? Onde eu defino?Vlw.Ps.: no vb bastava criar o segundo componente com o mesmo nome do primeiro para ele perguntar se queria fazer um array ou não.-- Éderson Cassiano [EMAIL PROTECTED]: edersoncassianoMSN: [EMAIL PROTECTED] _ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Instanciar forms
Galera será que alguém poderia me ajudar. É o seguinte, criei um form e dentro desse form um trichedit, acontece que tenho que instanciar varias vezes esse mesmo form e depois tenho que conseguir passa uma string para qual instancia eu escolher para ser adicionada no trichedit daquela instancia. Alguém sabe como fazer isso ? Seria mais ou menos como o msn faz, abre varias janelas uma para cada sessao de chat e quando chega a mensagem ele sabe em qual janela esta sendo feita a comunicação daquele contato e passa essa informação para a janela correta do contato. Alguém poderia me dar uma luz. Grato Alexandre [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RSS + Delphi 6
Fala Galera! Existem maneiras de usar RSS em nossos programas desenvolvidos em Delphi sem recorrer a componentes de terceiros? Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida cruel...
Vitor, obrigado pela resposta. Mas vamos ao problema: O aplicativo precisa ocupar apenas um pequeno espaço na tela, ao mesmo tempo que um ou outro usuário não enxerga bem (rs, é sério...). Daí preciso usar botões com um bom tamanho, e também com figuras chamativas, para que apareçam e não os faça esquecer que comando faz o quê. Além disso, como o espaço é reduzido (menos de 1/4 da tela), o ideal realmente é diminuir a quantidade de botões, mesmo que isso fique chato de fazer. As imagens que tenho são ICO e transformá-las em bitmap seria um trabalho a mais, além do resultado final não ficar lá essas coisas com a pressa que estou tendo (me restam 12 dias e ainda não comecei os relatórios, que são os mais chatos). Fazer o quê... temos que deixar os clientes satisfeitos... Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Vitor Redes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 4:36 PM Subject: RES: [delphi-br] Dúvida cruel... Cara, isso realmente é cruel. Você tem algumas opções: - Criar um novo componente a partir o TBitbtn e programa-lo para receber duas imagens de acordo com a ação. Mas isso deve tornar a coisa meio inviável porque se você depende do TDataset para isso, vai programar um elefante branco. - Criar dois botões. Um para inserir, que quando clicado habilita o botão de salvar, que por sua vez, quando clicado, desabilita-se e habilita o botão de inserir, como qualquer outro aplicativo. - Usar imagens normais ao invés de imagens .ico. Enfim, existem várias soluções, acredito que a que você escolheu é a pior, mas também não sei o porque você a escolheu, então... se quiser explicar melhor talvez possamos ajudar, mas se eu fosse você colocaria dois botões na tela e pronto, além de ficar mais fácil fica mais visível ao usuário, no sentido de: - Cliquei aqui! Opa, aconteceu alguma coisa... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leonardo Cruz Costa - P. M. Quissamã Enviada em: quarta-feira, 24 de outubro de 2007 09:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dúvida cruel... Olá Delphinianos! Sabemos que o TBitBtn e afins não carregam imagens ICO. Esse problema eu já resolvi criando uma rotina de conversão. Só que daí comecei a perceber algo muito, muito incômodo: o fundo das imagens ficam hora transparentes, hora todo branco. Parece alguma coisa com o windows, pois desenvolvendo o sistema em casa as imagens ficam como deveriam, com o fundo transparente. Alguém tem alguma idéia do que é que há com esse velhinho? Outra coisa: quando o usuário clica no botão, o Caption e a imagem dele muda (por exemplo, clicando em Novo, o Caption muda para Salvar e a imagem muda para um disquete). Existem duas maneiras de implementar isso: criando um código para cada botão ou inserindo o código no componente de manipulação do banco de dados (ZTable por exemplo, nos eventos After e Before). O problema é que as duas maneiras são trabalhosas. Um código pra cada botão é retrabalho e um código no componente fica gigante, geralmente manipulando botões que nem foram usados. Alguém usa uma solução diferente? Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trabalhar com componentes como Array
Opa faz sim, mas vai ser na mão... heheheh... var arrayedit : array of [ 1..10 ] tedit; begin // criar / ou atribuir edits ja existentes ao array.. ai depois arrayedit[1] := edit1; arrayedit[2] := edit2; arrayedit[1].text := 'E-1'; arrayedit[2].text := 'E-2'; // etc end; // dica: com isso vc faz formulario dinamicos, onde com 1 INI eu posso mudar a posição, valor de um edit, sem recompilar a aplicação... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 5:08 PM Subject: RE: [delphi-br] Trabalhar com componentes como Array É costume para alguns programadores quererem usar conceitos ou recursos que se encontram em uma determinada linguagem quando passam a usar uma outra linguagem. O Delphi não se assemelha ao VB no que tange o uso de arrays de controles. Ele não trabalha com este conceito. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 16:47:23 -0300Subject: [delphi-br] Trabalhar com componentes como Array Pessoal estou com um dúvida aqui.Quando programava em VB lembro que tinha como definir se vários componentes de nome igual seriam um array de componentes.Então a gente poderia definir que componente seria atualizado fazendo +- assim edit(1).text=, ou edit(2).text=, sendo que o numero entre parenteses representava a posição do componente no array. Isso facilitava para atualizações de componentes em massa através de loop.Tem como fazer isso no delphi? Onde eu defino?Vlw.Ps.: no vb bastava criar o segundo componente com o mesmo nome do primeiro para ele perguntar se queria fazer um array ou não.-- Éderson Cassiano [EMAIL PROTECTED]: edersoncassianoMSN: [EMAIL PROTECTED] __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
eu imaginei que fosse, coloquei e não funcionou, veja o codigo :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, BDE;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
AName, ADriver, APath : String;
begin
AName := 'stainle';
ADriver := 'STANDARD';
APath := 'c:\remoto\dados';
// Inicializa o ambiente do BDE
Check(DBInit(nil));
// Adiciona Alias ao arquivo de configuração do BDE
Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
APath), True));
Check(DBIExit);
end;
end.
quando chega no Check ele diz : undeclared identifier
grato
Stainle
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
A unit é a BDE.
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01
+Subject: [delphi-br] BDE
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado
nocomputador e depois instalar o álias, estou tentando fazer esta operação
:// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de compilação,
qual seria a UNIT que tenho que declarar emUSES ??gratoStainle
__
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
DbInit() é da unit BDE sim, mas a função Check() é da unit DBTables. Chequei no
próprio help do Delphi.
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:07:35
-0300Subject: RE: [delphi-br] BDE
eu imaginei que fosse, coloquei e não funcionou, veja o codigo :unit
Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,StdCtrls, BDE;typeTForm1 = class(TForm)Button1:
TButton;procedure Button1Click(Sender: TObject);private{ Private declarations
}public{ Public declarations }end;varForm1: TForm1;implementation{$R
*.DFM}procedure TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));// Adiciona
Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil, PChar(AName),
PChar(ADriver), PChar('Path:', + APath), True));Check(DBIExit);end;end.quando
chega no Check ele diz : undeclared identifiergratoStainleRubem Nascimento da
Rocha [EMAIL PROTECTED] escreveu:A unit é a BDE.Sds.To: [EMAIL PROTECTED]:
[EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01 +Subject: [delphi-br]
BDEUtilizando Delphi 5, gostaria se saber se já existe o BDE instalado
nocomputador e depois instalar o álias, estou tentando fazer esta operação
:// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de compilação,
qual seria a UNIT que tenho que declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao
Messenger!http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tamanho máximo para arquivo XML !!!!
Alguém sabe o tamanho máximo (KB ou MB) para um arquivo XML???
Re: [delphi-br] Base de Dados do CID10
Isso quer dizer um sim?? Bom de qualquer maneira coloquei no grupo.. Ta em Arquivos/Utilitários Abs Tiago - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:33 PM Subject: Res: [delphi-br] Base de Dados do CID10 Valeu Tiago!! Me equivoquei... :-( Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Tiago Vendemiatti [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 13:23:27 Assunto: Re: [delphi-br] Base de Dados do CID10 Eu tenho... Coloco no grupo? Abs Tiago - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 1:21 PM Subject: Re: [delphi-br] Base de Dados do CID10 Caro amigo luis, corrigindo o que vc mensionou...o correto é Classificação Internacional de Doenças o complemento 10 - corresponde a décima revisão. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:11 PM Subject: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Olá pessoal / Tiago Não precisa enviar ou colocar no grupo. Acessando o site http://w3.datasus.gov.br/DATASUS/datasus.php?area=361A3B372C2D2356E3FG16HIJd3L1M0NVAba=3VInclude=../site/din_sist.phpVSis=1VCoit=2356VI=Arquivos, dá pra pegar em formato DBF. Se o link não funcionar, é só acessar o site www.datasus.gov.br, clica em Sistemas e Aplicativos, Cadastro Nacional, CID-10 e, finalmente, Arquivos. Daí é só clicar no link para baixar o arquivo. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 1:23 PM Subject: Re: [delphi-br] Base de Dados do CID10 Eu tenho... Coloco no grupo? Abs Tiago - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 1:21 PM Subject: Re: [delphi-br] Base de Dados do CID10 Caro amigo luis, corrigindo o que vc mensionou...o correto é Classificação Internacional de Doenças o complemento 10 - corresponde a décima revisão. Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:11 PM Subject: Res: [delphi-br] Base de Dados do CID10 CID - Código Internacional de Doenças Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 24 de Outubro de 2007 12:00:12 Assunto: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Relatorio com FastReport
Não sei explicar exatamente o motivo, parece que ao chamar sistema pelo
primeiro exe ele nao armazena o caminho.
a unica coisa que posso te sugerir é usar a caminho completo para abrir o
relatório
frxReport.LoadFromFile( ExtractFilePath( Application.ExeName ) +
'Relatorios\Rel.fr3' );
em meu sistemas tenho uma variável global onde salvo o path do exe, assim
sempre que preciso ta lá.
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED] escreveu:
Olá Eduardo!
Segue o codigo:
frxReport.LoadFromFile('.\Relatorios\Rel.fr3');
Em 24/10/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
escreveu:
Olá Samuel, no seu sistema, como vc carrega os arquivos dos relatórios?
mostra o codigo ae.. do FrxReport.LoadFromFile..
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED]samuelbasso%40yahoo.com.br
samuelbasso%40yahoo.com.br
escreveu:
Bom dia Pessoal!
Fiz um executavel de atualizacao pelo qual todas estaçoes ao acessar
ele
copia ou atualiza o sistema principal para a maquina local e executa o
sistema principal até ai funciona perfeitamente, o problema que ocorre
é
nos
relatorios eu uso fast report e tenho uma pasta onde se encontra todos
relatorios e executando o sistema principal na maquina ele funciona
perfeitamente os relatorios mas ao abrir o executavel principal
atraves
do
executavel de atualizacao ele nao encontra os relatorios, nao entendi
o
motivo eu abro o executavel principal pelo seguinte comando
WinExec(PChar('C:\Sistema.exe'),SW_SHOWMAXIMIZED); ai nao funciona mas
se
eu
executar o sistema.exe direto no C: ai funciona...Gostaria de
saber
se
tem alguma ideia senao vou ter que ver alguma maneira diferente para
isto.lembrando que os relatorios esta em uma pasta junto com o
executavel..
Grato.
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%
40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Samuel M. Basso
Tel: (54) 3452-9126
Cel: (54) 8135-3723
E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com
MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador não
declarado, será que não falta mais algum; outra coisa como você encontrou que
Check() é o do DBTables ?
abraços
Stainle
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
DbInit() é da unit BDE sim, mas a função Check() é da unit DBTables. Chequei no
próprio help do Delphi.
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:07:35
-0300Subject: RE: [delphi-br] BDE
eu imaginei que fosse, coloquei e não funcionou, veja o codigo :unit
Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,StdCtrls, BDE;typeTForm1 = class(TForm)Button1:
TButton;procedure Button1Click(Sender: TObject);private{ Private declarations
}public{ Public declarations }end;varForm1: TForm1;implementation{$R
*.DFM}procedure TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));// Adiciona
Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil, PChar(AName),
PChar(ADriver), PChar('Path:', + APath), True));Check(DBIExit);end;end.quando
chega no Check ele diz : undeclared identifiergratoStainleRubem Nascimento da
Rocha [EMAIL PROTECTED] escreveu:A unit é a BDE.Sds.To: [EMAIL PROTECTED]:
[EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01 +Subject:
[delphi-br] BDEUtilizando Delphi 5, gostaria se saber se já existe o BDE
instalado nocomputador e depois instalar o álias, estou tentando fazer esta
operação :// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de
compilação, qual seria a UNIT que tenho que declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao
Messenger!http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Rs... CID10 é uma tabela de códigos que o médico informa em, por exemplo, um formulário CAT (Comunicado de Acidente de Trabalho). Esses códigos são patologias, indispensável para que o CAT siga a diante. Aqui na Prefeitura, por exemplo, os médicos sempre esquecem de informar, atrasando o envio do CAT. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 24, 2007 12:00 PM Subject: Re: [delphi-br] Base de Dados do CID10 Gente por favor iluminem minha ignorância, oque é CID10?? Em 24/10/07, Leonardo Cruz Costa - P. M. Quissamã [EMAIL PROTECTED] escreveu: Puxa, informações do CID10 sempre serão bem-vindas. Seria muito útil pra mim também. Abraços. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, October 24, 2007 8:19 AM Subject: Re: [delphi-br] Base de Dados do CID10 Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] luciano.angelini%40uol.com.br ou [EMAIL PROTECTED] lucianoangelini%40msn.com Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] lucianoreis%40netsite.com.br mailto: lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.15.8/1088 - Release Date: 23/10/2007 13:26 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
Olá, Nao sei se entendi... Entao, algumas opcoes. a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE? R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE Administrator. b) Voce, ao iniciar o seu sistema no computador de um cliente, quer verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema instale? E depois verifique se o Alias ja foi criado, e nao havendo, que se crie... é isso? R: tenho uma rotina que faz isso num sistema B antigo. Se for isso te passo o codigo fonte (ainda vou procurar), pra voce implementar. Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra usar BDE principalmente se for em rede, mas tudo bem. Abraco. Em 24/10/07, stainle2003 [EMAIL PROTECTED] escreveu: Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no computador e depois instalar o álias, estou tentando fazer esta operação : // Inicializa o ambiente do BDE Check(DBInit(nil)); dá um erro de compilação, qual seria a UNIT que tenho que declarar em USES ?? grato Stainle [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
o que eu quero é instalar o aliás por programa, o BDE já deve estar na máquina;
estou usando o codigo :
var
AName, ADriver, APath : String;
begin
AName := 'stainle';
ADriver := 'STANDARD';
APath := 'c:\remoto\dados';
// Inicializa o ambiente do BDE
Check(DBInit(nil));
// Adiciona Alias ao arquivo de configuração do BDE
Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
APath), True));
Check(DBIExit);
end;
para adicionar o aliás e está dando erro na compilação, não sei qual é CLASSE
que devo declarar em USES, pois dá erro em DBInit; passe o teu código que me
será útil, uso o BDE porque estou trabalhando com PARADOX
grato
Stainle
Sergio Eurico [EMAIL PROTECTED] escreveu:
Olá,
Nao sei se entendi... Entao, algumas opcoes.
a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE?
R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE
Administrator.
b) Voce, ao iniciar o seu sistema no computador de um cliente, quer
verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema
instale? E depois verifique se o Alias ja foi criado, e nao havendo, que se
crie... é isso?
R: tenho uma rotina que faz isso num sistema B antigo. Se for isso
te passo o codigo fonte (ainda vou procurar), pra voce implementar.
Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra usar
BDE principalmente se for em rede, mas tudo bem.
Abraco.
Em 24/10/07, stainle2003 [EMAIL PROTECTED] escreveu:
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no
computador e depois instalar o álias, estou tentando fazer esta
operação :
// Inicializa o ambiente do BDE
Check(DBInit(nil));
dá um erro de compilação, qual seria a UNIT que tenho que declarar em
USES ??
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
Como eu achei sobre a função Check()? Ora, muito simples! Como eu mencionei
onde na mensagem anterior, eu achei no help do Delphi! No help, ele diz a qual
unit pertence a função. Só fiz chamar o help, selecionei a guia(e não aba ou
orelha!) Índice(ou Index) e digitei Check. Pronto! Lá estava uma entrada com o
texto 'Check procedure'.
Quanto ao DBInit(), acrescento o seguinte: quando mencionamos a unit BDE na
cláusula uses de uma unit, quer seja na seção implementation ou interface, esta
não é exatamente uma unit, e sim uma referência mapeada(um alias - que não tem
nada haver com os aliases do BDE!) no seu projeto Delphi (Menu Project|Options,
guia Directories/Conditionals, caixa Aliases).
Estes aliases, quando detectados na seção uses de uma unit, na verdade farão
referência a uma ou mais units. Se vc, por exemplo, consultar os aliases de
units em sua aplicação, poderá se deparar com algo do tipo:
DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade fará
referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs.
Resumindo, agora vc já sabe onde encontrar a função DBInit(). Mais bem
explicado do que isso, meu amigo, pode esquecer a área e tentar corte e
costura! ;-)
Sds.,
Rubem Rocha
Manaus, AM
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:15:24
-0300Subject: RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador não
declarado, será que não falta mais algum; outra coisa como você encontrou que
Check() é o do DBTables ?abraçosStainleRubem Nascimento da Rocha [EMAIL
PROTECTED] escreveu:DbInit() é da unit BDE sim, mas a função Check() é da unit
DBTables. Chequei no próprio help do Delphi.Sds.To: [EMAIL PROTECTED]: [EMAIL
PROTECTED]: Wed, 24 Oct 2007 17:07:35 -0300Subject: RE: [delphi-br] BDEeu
imaginei que fosse, coloquei e não funcionou, veja o codigo :unit
Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,StdCtrls, BDE;typeTForm1 = class(TForm)Button1:
TButton;procedure Button1Click(Sender: TObject);private{ Private declarations
}public{ Public declarations }end;varForm1: TForm1;implementation{$R
*.DFM}procedure TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));// Adiciona
Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil, PChar(AName),
PChar(ADriver), PChar('Path:', + APath), True));Check(DBIExit);end;end.quando
chega no Check ele diz : undeclared identifiergratoStainleRubem Nascimento da
Rocha [EMAIL PROTECTED] escreveu:A unit é a BDE.Sds.To: [EMAIL PROTECTED]:
[EMAIL PROTECTED]: Wed, 24 Oct 2007 17:54:01 +Subject:[delphi-br]
BDEUtilizando Delphi 5, gostaria se saber se já existe o BDE instalado
nocomputador e depois instalar o álias, estou tentando fazer esta operação
:// Inicializa o ambiente do BDECheck(DBInit(nil));dá um erro de compilação,
qual seria a UNIT que tenho que declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao
Messenger!http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__Receba GRÁTIS as
mensagens do Messenger no seu celular quando você estiver offline. Conheça o
MSN Mobile!http://mobile.live.com/signup/signup2.aspx?lc=pt-br[As partes desta
mensagem que não continham texto foram removidas]Abra sua conta no Yahoo! Mail,
o único sem limite de espaço para armazenamento! [As partes desta mensagem que
não continham texto foram removidas]
_
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
Ok... rsrsrs
Escrevi esta funcao em 1999, então, pode haver forma mais pratica de fazer.
{ Aqui, passo o nome do alias para ser criado, apontando para o diretorio do
.Exe, com base PARADOX. }
Uso: AliasCreate('studio');
{ --
}
function AliasCreate(AliasName:String): Boolean;
begin
if not Session.IsAlias(AliasName) then
begin
Session.AddStandardAlias(AliasName,ExtractFilePath(
application.ExeName),'PARADOX');
Result := True;
end
else
begin
Result := False;
end;
end;
{ --
}
Outra versao, mas aqui, apaga o alias antes de criá-lo, caso ja exista.
Uso: AliasCreate2('studio',dirdest);
{ --
}
function AliasCreate2(AliasName, caminho :String): Boolean;
begin
with session do begin
if IsAlias(AliasName) then begin
DeleteAlias( aliasName );
SaveConfigFile;
end;
AddStandardAlias(AliasName,caminho,'PARADOX');
SaveConfigFile;
end;
Result := True;
end
***
No help do Delphi, achei o seguinte exemplo.
This example creates an alias for an InterBase database server:
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
Abraco.
Sergio Eurico.
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu:
o que eu quero é instalar o aliás por programa, o BDE já deve estar na
máquina; estou usando o codigo :
var
AName, ADriver, APath : String;
begin
AName := 'stainle';
ADriver := 'STANDARD';
APath := 'c:\remoto\dados';
// Inicializa o ambiente do BDE
Check(DBInit(nil));
// Adiciona Alias ao arquivo de configuração do BDE
Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
APath), True));
Check(DBIExit);
end;
para adicionar o aliás e está dando erro na compilação, não sei qual é
CLASSE que devo declarar em USES, pois dá erro em DBInit; passe o teu código
que me será útil, uso o BDE porque estou trabalhando com PARADOX
grato
Stainle
Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.com escreveu:
Olá,
Nao sei se entendi... Entao, algumas opcoes.
a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE?
R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE
Administrator.
b) Voce, ao iniciar o seu sistema no computador de um cliente, quer
verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema
instale? E depois verifique se o Alias ja foi criado, e nao havendo, que
se
crie... é isso?
R: tenho uma rotina que faz isso num sistema B antigo. Se for isso
te passo o codigo fonte (ainda vou procurar), pra voce implementar.
Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra usar
BDE principalmente se for em rede, mas tudo bem.
Abraco.
Em 24/10/07, stainle2003 [EMAIL PROTECTED]stainle2003%40yahoo.com.br
escreveu:
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no
computador e depois instalar o álias, estou tentando fazer esta
operação :
// Inicializa o ambiente do BDE
Check(DBInit(nil));
dá um erro de compilação, qual seria a UNIT que tenho que declarar em
USES ??
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] BDE
fique tranquilo amigo, não precisa ofender também né; tenho 33 anos na
profissão e se tivesse que ter desistido já teria feito isto à muito tempo,
posso ter dificuldade com o DELPHI mas não desisto, o problema é que fui no
HELP e vi o CHECK mas não achei o DBInit, porisso lhe perguntei, aliás nem
colocando o BDE eu consegui compilar, mas lhe sou muito grato pelas
informações, que DEUS te abençõe.
abraços
Stainle
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Como eu achei sobre a função Check()? Ora, muito simples! Como eu mencionei
onde na mensagem anterior, eu achei no help do Delphi! No help, ele diz a qual
unit pertence a função. Só fiz chamar o help, selecionei a guia(e não aba ou
orelha!) Índice(ou Index) e digitei Check. Pronto! Lá estava uma entrada com o
texto 'Check procedure'.
Quanto ao DBInit(), acrescento o seguinte: quando mencionamos a unit BDE na
cláusula uses de uma unit, quer seja na seção implementation ou interface, esta
não é exatamente uma unit, e sim uma referência mapeada(um alias - que não tem
nada haver com os aliases do BDE!) no seu projeto Delphi (Menu Project|Options,
guia Directories/Conditionals, caixa Aliases).
Estes aliases, quando detectados na seção uses de uma unit, na verdade farão
referência a uma ou mais units. Se vc, por exemplo, consultar os aliases de
units em sua aplicação, poderá se deparar com algo do tipo:
DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade fará
referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs.
Resumindo, agora vc já sabe onde encontrar a função DBInit(). Mais bem
explicado do que isso, meu amigo, pode esquecer a área e tentar corte e
costura! ;-)
Sds.,
Rubem Rocha
Manaus, AM
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007 17:15:24
-0300Subject: RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador não
declarado, será que não falta mais algum; outra coisa como você encontrou que
Check() é o do DBTables ?abraçosStainleRubem Nascimento da Rocha [EMAIL
PROTECTED] escreveu:DbInit() é da unit BDE sim, mas a função Check() é da unit
DBTables. Chequei no próprio help do Delphi.Sds.To: [EMAIL PROTECTED]: [EMAIL
PROTECTED]: Wed, 24 Oct 2007 17:07:35 -0300Subject: RE: [delphi-br] BDEeu
imaginei que fosse, coloquei e não funcionou, veja o codigo :unit
Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,StdCtrls, BDE;typeTForm1 = class(TForm)Button1:
TButton;procedure Button1Click(Sender: TObject);private{ Private declarations
}public{ Public declarations }end;varForm1: TForm1;implementation{$R
*.DFM}procedure TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));//
Adiciona Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil,
PChar(AName), PChar(ADriver), PChar('Path:', + APath),
True));Check(DBIExit);end;end.quando chega no Check ele diz : undeclared
identifiergratoStainleRubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:A
unit é a BDE.Sds.To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 24 Oct 2007
17:54:01 +Subject:[delphi-br] BDEUtilizando Delphi 5, gostaria se saber se
já existe o BDE instalado nocomputador e depois instalar o álias, estou
tentando fazer esta operação :// Inicializa o ambiente do
BDECheck(DBInit(nil));dá um erro de compilação, qual seria a UNIT que tenho que
declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao
Messenger!http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__Receba GRÁTIS as
mensagens do Messenger no seu celular quando você estiver offline. Conheça o
MSN Mobile!http://mobile.live.com/signup/signup2.aspx?lc=pt-br[As partes desta
mensagem que não continham texto foram removidas]Abra sua conta no Yahoo! Mail,
o único sem limite de espaço para armazenamento! [As partes desta mensagem que
não continham texto foram removidas]
__
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
Nivaldo,
Pra que voce quer inicializar o BDE? Voce está verificando se ele ta
instalado, é isso?
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu:
fique tranquilo amigo, não precisa ofender também né; tenho 33 anos na
profissão e se tivesse que ter desistido já teria feito isto à muito tempo,
posso ter dificuldade com o DELPHI mas não desisto, o problema é que fui no
HELP e vi o CHECK mas não achei o DBInit, porisso lhe perguntei, aliás nem
colocando o BDE eu consegui compilar, mas lhe sou muito grato pelas
informações, que DEUS te abençõe.
abraços
Stainle
Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com
escreveu:
Como eu achei sobre a função Check()? Ora, muito simples! Como eu
mencionei onde na mensagem anterior, eu achei no help do Delphi! No help,
ele diz a qual unit pertence a função. Só fiz chamar o help, selecionei a
guia(e não aba ou orelha!) Índice(ou Index) e digitei Check. Pronto! Lá
estava uma entrada com o texto 'Check procedure'.
Quanto ao DBInit(), acrescento o seguinte: quando mencionamos a unit BDE
na cláusula uses de uma unit, quer seja na seção implementation ou
interface, esta não é exatamente uma unit, e sim uma referência mapeada(um
alias - que não tem nada haver com os aliases do BDE!) no seu projeto Delphi
(Menu Project|Options, guia Directories/Conditionals, caixa Aliases).
Estes aliases, quando detectados na seção uses de uma unit, na verdade
farão referência a uma ou mais units. Se vc, por exemplo, consultar os
aliases de units em sua aplicação, poderá se deparar com algo do tipo:
DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade
fará referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs.
Resumindo, agora vc já sabe onde encontrar a função DBInit(). Mais bem
explicado do que isso, meu amigo, pode esquecer a área e tentar corte e
costura! ;-)
Sds.,
Rubem Rocha
Manaus, AM
To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:15:24 -0300Subject: RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador
não declarado, será que não falta mais algum; outra coisa como você
encontrou que Check() é o do DBTables ?abraçosStainleRubem Nascimento da
Rocha [EMAIL PROTECTED] djpardalrocha%40hotmail.com
escreveu:DbInit() é da unit BDE sim, mas a função Check() é da unit
DBTables. Chequei no próprio help do Delphi.Sds.To:
[EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:07:35 -0300Subject: RE: [delphi-br] BDEeu imaginei que fosse,
coloquei e não funcionou, veja o codigo :unit Unit1;interfaceusesWindows,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,
BDE;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender:
TObject);private{ Private declarations }public{ Public declarations
}end;varForm1: TForm1;implementation{$R *.DFM}procedure
TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));//
Adiciona Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil,
PChar(AName), PChar(ADriver), PChar('Path:', + APath),
True));Check(DBIExit);end;end.quando chega no Check ele diz : undeclared
identifiergratoStainleRubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.com
escreveu:A unit é a BDE.Sds.To: [EMAIL
PROTECTED]delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:54:01 +Subject:[delphi-br] BDEUtilizando Delphi 5, gostaria se
saber se já existe o BDE instalado nocomputador e depois instalar o álias,
estou tentando fazer esta operação :// Inicializa o ambiente do
BDECheck(DBInit(nil));dá um erro de compilação, qual seria a UNIT que tenho
que declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__Receba GRÁTIS as
mensagens do Messenger no seu celular quando você estiver offline. Conheça o
MSN Mobile!http://mobile.live.com/signup/signup2.aspx?lc=pt-br[As partes
desta mensagem que não continham texto foram removidas]Abra sua conta no
Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes
desta mensagem que não continham texto foram removidas]
__
Veja mapas e encontre as melhores rotas para
Re: [delphi-br] BDE
obrigado, vou testar.
abraços
Stainle
Sergio Eurico [EMAIL PROTECTED] escreveu:
Ok... rsrsrs
Escrevi esta funcao em 1999, então, pode haver forma mais pratica de fazer.
{ Aqui, passo o nome do alias para ser criado, apontando para o diretorio do
.Exe, com base PARADOX. }
Uso: AliasCreate('studio');
{ --
}
function AliasCreate(AliasName:String): Boolean;
begin
if not Session.IsAlias(AliasName) then
begin
Session.AddStandardAlias(AliasName,ExtractFilePath(
application.ExeName),'PARADOX');
Result := True;
end
else
begin
Result := False;
end;
end;
{ --
}
Outra versao, mas aqui, apaga o alias antes de criá-lo, caso ja exista.
Uso: AliasCreate2('studio',dirdest);
{ --
}
function AliasCreate2(AliasName, caminho :String): Boolean;
begin
with session do begin
if IsAlias(AliasName) then begin
DeleteAlias( aliasName );
SaveConfigFile;
end;
AddStandardAlias(AliasName,caminho,'PARADOX');
SaveConfigFile;
end;
Result := True;
end
***
No help do Delphi, achei o seguinte exemplo.
This example creates an alias for an InterBase database server:
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
Abraco.
Sergio Eurico.
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu:
o que eu quero é instalar o aliás por programa, o BDE já deve estar na
máquina; estou usando o codigo :
var
AName, ADriver, APath : String;
begin
AName := 'stainle';
ADriver := 'STANDARD';
APath := 'c:\remoto\dados';
// Inicializa o ambiente do BDE
Check(DBInit(nil));
// Adiciona Alias ao arquivo de configuração do BDE
Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
APath), True));
Check(DBIExit);
end;
para adicionar o aliás e está dando erro na compilação, não sei qual é
CLASSE que devo declarar em USES, pois dá erro em DBInit; passe o teu código
que me será útil, uso o BDE porque estou trabalhando com PARADOX
grato
Stainle
Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.com escreveu:
Olá,
Nao sei se entendi... Entao, algumas opcoes.
a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE?
R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE
Administrator.
b) Voce, ao iniciar o seu sistema no computador de um cliente, quer
verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema
instale? E depois verifique se o Alias ja foi criado, e nao havendo, que
se
crie... é isso?
R: tenho uma rotina que faz isso num sistema B antigo. Se for isso
te passo o codigo fonte (ainda vou procurar), pra voce implementar.
Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra usar
BDE principalmente se for em rede, mas tudo bem.
Abraco.
Em 24/10/07, stainle2003 [EMAIL PROTECTED]stainle2003%40yahoo.com.br
escreveu:
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no
computador e depois instalar o álias, estou tentando fazer esta
operação :
// Inicializa o ambiente do BDE
Check(DBInit(nil));
dá um erro de compilação, qual seria a UNIT que tenho que declarar em
USES ??
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
Rubem Nascimento da Rocha wrote: DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade fará referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs. É o contrário. O alias é um recurso utilizado para compilar código antigo, aonde, no exemplo supra citado, DbiTypes, DbiProcs ou DbiErrs são convertidos para bde. [...] tentar corte e costura! ;-) Salve as listas de discussão, desta forma poderemos pensar três vezes antes de trocar nosso micro por uma máquina de costura e nossa caixinha de CDs de backup por linha. -- Joao Morais
Re: [delphi-br] Relatorio com FastReport
Eduardo Silva dos Santos wrote:
Não sei explicar exatamente o motivo, parece que ao chamar sistema pelo
primeiro exe ele nao armazena o caminho.
a unica coisa que posso te sugerir é usar a caminho completo para abrir o
relatório
É o ideal. Path relativo é problema, pois ninguém garante que, por
exemplo, o usuário não vá botar a mão no atalho e alterar a pasta inicial.
--
Joao Morais
frxReport.LoadFromFile( ExtractFilePath( Application.ExeName ) +
'Relatorios\Rel.fr3' );
em meu sistemas tenho uma variável global onde salvo o path do exe, assim
sempre que preciso ta lá.
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED] escreveu:
Olá Eduardo!
Segue o codigo:
frxReport.LoadFromFile('.\Relatorios\Rel.fr3');
Em 24/10/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
escreveu:
Olá Samuel, no seu sistema, como vc carrega os arquivos dos relatórios?
mostra o codigo ae.. do FrxReport.LoadFromFile..
Em 24/10/07, Samuel M. Basso [EMAIL PROTECTED]samuelbasso%40yahoo.com.br
samuelbasso%40yahoo.com.br
escreveu:
Bom dia Pessoal!
Fiz um executavel de atualizacao pelo qual todas estaçoes ao acessar
ele
copia ou atualiza o sistema principal para a maquina local e executa o
sistema principal até ai funciona perfeitamente, o problema que ocorre
é
nos
relatorios eu uso fast report e tenho uma pasta onde se encontra todos
relatorios e executando o sistema principal na maquina ele funciona
perfeitamente os relatorios mas ao abrir o executavel principal
atraves
do
executavel de atualizacao ele nao encontra os relatorios, nao entendi
o
motivo eu abro o executavel principal pelo seguinte comando
WinExec(PChar('C:\Sistema.exe'),SW_SHOWMAXIMIZED); ai nao funciona mas
se
eu
executar o sistema.exe direto no C: ai funciona...Gostaria de
saber
se
tem alguma ideia senao vou ter que ver alguma maneira diferente para
isto.lembrando que os relatorios esta em uma pasta junto com o
executavel..
Grato.
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%
40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente,
Samuel M. Basso
Tel: (54) 3452-9126
Cel: (54) 8135-3723
E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com
MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
o que eu quero é se existir o BDE instalado na máquina que irá receber o
sistema; eu quero instalar um álias, só isso.
caso não tenha o BDE pelo InstallShield eu faço a instalação do BDE e também
do álias.
abraços.
Stainle
Sergio Eurico [EMAIL PROTECTED] escreveu:
Nivaldo,
Pra que voce quer inicializar o BDE? Voce está verificando se ele ta
instalado, é isso?
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu:
fique tranquilo amigo, não precisa ofender também né; tenho 33 anos na
profissão e se tivesse que ter desistido já teria feito isto à muito tempo,
posso ter dificuldade com o DELPHI mas não desisto, o problema é que fui no
HELP e vi o CHECK mas não achei o DBInit, porisso lhe perguntei, aliás nem
colocando o BDE eu consegui compilar, mas lhe sou muito grato pelas
informações, que DEUS te abençõe.
abraços
Stainle
Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com
escreveu:
Como eu achei sobre a função Check()? Ora, muito simples! Como eu
mencionei onde na mensagem anterior, eu achei no help do Delphi! No help,
ele diz a qual unit pertence a função. Só fiz chamar o help, selecionei a
guia(e não aba ou orelha!) Índice(ou Index) e digitei Check. Pronto! Lá
estava uma entrada com o texto 'Check procedure'.
Quanto ao DBInit(), acrescento o seguinte: quando mencionamos a unit BDE
na cláusula uses de uma unit, quer seja na seção implementation ou
interface, esta não é exatamente uma unit, e sim uma referência mapeada(um
alias - que não tem nada haver com os aliases do BDE!) no seu projeto Delphi
(Menu Project|Options, guia Directories/Conditionals, caixa Aliases).
Estes aliases, quando detectados na seção uses de uma unit, na verdade
farão referência a uma ou mais units. Se vc, por exemplo, consultar os
aliases de units em sua aplicação, poderá se deparar com algo do tipo:
DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE
Ou seja, o alias BDE, colocado na cláusula uses de uma unit, na verdade
fará referência às units reais de nomes DbiTypes, DbiProcs e DbiErrs.
Resumindo, agora vc já sabe onde encontrar a função DBInit(). Mais bem
explicado do que isso, meu amigo, pode esquecer a área e tentar corte e
costura! ;-)
Sds.,
Rubem Rocha
Manaus, AM
To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:15:24 -0300Subject: RE: [delphi-br] BDE
coloquei o DBTables e agora ele diz que o DBInit é que é o identificador
não declarado, será que não falta mais algum; outra coisa como você
encontrou que Check() é o do DBTables ?abraçosStainleRubem Nascimento da
Rocha [EMAIL PROTECTED] djpardalrocha%40hotmail.com
escreveu:DbInit() é da unit BDE sim, mas a função Check() é da unit
DBTables. Chequei no próprio help do Delphi.Sds.To:
[EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:07:35 -0300Subject: RE: [delphi-br] BDEeu imaginei que fosse,
coloquei e não funcionou, veja o codigo :unit Unit1;interfaceusesWindows,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,
BDE;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender:
TObject);private{ Private declarations }public{ Public declarations
}end;varForm1: TForm1;implementation{$R *.DFM}procedure
TForm1.Button1Click(Sender: TObject);varAName, ADriver, APath :
String;beginAName := 'stainle';ADriver := 'STANDARD';APath :=
'c:\remoto\dados';// Inicializa o ambiente do BDECheck(DBInit(nil));//
Adiciona Alias ao arquivo de configuração do BDECheck(DBIAddAlias(nil,
PChar(AName), PChar(ADriver), PChar('Path:', + APath),
True));Check(DBIExit);end;end.quando chega no Check ele diz : undeclared
identifiergratoStainleRubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.com
escreveu:A unit é a BDE.Sds.To: [EMAIL
PROTECTED]delphi-br%40yahoogrupos.com.brFrom:
[EMAIL PROTECTED] stainle2003%40yahoo.com.brDate: Wed, 24 Oct
2007 17:54:01 +Subject:[delphi-br] BDEUtilizando Delphi 5, gostaria se
saber se já existe o BDE instalado nocomputador e depois instalar o álias,
estou tentando fazer esta operação :// Inicializa o ambiente do
BDECheck(DBInit(nil));dá um erro de compilação, qual seria a UNIT que tenho
que declarar emUSES ??gratoStainle
__Conheça o Windows
Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx[As partes desta mensagem que não
continham texto foram removidas]Abra sua conta no Yahoo! Mail, o único sem
limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__Receba GRÁTIS as
mensagens do Messenger no seu celular quando você estiver offline. Conheça o
MSN Mobile!http://mobile.live.com/signup/signup2.aspx?lc=pt-br[As partes
desta mensagem que não
Re: [delphi-br] BDE
Para testar se o BDE está instalado, eu faria assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
// dbiInit requer uses BDE; uma linha abaixo de implementation
if (dbiInit(nil) = 0) then label3.caption := 'BDE está instalado'
else label3.caption := 'BDE não está instalado';
end;
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED] escreveu:
obrigado, vou testar.
abraços
Stainle
Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.com escreveu:
Ok... rsrsrs
Escrevi esta funcao em 1999, então, pode haver forma mais pratica de
fazer.
{ Aqui, passo o nome do alias para ser criado, apontando para o diretorio
do
.Exe, com base PARADOX. }
Uso: AliasCreate('studio');
{ --
}
function AliasCreate(AliasName:String): Boolean;
begin
if not Session.IsAlias(AliasName) then
begin
Session.AddStandardAlias(AliasName,ExtractFilePath(
application.ExeName),'PARADOX');
Result := True;
end
else
begin
Result := False;
end;
end;
{ --
}
Outra versao, mas aqui, apaga o alias antes de criá-lo, caso ja exista.
Uso: AliasCreate2('studio',dirdest);
{ --
}
function AliasCreate2(AliasName, caminho :String): Boolean;
begin
with session do begin
if IsAlias(AliasName) then begin
DeleteAlias( aliasName );
SaveConfigFile;
end;
AddStandardAlias(AliasName,caminho,'PARADOX');
SaveConfigFile;
end;
Result := True;
end
***
No help do Delphi, achei o seguinte exemplo.
This example creates an alias for an InterBase database server:
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB');
Add('USER NAME=MYNAME');
end;
Session1.AddAlias('NewIBAlias', 'INTRBASE', MyList);
finally
MyList.Free;
end;
end;
Abraco.
Sergio Eurico.
Em 24/10/07, Nivaldo Stainle [EMAIL PROTECTED]stainle2003%40yahoo.com.br
escreveu:
o que eu quero é instalar o aliás por programa, o BDE já deve estar na
máquina; estou usando o codigo :
var
AName, ADriver, APath : String;
begin
AName := 'stainle';
ADriver := 'STANDARD';
APath := 'c:\remoto\dados';
// Inicializa o ambiente do BDE
Check(DBInit(nil));
// Adiciona Alias ao arquivo de configuração do BDE
Check(DBIAddAlias(nil, PChar(AName), PChar(ADriver), PChar('Path:', +
APath), True));
Check(DBIExit);
end;
para adicionar o aliás e está dando erro na compilação, não sei qual é
CLASSE que devo declarar em USES, pois dá erro em DBInit; passe o teu
código
que me será útil, uso o BDE porque estou trabalhando com PARADOX
grato
Stainle
Sergio Eurico [EMAIL PROTECTED]
seurico%40gmail.comseurico%40gmail.com escreveu:
Olá,
Nao sei se entendi... Entao, algumas opcoes.
a) Voce instalou o Delphi 5 na sua maquina e nao sabe se tem o BDE?
R: verifique no iniciar, programas, borland, delphi 5 se tem o BDE
Administrator.
b) Voce, ao iniciar o seu sistema no computador de um cliente, quer
verificar se ele ja tem o BDE instalado e caso nao tenha, que o sistema
instale? E depois verifique se o Alias ja foi criado, e nao havendo, que
se
crie... é isso?
R: tenho uma rotina que faz isso num sistema B antigo. Se for
isso
te passo o codigo fonte (ainda vou procurar), pra voce implementar.
Bom, acredito que voce tem OTIMOS ( bons seriam poucos ) motivos pra
usar
BDE principalmente se for em rede, mas tudo bem.
Abraco.
Em 24/10/07, stainle2003 [EMAIL PROTECTED]stainle2003%40yahoo.com.br
stainle2003%40yahoo.com.br
escreveu:
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no
computador e depois instalar o álias, estou tentando fazer esta
operação :
// Inicializa o ambiente do BDE
Check(DBInit(nil));
dá um erro de compilação, qual seria a UNIT que tenho que declarar em
USES ??
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE
Nivaldo Stainle wrote: o que eu quero é se existir o BDE instalado na máquina que irá receber o sistema; eu quero instalar um álias, só isso. caso não tenha o BDE pelo InstallShield eu faço a instalação do BDE e também do álias. http://www.jrsoftware.org/iskb.php?bde Veja o tópico What about creating aliases. -- Joao Morais
Re: [delphi-br] BDE
Veja http://www.eurico.net/arquivos/BDE_COM_EXECUTAVEL.rar ou http://www.eurico.net/arquivos/BDE_FONTES.rar Para instalar o BDE, basta ter o BDEinst.DLL no mesmo diretorio. O BDEinst.dll pode ser inserido no seu executavel como um recurso ou fornecido na instalacao ( installshield ne? ) Sim.. o BDEinst.dll fica dentro do BDEInst.cab. Tambem pode baixa-lo em http://www.eurico.net/arquivos/BdeInst.dll Abraco. Em 24/10/07, Joao Morais [EMAIL PROTECTED] escreveu: Nivaldo Stainle wrote: o que eu quero é se existir o BDE instalado na máquina que irá receber o sistema; eu quero instalar um álias, só isso. caso não tenha o BDE pelo InstallShield eu faço a instalação do BDE e também do álias. http://www.jrsoftware.org/iskb.php?bde Veja o tópico What about creating aliases. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] PalmOS
Existe alguma solução borland/codegear para Palms??? []s -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Off] Edição 89 Revista ClubeDelphi
Olá Pessoal, Gostaria de comunicar a todos que a edição 89 da revista ClubeDelphi tem uma novidade interessante para quem é iniciante. - Incluímos a seção EasyDelphi que mostra aplicações e conceitos básicos de programação para quem está começando. - Há também uma coluna dedicada inteiramente ao PHP com mini-cursos de PHP puro bem como Delphi for PHP. A revista vem com mais páginas e layout diferente, mais organizado. Entre os artigos estão: (Mobile) PocketPC com Delphi - Parte 1 Manoel Campos (Nivel Intermediário) Mini-curso Sistema de Contas a Pagar e Cobrança Parte 3 Adriano Santos (Básico - Iniciante) Cadastros Simples - Criação de cadastro com Master/Detail - ClientDataSet Adriano Santos (PHP) Introdução ao PHP - Parte 1 (Artigo Importado) Ewald Geschwinde and Hans-Juergen Schoenig A edição já encontra-se nas bancas de todo o país. Um forte abraço e até a próxima A edição já encontra-se nas bancas de todo o país. Um forte abraço e até a próxima -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.devmedia.com.br http://www.clubedelphi.net http://www.delphitodelphi.blogspot.com
Re: [delphi-br] PalmOS
Que eu saiba não, mas se vc manja de java te recomendo o superwaba. Nilson Chagas escreveu: Existe alguma solução borland/codegear para Palms??? []s -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
