Re: [delphi-br] Re: Biometria - Delphi
Na verdade ele é meio FREE, se você não tiver a nescessidade de exibir a imagem da digital ele é perfeito, por que junto com a digital vem uma tarja com o nome do componente ! Agora se for nescessario exibir a imagem o melhor mesmo é comprar a licença, mas prepare o bolso ! Eduardo Castro Alves Consulting Services Borland Rua Joaquim Floriano 466 - 12º andar Edifício Corporate - Itaim Bibi 04534-002 - São Paulo - SP www.borland.com.br Bit escreveu: kra tem o Griaule se nao me engano mas eh pago! http://www.griaule.com http://www.griaule.com vc pode adquiri o leitor da NitGen que o SDK eh degratis!! www.nitgen.com.br espero ter ajudado flw Bit --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, nilsonresende [EMAIL PROTECTED] escreveu Estou precisando de algum componente, DLL ou SDK free para acesso a o FingerPrint da Microsoft. Aguém tem algum exemplo ou componentes que possam me enviar? Utilizo Delhpi 5. Desde já agradeço a atenção e colaboração.
Re: [delphi-br] Fim do Delphi ???
Passei alguns dias sem ver email, mas algumas coisas nunca mudam !!! aoliveira_sys escreveu: Estava conversando com amigos, e eles me disseram uma coisa q fiquei preocupado, disseram q o Delphi está com seus dias contados? Disseram q o arquiteto da Delphi foi para a Microsoft, e q essa versão do Delphi foi a ultima. E Q a tecnologia q vai predominar vai ser o C#. Esse noticia é verdadeira? Ou se trata de boatos.
Re: [delphi-br] [OFF] Por que TEdit para alterar campos?
Cada caso é um caso ! As duas técnicas são execelentes se o profissional for qualificado. Usar TEdit você realmente fica com o controle de todos os passos na mão, complicando o desenvolvimento e facilitando a manutenção do código. Nos DBs você ganha em produtividade no desenvolvimento, mas perde na manutenção, por que as vezes temos a nescessidade de procurar uma virgula em um componente relacionado com outros. Para desenvolvedores autonomos não vejo problema nenhum em usar DB por que ele fez, ele acha o problema. Agora em uma software house jamais permitiria o uso desta técnica, por que o fonte que hoje é feito por X, depois do almoço podera ser alterado por Y e amanhã ser incrementado por Z. Neste caso a tão dita produtividade vai para o espaço, por que se uma das criaturas alterar uma propriedade a mais para os outros sera muito complicado achar tal equivoco. Esta é minha opinião a 8 anos e até hoje na pratica não consegui ter outra idéia sobre este assunto. Eduardo Rubem Nascimento da Rocha escreveu: Se é assim, então lá vai! Ao longo da minha experiência com Delphi (desde 1995), uso controles data-aware e não me arrependo de ter que ficar que nem doido reinventando a roda. Eis meus argumentos para as vantagens de usar controles data-aware com base em minha experiência: 1) Rapidez no desenvolvimento, inclusive de templates (isso realmente é indiscutível!): 2) Facilita separar interface de regras de negócio (antes de se falar em design patterns como MVC, MVP, MGM, etc. eu sempre separava as regras de negócio em data-modules, onde ficavam os datasets a serem tratados nas telas! Daí, validação de campos e de consistência de dados, definição de máscara de exibição de valores de campos, etc. ficam em um só lugar, me dando liberdade de usar qualquer outro tipo de controle DATA-AWARE que eu queira - TwwDBGrid, TcxGrid, TwwRecordViewDialog, etc.); 3) Uso eventos dos objetos TField (OnChange, OnGetText, OnValidate, etc.) e do dataset associado (OnNewRecord, BeforePost, etc.) para efetuar validação e deixar a o código da inteface mais limpo. Bem melhor do que ficar codificando um monte de eventos OnExit/OnChange/OnEnter/etc. nos TEdit (Credo! Isso é masoquismo!). Sinceramente, não sei qual é a bronca que o povo tem com Data-Aware. Dizem que os componentes fazem coisas que não deveriam fazer. Particularmente, uso data-aware há anos, e sempre fizeram o que eu programei eles pra fazer. Ou seja, sabendo usar, não vai faltar! Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:post%40joaomorais.com.brDate: Tue, 16 Oct 2007 18:43:44 -0200Subject: Re: [delphi-br] [OFF] Por que TEdit para alterar campos? Rubem Nascimento da Rocha wrote: De novo essa discussãoNão Rubem. Apenas dizer por que você usa TEdit, caso você o utilize. Eu tenho os meus motivos e são bem diferentes da maioria do pessoal.--Joao Morais __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Videolab
Sem criar polemica, o componente é FREE, baixe e teste. Eduardo dercino escreveu: Foi o primeiro lugar em que procurei. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu Procurou se informar no site do fabricante antes de consultar a lista? (http://www.mitov.com http://www.mitov.com) Já leu a FAQ do fabricante pra saber se l;a vc não terá a sua dúvida sanada? (www.mitov.com/html/videolab_faq.html) Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Sun, 7 Oct 2007 12:24:40 + Subject: [delphi-br] Videolab Pessoal, alguém saber se os componentes da Videolab rodam filmes (.IFO) de DVDs? valeu... __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx http://spaces.live.com/signup.aspx
Re: [delphi-br] Como colocar um icone diferente em uma caixa de mensagem
Paulo, nos arquivos da lista-delphi tem um formulario chamado dialogo que disponibilizei, que facilmente você adapta para suas nescessidades. Caso você não seja assinante, me mande um email em PVT que passo para você. Eduardo [EMAIL PROTECTED] escreveu: Pessoal: Geralmente, exibo mensagens ao usuario atraves de MessageDlg, usando os icones padronizados do Delphi (mtWarning, mtConfirmation, etc.) Porem, agora preciso exibir algumas mensagens e exibir icones diferentes Por exemplo, uma das mensagens e´: Para executar esta operacao, clique primeiramente no botao [aqui vai o desenho do botao]. Pergunta: Existe alguma funcao do Delphi ou da API do Windows para eu fazer isso, ou tenho que criar um Form especialmente para mostrar mensagens com meus icones ? Obrigado pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Leitor Biométrico
Eric, na verdade a versão demo é FREE, mas aparece uma imgem com o nome do fabricante no meio da digital. Mas o uso é livre sim. Este componente foi a melhor relação custo beneficio que encontrei quando desenvolvi uma aplicação para entrada de pessoal. Eduardo ericduboc escreveu: Boa tarde, Joel. Neste link, http://www.griaule.com/page/pt-br/grfinger_sdk, http://www.griaule.com/page/pt-br/grfinger_sdk, você encontra um SDK para desenvolver aplicações com o Leitor Biométrico da Microsoft, porém, este SDK **É PAGO**. Junto com o instalador, vem exemplos em várias linguagens de programação, inclusive em Delphi, que exemplifica o uso de duas formas: através da DLL e utilizando biblioteca própria. Espero ter ajudado. Abraço. Eric. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Joel Alexandre [EMAIL PROTECTED] escreveu Boa noite, Pessoal, estou com um leitor biométrico da Microsoft. Instalei o driver FingerCap_USB_Driver_1.0, mas não to conseguindo inicializar ele. Alguem já mexeu com esse tipo de equipamento pra me dar uma força? []Os Joel
Re: [delphi-br] Re: Leitor Biométrico
Como disse a versão DEMO/FREE ela mantem uma tarja com o nome do fabricante no meio da digital, se o seu sistema tem que mostrar a impressão acho melhor você comprar. A licença é por estação que você for instalar o seu software e os preços são bem salgados. Eduardo Marcos Abreu Ferreira escreveu: Eduardo, Você utilizou a versão demo mesmo? Ou comprou? Entrei no site dos caras e vi os preços por lá. Não entendi direito como funciona, é por máquina instalada a licença? Qual a versão que você está utilizando? Obrigado Marcos Ferreira From: Eduardo Castro Alves Sent: Monday, October 01, 2007 8:01 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: Leitor Biométrico Eric, na verdade a versão demo é FREE, mas aparece uma imgem com o nome do fabricante no meio da digital. Mas o uso é livre sim. Este componente foi a melhor relação custo beneficio que encontrei quando desenvolvi uma aplicação para entrada de pessoal. Eduardo ericduboc escreveu: Boa tarde, Joel. Neste link, http://www.griaule.com/page/pt-br/grfinger_sdk, http://www.griaule.com/page/pt-br/grfinger_sdk, http://www.griaule.com/page/pt-br/grfinger_sdk, http://www.griaule.com/page/pt-br/grfinger_sdk, você encontra um SDK para desenvolver aplicações com o Leitor Biométrico da Microsoft, porém, este SDK **É PAGO**. Junto com o instalador, vem exemplos em várias linguagens de programação, inclusive em Delphi, que exemplifica o uso de duas formas: através da DLL e utilizando biblioteca própria. Espero ter ajudado. Abraço. Eric. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Joel Alexandre [EMAIL PROTECTED] escreveu Boa noite, Pessoal, estou com um leitor biométrico da Microsoft. Instalei o driver FingerCap_USB_Driver_1.0, mas não to conseguindo inicializar ele. Alguem já mexeu com esse tipo de equipamento pra me dar uma força? []Os Joel Marcos Abreu Ferreira Consultor SAP/ABAP São Paulo - SP +55 11 7228-9827 Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o. Agradecemos sua cooperação. This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Descobrir classe a partir da variáv el
FindClass() De uma olhada no help que tem um material muito bom sobre o assunto. Eduardo Leodinei Bielak escreveu: Olá. Alguém sabe se tem como eu descobrir qual a classe de um objeto passando uma variável? Eu quero criar uma função para descobrir se um formulário está visível ou não, para saber se eu mostro o anterior ou crio um novo. Eu sei como criar um classe a partir da string com o nome, mas eu desejo passar um variável para ter checagem do nome correto ainda em tempo de compilação. Valeu. -- Leodinei Bielak http://leodinei.blogspot.com/ http://leodinei.blogspot.com/ In theory, there is no difference between theory and practice. In practice, however.. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Promocao Base Cep - GSESoft
Perfeito !!! Eduardo Davi Eduardo Borges Wall escreveu: Eu sei que cada um tem direito de prostituir seus conhecimentos ao preço que quiser, pois vivemos num país que teoricamente é livre. Agora fazendo uma analogia com o mercado de trabalho. Não é exatamente isso que acontece no mercado de trabalho? Sempre tem um programador que faz mais barato. Acho que esse é um dos motivos que nos levam a reclamar de que nossa classe não é remunerada como deveria. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quinta-feira, 13 de setembro de 2007 15:29 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Promocao Base Cep - GSESoft Base de CEP de 2007 por R$ 120,00?? quem quiser eu vendo por R$ 50,00; *OBS: Não é o arquivo dos Correios, pois isso é pirataria. * Em 13/09/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com mailto:djpardalrocha%40hotmail.com escreveu: Essa base de CEP é a mesma que é usada no portal republicavirtual.com.br?http://com.br/? http://com.br/? ??? Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom mailto:delphi-br%40yahoogrupos.com.brFrom delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:ginho%40mult.com.brDate mailto:ginho%40mult.com.brDate ginho%40mult.com.brDate: Thu, 13 Sep 2007 14:22:19 -0300Subject: [delphi-br] Promocao Base Cep - GSESoft O site www.gsesoft.com esta com uma promoção válida somente até o dia 17/09 (segunda-feira).- Base de CEP 2007 de R$ 200 por R$ 120- Base de CEP com informações geográficas, etc. de R$ 340,00 por R$ 200,00[As partes desta mensagem que não continham texto foram removidas] __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx http://spaces.live.com/signup.aspx [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 mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retirar sinais de uma data
Ricardo, no seu lugar eu faria o mesmo. Nunca altero o que esta funcionando, só postei para você ver que existe uma maneira usando uma unica variavel para o loop. Eduardo Ricardo Cabral escreveu: Eduardo, É isso mesmo ! Valeu por mandar uma versão melhorada. Usei a minha e deixei ela como tava. Abraços, Ricardo Eduardo Castro Alves [EMAIL PROTECTED] mailto:ecastroa_edu%40yahoo.com.br escreveu: Ricardo, pelo que eu entendi, você pega um texto e transforma em um texto só de numeros. Assim tb funciona. function ExtractNumber(pValor : String) : String; var i : Integer; begin Result := ''; for i := 1 to Length(pValor) do begin if pValor[i] in ['0'..'9'] then Result := Result + pValor[i]; end; end; Eduardo Ricardo Cabral escreveu: Paulo, Não sei se já existe no delphi, mas eu uso essa para qualquer string. Espero ter ajudado. Ricardo Cabral Function Tffuncoes.numeros(valor : string) : string; // Limpa string e deixa soimente numeros var i : integer; xvalor : string; xnum : String; begin xvalor:=trim(valor); xnum:='0123456789'; valor:=''; for i := 1 to Length(xvalor) do begin if pos(copy(xvalor,i,1),xnum)0 then valor:=valor+copy(xvalor,i,1); end; result:=valor; end; pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br mailto:infowave%40jupiter.com.br escreveu: Ola amigos, Alguem podria me passar uma função que retire os sinais de uma data, deixando apenas os numeros? Obrigado! []´ Paulo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retirar sinais de uma data
Ricardo, pelo que eu entendi, você pega um texto e transforma em um texto só de numeros. Assim tb funciona. function ExtractNumber(pValor : String) : String; var i : Integer; begin Result := ''; for i := 1 to Length(pValor) do begin if pValor[i] in ['0'..'9'] then Result := Result + pValor[i]; end; end; Eduardo Ricardo Cabral escreveu: Paulo, Não sei se já existe no delphi, mas eu uso essa para qualquer string. Espero ter ajudado. Ricardo Cabral Function Tffuncoes.numeros(valor : string) : string; // Limpa string e deixa soimente numeros var i : integer; xvalor : string; xnum : String; begin xvalor:=trim(valor); xnum:='0123456789'; valor:=''; for i := 1 to Length(xvalor) do begin if pos(copy(xvalor,i,1),xnum)0 then valor:=valor+copy(xvalor,i,1); end; result:=valor; end; pcinfowave [EMAIL PROTECTED] mailto:infowave%40jupiter.com.br escreveu: Ola amigos, Alguem podria me passar uma função que retire os sinais de uma data, deixando apenas os numeros? Obrigado! []´ Paulo Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Conta dados de um grid?
Tente assim:
begin
Label1.Caption := FormatFloat('#,##0',
DBGrid1.DataSource.DataSet.RecordCount);
end;
Eduardo
itasouza escreveu:
Boa Tarde a todos
Pessoal, tenho um grid que me traz vários registros, precisava conta a
quantidade de registros e mostra em um label. Ou seja, de acordo com a
quantidade de registros o label mostraria o número de registros.
Agradeço a ajuda!!!
Re: [delphi-br] Testar Boleto
Anderson, você pode testar no proprio banco. Gere um boleto de R$ 1,00, envie a remessa para o banco, se o banco aceitar o arquivo esta correto, caso seja rejeitado o banco informa o motivo. Faça as alterações e pague o boleto, assim você testa todo o processo. No inicio do ano desenvolvi uma aplicação para gerar boletos para o Bradesco, Itau, Banco do Brasil, Unibanco e Caixa Economica Federal. O melhor suporte via telefone é o do Itau, mas o arquivo de remessa mais chato é o Bradesco, que te obriga por exemplo a emitir um arquivo para cada conta. Eduardo Moacir - GMail escreveu: Anderson, Acredito que basta vc analisar a documentação disponibilzada pelo seu banco ao até esmo pela Febranan para que mates esta charada. /www.*febraban*.org.br http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 http://www.febraban.org.br/Arquivo/Servicos/Downloads/download_lista.asp?id_comissao=4 / Não tem nada de muito dificil não, mas acredito que existam algumas variações de acordo com o banco, no que concerne a calculo de digito verificador, etc.. Mas os dados gerais vc consegue ler sem maiores problemas. [ ]´s Moacir Anderson Furtilho escreveu: Olá galera! Existe algum software que podemos ler o codigo de barra ou a linha digitavel de uma boleto e ele verifica se é um boleto valido ou não. Ou melhor ainda, se existe um software que ao passar a linha digitavel ou codigo de barra ele mostra na tela os dados como agencia, codigo, valor boleto, data vencimento... Desde já antecipo meus agradecimentos! Anderson Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: RES: [delphi-br] Mas alguem na lista usa java tb???
Pelo menos 3 vezes por ano alguem lembra do falecido Kylix ( que o pai o tenha em um bom lugar ). Mais uma vez o falecido não vendeu 5.000 licença no MUNDO, o produto usado por meia dúzia ( no maximo o 1000 de uma lista linux ) no Brasil vivem cobrando a renascimento do falecido. Vamos usar o bom censo, a Borland investiu milhões em uma ferramenta que não vendeu e pior do que isso, não existe perspectiva de retorno. O finado só voltar se REALMENTE existir uma demanda. Quanto a abertura dos fontes não acredito que a Borland / Code Gear não cometera o mesmo erro que cometeu com o IB. Abrindo a IDE do linux a IDE para Windows estaria aberta em pelo menos 70% ja que se você tirar o que se refere ao sistema operacional o resto é a mesma coisa. Agora faço um apelo, vamos deixar o defunto descansando em paz, quem quiser reclamar, implorar ou mesmo chorar a volta do falecido, usem os canais da Code Gear, por que os mebros da lista nada poderam fazer para a volta do finado. Eduardo thevortex78 escreveu: Ou na melhor possibilidade vender o Kylix com os fontes ou liberar para quem usa, com certeza a coisa ia com agora que tem o Lazarus. [ ]´s José Ricardo Aviles. _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Robson Enviada em: quarta-feira, 1 de agosto de 2007 22:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: RES: [delphi-br] Mas alguem na lista usa java tb??? Bruno, Não querendo botar mais lenha na foqueira, mas acho q a Borland/CodeGear poderia dar uma re-pensada no lançamento do kylix, pois há nos dias de hj um aumento significativo no uso do Linux, poderiam até mesmo como ja sugerido, abrir o codigo fonte e até aproveitar boas ideias q poderão sugir para ser implementada no Delphi, não tenho dados mas houve sim um grande aumento no uso do Linux para desktop e principalmente no uso em comércio, principalmente de pequeno e médio porte. Lembrando a todos q esta tb é uma opnião pessoal de alguém q gosta muito de linux, mas q naum vive sem o Delphi. Abraços a todos. Kaputz, Robson Skype: kaputz_gri - Mensagem original De: Bruno Lichot HYPERLINK mailto:blichot%40softpark.com.br[EMAIL PROTECTED] Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] mailto:delphi-br%40yahoogrup-os.com.br Enviadas: Segunda-feira, 30 de Julho de 2007 15:48:22 Assunto: RES: RES: [delphi-br] Mas alguem na lista usa java tb??? Galera, Apostamos tanto quanto os clientes que adquiriram o kylix, mas não teve saída, evoluímos 3 versoes do produto, fizemos de tudo para aderir ao mercado, mas não havia venda, o produto não tinha saída e não havia mais como financeiramente bancar o projeto. Se vc tem um software que não vende, que lhe trás prejuízo.. até que ponto continuaria investindo nele? O Kylix foi algo que ninguém gostaria que desse errado. Todos temos sempre algo a melhorar e a corrigir, e com os mais de 20 anos servindo a comunidade de desenvolvedores, já acertamos e erramos muitas vezes. Mas com certeza a Borland/CodeGear tem acertado mais do que errado nesses anos, e estamos sempre procurando aprender, crescer e corrigir. E não creio que o Kylix tenha sido um erro, apenas não teve a saída esperada o que implica na evolução e continuação de qualquer produto. Na vida estamos sujeitos a fatores que não controlamos. E temos que saber como supera-los e não ficar lamentando. Graças a Deus que usou a Borland e seus produtos para mudar a realidade de um jovem pobre suburbano sem muita expectativa por falta de recursos como eu. Por conta disso consegui ajudar minha família, ajudar a bancar os estudos da minha irmã, comprar meu apartamento, constituir família, trabalhar para uma multi nacional e ter minha própria empresa de consultoria e continuar meus estudos. E também por conta disso faço o que mais gosto, trabalho com Delphi, ajudo a comunidade, ministro palestras entre tantas outras coisas legais alem de ter um bom salário. Será que é tão péssimo assim? Com relação ao JAVA, será q estou tão solto assim, eu não me acho, me sinto preso a framweworks e profissionais, especialistas em todo pedacinho da colcha de JAVA(não pejorativamente) , mas pessoalmente, será que não estamos também amarrados aos mantenedores e evolucionistas do JAVA? Será que é tão livre assim.(Pessoal, nada contra o JAVA, me é muito útil e gosto dele. Mas não creio que esta idéia de liberdade seja uma verdade absoluta. Mas não reclamo não, tem vantagens e desvantagens, aproveito as vantagens e supero as desvantagens( em sua maioria com Delphi :D) – Opniao pessoal ok? ;D ) Voltemos ao Delphi Abraços BL Atividade nos últimos dias 14Novos usuários Visite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra
Re: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ
Estas vagas são para a Casa Video, tem pelo menos 1 ano que estão com 5 vagas abertas, mas todos que fazem o teste são reprovados, existe pelo menos 5 consultorias que publicam ou já publicaram estas vagas. Conheço varias pessoas que fizeram o teste que é muito simples, mas cheios de questões subjetivas, do tipo: - Clareza do código; - Faça uma consulta SQL ( No meu caso exibe os dados em GRID, depois fiquei sabendo, que a questão era, fazer um consulta e não dizia visualizar ) Por estes e outros motivos que desconheço todos os desenvolvedores que conheço, não foram aprovados no tal teste. Agora até onde eu sei as consultorias não estão mais recebendo currículos quando a descrição da vaga é esta. Os textos são praticamente iguais, mudando apenas a consultoria ou o título da vaga. Eduardo Jefferson - Fórum escreveu: Bem que essa Nova Consultoria, poderia estar precisando de profissionais em Java. Assim daria uma paz, pra lista... Se continuar contratando assim, todos desenvolvedores Delphi estão trabalhando nessa empresa. OPINIÃO PESSOAL!!! - Original Message - From: Nova Consultoria To: delphi-boleto ; delphi-br ; delphi-empregos ; delphi-lista ; delphi-total ; firebird-br ; lista-delphi ; PHP-PT ; programacao-hacker Sent: Tuesday, July 24, 2007 5:15 PM Subject: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ PROGRAMADOR DELPHI SÊNIOR Formação - Superior completo Requisitos Profissionais - Experiência a partir de 4 anos de desenvolvimento com Delphi - Sólidos conhecimentos em SQL Server - Orientação ao objeto - Modelagem de dados Desejável - Oracle - UML Boa oportunidade em empresa de grande porte líder no seu segmento no Rio de Janeiro. Encaminhar currículos para: [EMAIL PROTECTED] mailto:rh%40novaconsultoria.com.br especificando no campus Assunto o nome da vaga. Aguardamos confirmação do recebimento do mesmo. Att. Jaqueline Cardoso 21 2531.1204 - 2532.2533 [EMAIL PROTECTED] mailto:jaqueline%40novaconsultoria.com.br Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Vaga de Pr ogramador Delphi Sênior - para o centro d o RJ
É uma rede com lojas no Rio de Janeiro e Espírito Santo. Uma rede grande, la eles trabalham com Delphi 5 SqlServer usando ADO + ClientDataSet. O teste nem é tão complicado assim, pede para fazer um mestre detalhe, algumas consultas e só. O problema na minha humilde opinião é as questões subjetivas. Bem, como posso estar enganado, todos os profissionais que eu conheço e que sempre acreditei que eram bons, não sejam, eu inclusive. Boa sorte para eles, só sei que agora entrou uma nova consultoria anunciando as mesmas 5 vagas. Eduardo Davi Eduardo Borges Wall escreveu: Casa Video é um site ? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Castro Alves Enviada em: quarta-feira, 25 de julho de 2007 08:48 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ Estas vagas são para a Casa Video, tem pelo menos 1 ano que estão com 5 vagas abertas, mas todos que fazem o teste são reprovados, existe pelo menos 5 consultorias que publicam ou já publicaram estas vagas. Conheço varias pessoas que fizeram o teste que é muito simples, mas cheios de questões subjetivas, do tipo: - Clareza do código; - Faça uma consulta SQL ( No meu caso exibe os dados em GRID, depois fiquei sabendo, que a questão era, fazer um consulta e não dizia visualizar ) Por estes e outros motivos que desconheço todos os desenvolvedores que conheço, não foram aprovados no tal teste. Agora até onde eu sei as consultorias não estão mais recebendo currículos quando a descrição da vaga é esta. Os textos são praticamente iguais, mudando apenas a consultoria ou o título da vaga. Eduardo Jefferson - Fórum escreveu: Bem que essa Nova Consultoria, poderia estar precisando de profissionais em Java. Assim daria uma paz, pra lista... Se continuar contratando assim, todos desenvolvedores Delphi estão trabalhando nessa empresa. OPINIÃO PESSOAL!!! - Original Message - From: Nova Consultoria To: delphi-boleto ; delphi-br ; delphi-empregos ; delphi-lista ; delphi-total ; firebird-br ; lista-delphi ; PHP-PT ; programacao-hacker Sent: Tuesday, July 24, 2007 5:15 PM Subject: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ PROGRAMADOR DELPHI SÊNIOR Formação - Superior completo Requisitos Profissionais - Experiência a partir de 4 anos de desenvolvimento com Delphi - Sólidos conhecimentos em SQL Server - Orientação ao objeto - Modelagem de dados Desejável - Oracle - UML Boa oportunidade em empresa de grande porte líder no seu segmento no Rio de Janeiro. Encaminhar currículos para: [EMAIL PROTECTED] mailto:rh%40novaconsultoria.com.br mailto:rh%40novaconsultoria.com.br mailto:rh%40novaconsultoria.com.br especificando no campus Assunto o nome da vaga. Aguardamos confirmação do recebimento do mesmo. Att. Jaqueline Cardoso 21 2531.1204 - 2532.2533 [EMAIL PROTECTED] mailto:jaqueline%40novaconsultoria.com.br mailto:jaqueline%40novaconsultoria.com.br mailto:jaqueline%40novaconsultoria.com.br Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [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: RES: [delphi-br] Programa con tagem de tempo para inss com fonte. Algué m tem?
Se for isso esquece, nem os funcionários do órgão sabem fazer este calculo. Eduardo Ps.: Não resisti !!! Walter Alves Chagas Junior escreveu: Ao que me parece, seria um programa que faz a contagem de seu tempo de contribuição do INSS com fins de calculo de aposentadoria. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] mailto:wchagas%40telemont.com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br]Em nome de Davi Eduardo Borges Wall Enviada em: segunda-feira, 23 de julho de 2007 09:11 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Programa contagem de tempo para inss com fonte. Alguém tem? O que é um programa de contagem de tempo para INSS ? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Marcos André Enviada em: segunda-feira, 23 de julho de 2007 08:37 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Programa contagem de tempo para inss com fonte. Alguém tem? aproveitando o embalo, alguém tem programa contábil com fonte?? melhor preciso urgente do windows com fonte...se tiver o fonte do office é melhor...mas lembrem-se tem q ser free... aff.. o carinha só falta pedir pra alguém desenvovler pra ele.. Em 22/07/07, teste1963 [EMAIL PROTECTED] mailto:wufr%40ig.com.br mailto:wufr%40ig.com.br escreveu: Programa contagem de tempo para inss com fonte. Alguém tem? -- Um abraço Marcos André [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Fução IF (Equivalente a do Clipper)
Tenho certeza que já tinha passado, mas ai vai. iif(Condicao : Boolean; Verd, Falso : Variant) : Variant; begin if Condicao then Result := Verd else Result := Falso; end; Desta maneira vc pode passar qualquer valor que vai retornar corretamente, no Delphi tem uma que só retorna Inteiro. Eduardo Adjalma Costa escreveu: Entrei na unit Math mas não encontrei a função citada. sds Adjalma Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com escreveu: Função IIf() da unit Math. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:adjalmacosta%40yahoo.com.brDate: Thu, 19 Jul 2007 17:51:28 -0300Subject: [delphi-br] Fução IF (Equivalente a do Clipper) Alô grupo,Vocês sabem me informar se no Pascal (Delphi) tem uma função equivalente a função IF do clipper?sdsAdjalmaFlickr agora em português. Você cria, todo mundo vê. Saiba mais.[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 http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2007 win32
Fellipe, sincera mente não entendo por que está paixão tão grande pelo FB, mas gosto não se discute, cada um tem o seu, mas dai dizer a Borland / Code Gear ter medo da concorrência é no mínimo engraçado. Os drivers para FB estão disponíveis pela comunidade FB que os usam e vem tentando melhora-los, mesmo não sendo um apaixonado pelo FB acho sim um BD com um ótimo futuro, sou membros de varias lista e também do projeto, minha participação no projeto não das maiores, mas quando posso colaboro. Quando do lançamento do Delphi 2005 muitos reclamaram que o QR ( Sempre criticado diga-se de passagem ) não poderia deixar de acompanhar o produto. Acho sim que o Delphi tem que ter um gerador de relatório, mas não que este gerador seja A ou B e sim um gerador para agregar o seu produto, BDS. Esta é minha opinião sobre o drivers para banco de dados. Acho que os drivers para Oracle, DB2, SQLServer e IB ( por ser seu BD ) não devem já mais faltar, mas o restante, não vejo esta obrigação. Quando você optou em usar FB sabia desta dificuldade e hoje pelo que você mesmo diz é impossível migrar para um destes BD, então você terá que correr atrás de drivers para cada versão do Delphi que você adquirir. Antes que você me acuse de algo injusta mente, meu BD preferido FREE é o MySQL que também não é prioridade no Delphi mas não acredito que seja por medo da concorrência ( rsrs ) e sim por uma questão de prioridade. Já trabalhei com componentes da Core para Oracle, é um verdadeiro espetaculo de componente, vale cada centavo investido, mas nos meus projetos em casa até hoje não comprei o componente para MySQL e não tenho nenhum interesse, por enquanto, meus projetos em casa não são tão complexo que não possam usar o Zeos FREE. Agora se no seu caso você precisa de mais de uma licença, significa que você esta falando de no mínimo uma pequena consultoria que não tem como justificar a falta de condições de pagar $199.95 https://secure.element5.com/register.html?productid=300160696 para 4 usuários, ou até uma licença de $349.95 https://secure.element5.com/register.html?productid=300160697 para uma equipe de desenvolvedores. Por menos que sua consultoria fature, mas gastar isso é um investimento e não uma despesas. Eduardo Fellipe Henrique escreveu: Olá Andreano, disso eu sei... mas, vamos ver... Porque a Borland não cria um DBX pro Firebird? Só porque concorre com o Interbase? Sei que você estão olhando seu lado, mas e o programador? As versoes Open que existe, não é boa, tem problemas agora gastar U$ 79,00 por um componente, por máquina (só se mudou) e ainda sim ter algum problema, é complicado pra micro-empresa... sei que a nova versao do DBX veio pra compatibilizar a nova versao do Interbase, mas vocês poderiam ter deixado a versao antiga, pra quem usa o Firebird, não ter problemas.. Eu por exemplo, ainda não mudei pro D2007, simplesmente por causa disso... porque todos meus sistemas usam Firebird. Com certeza o D2007, não se compara ao D7, se comparasse a CodeGear estava frita.. rsrs.. lançar algo novo, igual a um de uns 5 anos atrás, é dar um tiro no próprio pé... rsrs []s Em 14/07/07, Andreano Lanusse [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com escreveu: Fellipe, de novo, o fator de rodar não quer dizer que é compatível. Diversas atualizações foram feitas para suportar corretamente Windows Vista. Por exemplo: ActiveX, COM, VCL, suporte a arquivos de segurança (manifest) e outras mais. Além de correções e inúmeras melhorias internas no Midas. Uma aplicação compilada com delphi 2007 tem muito mais performance que Delphi 7, Delphi 2007 utiliza FASTMM internamente, o IDE usa FASTMM . []'s Andreano Lanusse _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Extrato Bancário em formula rio e não em relatório
Me desculpe por não ter mandando antes, só hoje, aproveitando a abertura
do PAN ( rsrs ) consegui fazer o exemplo.
Lembro que este modelo serve para o Oracle. Não conheço o BD que você
usa, por tanto não sei se será do mesmo jeito, acredito que não deva ser
muito diferente disso.
DROP TABLE TESTE;
CREATE TABLE TESTE ( DESCRICAO VARCHAR2(20), VALOR NUMBER(12,2), TIPO
CHAR(1));
REM INSERTING into TESTE
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('DEPOSITO', '100',
'C');
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('REC NF', '100',
'C');
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('CHEQUE', '100',
'C');
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('CHEQUE', '030',
'D');
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('DEPOSITO', '035',
'D');
INSERT INTO TESTE (DESCRICAO, VALOR, TIPO) VALUES ('REC NF', '040',
'D');
COMMIT;
SELECT DESCRICAO, SUM(CREDITO), SUM(DEBITO), (SUM(CREDITO) -
SUM(DEBITO)) AS SALDO FROM(
SELECT DESCRICAO, VALOR AS CREDITO, 0 AS DEBITO, TIPO
FROM TESTE
WHERE TIPO = 'C'
UNION ALL
SELECT DESCRICAO, 0 AS CREDITO, VALOR AS DEBITO, TIPO
FROM TESTE
WHERE TIPO = 'D')
GROUP BY DESCRICAO
Se precisar de mais alguma coisa ou tirar alguma duvida poste aqui.
Eduardo
Ricardo Mendes escreveu:
uso firebird + delphi 7
Ricardo Mendes
Departamento de Informática
E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br
Site: www.totalsat.com.br
Tel. (41) 2109-7717
- Original Message -
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Wednesday, July 11, 2007 2:13 PM
Subject: Re: [delphi-br] Extrato Bancário em formulario e não em relatório
Qual BD você esta usando ???
Eduardo
Ricardo Mendes escreveu:
Galera, bom...gostaria de verificar com vcs se alguem já preciosou
geral um extrato bancario em aplicação...
Deixa eu explicar o q eu to fazendo. Estou realizando na minha
aplicação o fechamento de caixa e gostaria que o cliente digitasse as
datas de inicio e fim do fechamento e o resultado dos lançamentos
ocorridos nesse periodo fosse mostrado como um extrado bancário.
Ex:
Data Conta | Descrição da Conta | Codigo | Valor | Tipo
15/07/2007 | CONTA DE AGUA |1568 | R$ 98,00 | D
15/07/2007 | DEPOSITO DA CC |0010 | R$ 100,00 | C
é +/- isso q eu quero...
Ricardo Mendes
Departamento de Informática
E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br
mailto: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]
Re: [delphi-br] Extrato Bancário em formula rio e não em relatório
Qual BD você esta usando ??? Eduardo Ricardo Mendes escreveu: Galera, bom...gostaria de verificar com vcs se alguem já preciosou geral um extrato bancario em aplicação... Deixa eu explicar o q eu to fazendo. Estou realizando na minha aplicação o fechamento de caixa e gostaria que o cliente digitasse as datas de inicio e fim do fechamento e o resultado dos lançamentos ocorridos nesse periodo fosse mostrado como um extrado bancário. Ex: Data Conta | Descrição da Conta | Codigo | Valor | Tipo 15/07/2007 | CONTA DE AGUA |1568 | R$ 98,00 | D 15/07/2007 | DEPOSITO DA CC |0010 | R$ 100,00 | C é +/- isso q eu quero... Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br Site: www.totalsat.com.br Tel. (41) 2109-7717
Re: [delphi-br] Extrato Bancário em formula rio e não em relatório
Estou muito enrolado agora, mais tarde monto um exemplo no oracle te passo, vc terá q converter para o FB por q nao sei usa-lo. Eduardo Ricardo Mendes escreveu: uso firebird + delphi 7 Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br Site: www.totalsat.com.br Tel. (41) 2109-7717 - Original Message - From: Eduardo Castro Alves To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, July 11, 2007 2:13 PM Subject: Re: [delphi-br] Extrato Bancário em formulario e não em relatório Qual BD você esta usando ??? Eduardo Ricardo Mendes escreveu: Galera, bom...gostaria de verificar com vcs se alguem já preciosou geral um extrato bancario em aplicação... Deixa eu explicar o q eu to fazendo. Estou realizando na minha aplicação o fechamento de caixa e gostaria que o cliente digitasse as datas de inicio e fim do fechamento e o resultado dos lançamentos ocorridos nesse periodo fosse mostrado como um extrado bancário. Ex: Data Conta | Descrição da Conta | Codigo | Valor | Tipo 15/07/2007 | CONTA DE AGUA |1568 | R$ 98,00 | D 15/07/2007 | DEPOSITO DA CC |0010 | R$ 100,00 | C é +/- isso q eu quero... Ricardo Mendes Departamento de Informática E-mail: [EMAIL PROTECTED] mailto:r.mendes%40totalsat.com.br mailto: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]
Re: [delphi-br] Mudar Cor de Letra do grid
Ta na mão !!!
procedure TFrmCadTipoTransacoes.grdPadraoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.RecordCount 0 then
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName('Valor').AsFloat
= 0 then // coloque aqui sua condição
begin
//TDBGrid(Sender).Canvas.Brush.Color := clWindows; Se você
quiser alterar a cor da linha
TDBGrid(Sender).Canvas.Font.Color := clBlue; // Altera a cor da
FONTE.
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else
begin
TDBGrid(Sender).Canvas.Font.Color := clRed;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Eduardo
Alessandro Magno de Paula escreveu:
Galera,
Não tenho acesso à internet para ver se já teve esta pergunta.
Quer, mudar cor das letras no grid, dependendo de um valor no banco,
exemplo
Crédito quero colocar azul
Débido quero colocar vermelho
Alguém pode me dar uma dica??
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tipos incopativeis: String e PAnsiChar
Não conheci esta classe vou dar uma estudada nela. Eduardo Eduardo Silva dos Santos escreveu: Olá Paulo, use assim ExecuteFile( 'Nome_do_exe.exe', '/s /y /c /qualquer parametro' ); Em 29/06/07, Paulo Daniel [EMAIL PROTECTED] mailto:dorensbach_dpr%40yahoo.com.br escreveu: Eduardo, gostei dessa sua rotina. Me poderia passar um exemplo de como você chama ela? ExecuteFile(?, ?); Grato pela ajuda. Eduardo Silva dos Santos escreveu: eu uso essa rotina: uses Shellapi; . Procedure ExecuteFile( cFileName,Param:String); var FileExec:TCustomFileRun; Begin Try FileExec := TFileRun.Create(nil); with FileExec do begin FileName := cFileName; Parameters := Param; Execute; end; Finally FileExec.Free; end; end; ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressão em CANVAS
Procure na NET VDOPrint, é um componente FREE que descende do TPrint. Eduardo maniacapordelphi escreveu: Estou tendo problemas com impressão em USB. Alguém teria um exemplo de impressão em CANVAS, que imprima corretamente na página seja em impressora matricial como impressora jato ou laser? Mani
Re: [delphi-br] Tipos incopativeis: String e PAnsiChar
De uma olhada.
procedure AbreArquivo(pArquivo : String);
var
vArq : Array [0..MAX_PATH] of Char;
begin
StrPCopy(vArq, pArquivo);
shellexecute (Application.handle, 'open', vArq, '', Nil, sw_shownormal);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
AbreArquivo('C:\Documents and Settings\Eduardo\Desktop\B1.xls');
end;
Eduardo
Paulo Daniel escreveu:
Olá amigos,
O comando a seguir faz com que a apresentação *teste.pps* seja executada
pelo Power Point.
shellexecute (handle, 'open', 'powerpnt.exe','/s c:\teste.pps', nil,
sw_shownormal);
Eu gostaria de ao invés de passar o caminho da apresentação no comando
(c:\teste.pps), passar este caminho através de uma variável (exemplo:
DirPPS).
Então ao executar o comando usando a var:
shellexecute(handle, 'open', 'powerpnt.exe','/s ' + DirPPS, nil,
sw_shownormal);
Ocorre o erro dizendo que os tipos são incopativeis: String e PAnsiChar.
Já tentei usar o PChar(DirPPS), mas o erro persiste.
Alguém consegue me dar uma luz?
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Abrir uma arquivo com dois cliques
ParamStr realmente é um método, me desculpe pela falta de atenção. Agora no assunto em questão foi definido a associação de um arquivo com a extensão BLA para o meu executável, como passar entre aspas o nome do arquivo neste caso ? Na dica que você enviou ( muito interessante ) diz como associar o arquivo, mas como vou dizer que ele tem que vir entre aspas. Alguém saberia como solucionar este problema ? Eduardo Rubem Nascimento da Rocha escreveu: Duas coisas, companheiro?: 1) ParamStr() não é uma variável, e sim uma função para recuperar os parâmetros que são passados na linha de comando responsável pela execução de sua aplicação; 2) Quando for passar como parâmetros strings muito extensas e/ou que tenham espaços em branco, passe-os delimitados com aspas duplas. Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:ecastroa_edu%40yahoo.com.brDate: Tue, 26 Jun 2007 20:46:46 -0300Subject: Re: [delphi-br] Abrir uma arquivo com dois cliques Grande Rubem,Mas a variável ParamStr(1) trunca o nome do arquivo, você deverá tomar cuidado com o nome do arquivo, se tiver mais do que 8 caracteres ele virá truncado.EduardoRubem Nascimento da Rocha escreveu: Quem procura, acha! Associate an application with a file extension http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:elcio%40elciohp.comDate mailto:elcio%40elciohp.comDate: Tue, 26 Jun 2007 17:32:53 -0300Subject: [delphi-br] Abrir uma arquivo com dois cliques Senhores,Boa tarde.Sou novo no grupo e programador iniciante.Tentei pesquisar nos e-mais antigos mas ainda não conseguiencontrar a informação.Fiz um aplicativo de orçamentos e criei um arquivo onde salvo asinformações do orçamento.Este é um arquivo de texto (criei a extensão *.orc) onde associocada linha a um campo sem qualquer controle de segurança adicional.Gostaria de que quando eu desse 2 clicks no arquivo, ele abri-sea minha aplicação e exibisse na tela o orçamento.Não sei como fazer para que quando o programa fosse abertoacionasse a minha procedure.Alguém sabe onde posso encontrar informações a este respeito.Grato.Elcio R. Valentim __ 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/ http://desktop.msn.com.br/ http://desktop.msn.com.br/ http://desktop.msn.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/ http://desktop.msn.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Migração para Delphi 20 07
Se você estiver usando componentes do próprio Delphi sem problema algum, caso contrario você terá que adquirir os componentes para instalação na nova versão e depois migre o seus sistemas. Agora migrar biblioteca não é fácil, você terá um trabalho grande, mas trocar por ZEOS acho uma boa, o componente é muito bom. Eduardo Diego Dmitruk Maturana escreveu: Olá Pessoal, tenho alguns sistemas feitos em Delphi 5 e Delphi 7 usando o MySQL via ODBC e outros com paradox. Estou querendo migrar para o Delphi 2007, gostaria de saber se vou encontrar alguma dificuldade nesta migração. Gostaria de parar de usar ODBC e começar a usar o ZEOS, ou algum outro recurso do próprio Delphi 2007. O que vocês recomendam? Uso o Delphi 2007 ou o 2006 ? Um Abraço a todos. Fiquem com DEUS! Diego. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sugestão qual melhor form a de trabalhar vocês acham?
Forma 1, mas acho melhor ter duas tabelas, por que você poderá receber em parcelas, em 2 ou mais formas de pagamento. Eduardo Ricardo Lima escreveu: Tenho a seguinte situação: Uma tabela de contas a receber onde tem um campo chamado forma de pagamento que pode ser: Cheque, Dinheiro, Cartão, Duplicata, Convenio Tenho duas formas de trabalhar: Forma 1: Campo do tipo char(1) que recebe os valores: C - Cheque D - Dinheiro K - Cartão U - Duplicata O - Convenio Foma 2: Campo do tipo int que recebe os valores: 1 - Cheque 2 - Dinheiro 3 - Cartão 4 - Duplicata 5 - Convenio Na opnão de vocês qual dessas duas formas seria melhor ou mais correto de fazer o cadastro no banco de dados. Obrigado. At. Ricardo Lima [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos calculados
Tem SIM, qualquer dataset faz isso, basta adicionar o novo campo e no evento OnCalcFied do Data Set ( Query ou Table ) tratar a informação. Eduardo Fernando Nappe escreveu: Fala Tiago, blz? Com TTable sem chance. A solução fácil seria usar campos agregados, um recurso do TClientDataSet. Att. Fernando Nappe Em 18/06/07, Tiago Zacchi [EMAIL PROTECTED] mailto:tiago_zacchi%40yahoo.com.br escreveu: Olá. Pesoal tenho uma grid que onde tenho um campo do tipo Calculated, onde calculo valor total dos itens! Como posso fazer para criar um outro campo calculated que tenha o valor total dos itens, ou seja, soma do campoa anterior que tem o valor do item ?? Isso no mesmo TTable! Queria saber se tem alguma função ?? Obrigado1 Att, Tiago Zacchi. [As partes desta mensagem que não continham texto foram removidas] -- Fernando Nappe Analistas de Sistemas http://nappe.blogspot.com http://nappe.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos calculados
Da mesma maneira que você fez no primeiro caso. Ainda não entendi o mistério e nem as varias maneiras que você fez. Poste aqui o evento OnCalcField deste DataSet para que possamos ver o que esta errado. Eduardo Tiago Zacchi escreveu: Olá, Primeiramente obrigado a todos. Tem SIM, qualquer dataset faz isso, basta adicionar o novo campo e no evento OnCalcFied do Data Set ( Query ou Table ) tratar a informação. Mas como posso tratar a informação, tentei de varias maneiras. veja que quero calcular a soma de todas as ocorrencias de um campo que já é uma formula!!! Vc poderia me dar um exemplo ? Pois tudo que tentei não deu o resultafo esperado ! Obrigado ! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos calculados
Agora você pode me explicar por que você não usa esta mesmo variavel
vItpValTotIte para fazer o calculo seguinte ?
Isso que eu não entendi, qual é o problema ?
Se você já faz um calculo no ITEM, agora você quer junto com este
resultado fazer um novo calculo para um novo campo calculado, então o
que esta acontecendo de errado ?
Eduardo
Ps: C é uma linguagem que uso até hoje, principalmente para algoritmos
mais pesados.
Tiago Zacchi escreveu:
Ok... Segue o codigo que usei para calcular o total do item (o código
esta em C++, porque no momento estou usando o C++ no BDS 2006) :
void __fastcall TfrmCadPedItem::tblPedItemCalcFields(TDataSet *DataSet)
{
double vItpValTotIte;
// Calcula total do item
try
{
vItpValTotIte = ((tblPedItemITPVALUNI-AsFloat *
tblPedItemITPQTD-AsFloat) +
tblPedItemITPVALACR-AsFloat) - tblPedItemITPVALDES-AsFloat;
}
catch (...)
{
vItpValTotIte = 0;
}
tblPedItemFrlITPVALTOTITE-AsFloat = vItpValTotIte;
// Calcula total do pedido
...
}
//--
Dai não sei como somar o total de todas as ocorrencias deste campo
calculado, supondo que tenha 5 registro, ou seja, 5 itens cada um com
um valor total. Como calcular o valor total geral do pedido ??? Talves
seje algo muito simples mas não consegui captar o logica!
PS.: Caso puderes me dar um exemplo pode ser em Pascal (Delphi) mesmo,
o importante pra mim seria a logica usada !
Obrigado !
- Original Message -
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, June 26, 2007 2:15 PM
Subject: Re: [delphi-br] Campos calculados
Da mesma maneira que você fez no primeiro caso.
Ainda não entendi o mistério e nem as varias maneiras que você fez.
Poste aqui o evento OnCalcField deste DataSet para que possamos ver o
que esta errado.
Eduardo
Tiago Zacchi escreveu:
Olá,
Primeiramente obrigado a todos.
Tem SIM, qualquer dataset faz isso, basta adicionar o novo campo e no
evento OnCalcFied do Data Set ( Query ou Table ) tratar a informação.
Mas como posso tratar a informação, tentei de varias maneiras. veja
que quero calcular a soma de todas as ocorrencias de um campo que já é
uma formula!!!
Vc poderia me dar um exemplo ? Pois tudo que tentei não deu o
resultafo esperado !
Obrigado !
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] Calcular Data
rsrs
Eu não estava perguntando, eu afirmei, mesmo assim valeu pela confirmação.
Eduardo
Rodrigo Magno escreveu:
sim funciona.
Rodrigo Magno
* [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br
msn [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br
- Mensagem original
De: Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Sexta-feira, 22 de Junho de 2007 10:13:13
Assunto: Re: Res: [delphi-br] Calcular Data
Isso funciona em qualquer versão do Delphi.
Eduardo
Rodrigo Magno escreveu:
Assim nao funciona pra mim nao, pois trabalho com d 5 e vou ter q
fazer nao mao pois nao tenho a classe datautils, como no d7. se algue
puder me ajudar agradeceria.
Abraços,
Rodrigo
- Mensagem original
De: Eduardo Castro Alves ecastroa_edu@ yahoo.com. br
mailto:ecastroa_ edu%40yahoo. com.br
Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos
.com.br
Enviadas: Quinta-feira, 21 de Junho de 2007 16:23:59
Assunto: Re: [delphi-br] Calcular Data
Var
Data : TDate;
begin
Data := Date - 30;
ShowMessage( DateToStr( Data));
end;
Assim não funciona
Se isso não te atende passe mais detalhes do q vc precisa.
Eduardo
Rodrigo Magno escreveu:
Amigos,
Alguem tem alguma função em que calcula uma data por exemplo a data de
hoje, trinta dias pra traz, fazendo validação nos meses em que tenha
30 dias e o mes de fevereiro que tem q ver se e ano bixsexto ou não.
Atenciosamente,
Rodrigo Cristiano Magno
( (31) 3477-0324 (Casa )
( (31) 9189-5014 (Celular)
* [EMAIL PROTECTED] com.br mailto:rcmagnobh% 40yahoo.com. br
msn [EMAIL PROTECTED] com.br mailto:rcmagnobh% 40yahoo.com. br
_ _ _ _ _ _
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. com.br/oqueeugan hocomisso
http://yahoo. com.br/oqueeugan hocomisso
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ _ _
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo. com.br/oqueeugan hocomisso
http://yahoo. com.br/oqueeugan hocomisso
[As partes desta mensagem que não continham texto foram removidas]
__
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir uma arquivo com dois cliques
Grande Rubem, Mas a variável ParamStr(1) trunca o nome do arquivo, você deverá tomar cuidado com o nome do arquivo, se tiver mais do que 8 caracteres ele virá truncado. Eduardo Rubem Nascimento da Rocha escreveu: Quem procura, acha! Associate an application with a file extension http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. http://www.swissdelphicenter.ch/en/showcode.php?id=178Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:elcio%40elciohp.comDate: Tue, 26 Jun 2007 17:32:53 -0300Subject: [delphi-br] Abrir uma arquivo com dois cliques Senhores,Boa tarde.Sou novo no grupo e programador iniciante.Tentei pesquisar nos e-mais antigos mas ainda não conseguiencontrar a informação.Fiz um aplicativo de orçamentos e criei um arquivo onde salvo asinformações do orçamento.Este é um arquivo de texto (criei a extensão *.orc) onde associocada linha a um campo sem qualquer controle de segurança adicional.Gostaria de que quando eu desse 2 clicks no arquivo, ele abri-sea minha aplicação e exibisse na tela o orçamento.Não sei como fazer para que quando o programa fosse abertoacionasse a minha procedure.Alguém sabe onde posso encontrar informações a este respeito.Grato.Elcio R. Valentim __ 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/ http://desktop.msn.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos calculados
Pera ai então.
Agora que entendi o que você quer fazer.
De cara me vem na cabeça 2 soluções.
1o ) Após carregar o DataSet calcular o total.
2o ) Fazer um UNION na query calculando o total na segunda parte da query.
Eduardo
Tiago Zacchi escreveu:
O que eu não consigo entender é o seguinte:
Como somar todos os totais dos itens de um DBGrid no evento
onCalcFields, pois, me corrija se eu estiver errado, neste evento eu
apenas consigo ter o valor total do item corrente, ou seja, o registro
que esta selecionado. E não o total de cada item do DBGrid. È Isso
mesmo, ou estou totalmente enganado?
Ao meu ver teria que, neste evento, fazer uma leitura de todos os
itens da grid para ir somando os totais de cada linha da DBGrid.
Tentei armazenar os totais dos itens em uma variável global mas não
deu certo, tentei ir acumulando o valor da variável dentro do evento
onCalcField,mas obviamente não deu certo, pelo fato de que a variável
ser destruída cada vez que o evento é finalizado! Certo?
Bom sou iniciante no assunto, então não estou conseguindo compreender
a idéia de como funciona estes tipos de campos calculados !
Poderias me dar um exemplo de como devo proceder?
Obrigado!
- Original Message -
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, June 26, 2007 5:07 PM
Subject: Re: [delphi-br] Campos calculados
Agora você pode me explicar por que você não usa esta mesmo variavel
vItpValTotIte para fazer o calculo seguinte ?
Isso que eu não entendi, qual é o problema ?
Se você já faz um calculo no ITEM, agora você quer junto com este
resultado fazer um novo calculo para um novo campo calculado, então o
que esta acontecendo de errado ?
Eduardo
Ps: C é uma linguagem que uso até hoje, principalmente para algoritmos
mais pesados.
Tiago Zacchi escreveu:
Ok... Segue o codigo que usei para calcular o total do item (o código
esta em C++, porque no momento estou usando o C++ no BDS 2006) :
void __fastcall TfrmCadPedItem::tblPedItemCalcFields(TDataSet *DataSet)
{
double vItpValTotIte;
// Calcula total do item
try
{
vItpValTotIte = ((tblPedItemITPVALUNI-AsFloat *
tblPedItemITPQTD-AsFloat) +
tblPedItemITPVALACR-AsFloat) - tblPedItemITPVALDES-AsFloat;
}
catch (...)
{
vItpValTotIte = 0;
}
tblPedItemFrlITPVALTOTITE-AsFloat = vItpValTotIte;
// Calcula total do pedido
...
}
//--
Dai não sei como somar o total de todas as ocorrencias deste campo
calculado, supondo que tenha 5 registro, ou seja, 5 itens cada um com
um valor total. Como calcular o valor total geral do pedido ??? Talves
seje algo muito simples mas não consegui captar o logica!
PS.: Caso puderes me dar um exemplo pode ser em Pascal (Delphi) mesmo,
o importante pra mim seria a logica usada !
Obrigado !
- Original Message -
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, June 26, 2007 2:15 PM
Subject: Re: [delphi-br] Campos calculados
Da mesma maneira que você fez no primeiro caso.
Ainda não entendi o mistério e nem as varias maneiras que você fez.
Poste aqui o evento OnCalcField deste DataSet para que possamos ver o
que esta errado.
Eduardo
Tiago Zacchi escreveu:
Olá,
Primeiramente obrigado a todos.
Tem SIM, qualquer dataset faz isso, basta adicionar o novo campo e no
evento OnCalcFied do Data Set ( Query ou Table ) tratar a informação.
Mas como posso tratar a informação, tentei de varias maneiras. veja
que quero calcular a soma de todas as ocorrencias de um campo que já é
uma formula!!!
Vc poderia me dar um exemplo ? Pois tudo que tentei não deu o
resultafo esperado !
Obrigado !
[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: Res: [delphi-br] Calcular Data
Isso funciona em qualquer versão do Delphi. Eduardo Rodrigo Magno escreveu: Assim nao funciona pra mim nao, pois trabalho com d 5 e vou ter q fazer nao mao pois nao tenho a classe datautils, como no d7. se algue puder me ajudar agradeceria. Abraços, Rodrigo - Mensagem original De: Eduardo Castro Alves [EMAIL PROTECTED] mailto:ecastroa_edu%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 21 de Junho de 2007 16:23:59 Assunto: Re: [delphi-br] Calcular Data Var Data : TDate; begin Data := Date - 30; ShowMessage( DateToStr( Data)); end; Assim não funciona Se isso não te atende passe mais detalhes do q vc precisa. Eduardo Rodrigo Magno escreveu: Amigos, Alguem tem alguma função em que calcula uma data por exemplo a data de hoje, trinta dias pra traz, fazendo validação nos meses em que tenha 30 dias e o mes de fevereiro que tem q ver se e ano bixsexto ou não. Atenciosamente, Rodrigo Cristiano Magno ( (31) 3477-0324 (Casa ) ( (31) 9189-5014 (Celular) * [EMAIL PROTECTED] com.br mailto:rcmagnobh% 40yahoo.com. br msn [EMAIL PROTECTED] com.br mailto:rcmagnobh% 40yahoo.com. br _ _ _ _ _ _ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo. com.br/oqueeugan hocomisso http://yahoo. com.br/oqueeugan hocomisso [As partes desta mensagem que não continham texto foram removidas] __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data no delphi
Assim funciona. var data : tdatetime; begin data := date + 7; end; Eduardo rzzanatta escreveu: Olá gostaria de saber como faço pra adicionar 7 dias a partir da data de hoje por ex. var data : tdatetime; begin data := data + 7; end; desse jeito nao funciona, como faço?
Re: [delphi-br] Calcular Data
Var Data : TDate; begin Data := Date - 30; ShowMessage(DateToStr(Data)); end; Assim não funciona Se isso não te atende passe mais detalhes do q vc precisa. Eduardo Rodrigo Magno escreveu: Amigos, Alguem tem alguma função em que calcula uma data por exemplo a data de hoje, trinta dias pra traz, fazendo validação nos meses em que tenha 30 dias e o mes de fevereiro que tem q ver se e ano bixsexto ou não. Atenciosamente, Rodrigo Cristiano Magno ( (31) 3477-0324 (Casa ) ( (31) 9189-5014 (Celular) * [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br msn [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campo negativo
Valor3 = Abs( Valor1- Valor2 ); O método Abs(valor) sempre retorna o valor positivo. Eduardo Rodrigo Magno escreveu: Amigos Delphianos, Estou precisando de como fazer o seguinte, tem uma condição aonde que : Valor1- Valor2 = Valor3 aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim : valor2-valor1 = valor3. Alguem poderia me falar como podera fazer isto ? Obs : Como posso descobrir se o valor e negativo Rodrigo Magno * [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br msn [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formato de Data do Windows
Algum tempo discutimos sobre isso, volto a repetir, na minha humilde opinião o seu sistema tem que ser igual a todos os sistemas que o usuário tem instalado na maquina dele. Estude sobre EncodeDate e DecodeDate. Agora se você quer realmente está solução para o seu desenvolvimento basta você colocar na seção initialization: ShortDateFormat := 'dd/mm/'; Eduardo Sérgio escreveu: Nobres colegas, Existe alguma maneira de se alterar o formato de data do windows via delphi pois estou com um pequeno problema onde maquinas que estão com formato de data d/M/ o sistema não entende e da erro obrigando me a alterar o formato do windows para dd/mm/. Então gostaria de fazer algo mais dinâmico, ou seja, o cara logou no sistema, já verifica o formato de data do windows, e se nao for 'dd/mm/', o sistema já altera para tal. Existe essa possibilidade? Aguardo retorno. Obrigado Sergio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Iniciante - Inserir data em branco no banco de dados postgres.
Danilo não é bem assim não, alguns bancos ( Oracle e MySql com certeza ) você consegue passar na criação da tabela um valor Default NULL. No MySQL quando você cria um campo do tipo data ele vem por default com a mascara '00/00/', se você não alterar todo insert que não for preenchido o campo vem com este valor. Nos demais bancos não sei como funciona mas os dois que eu trabalho é assim, nos demais tem que pesquisar na documentação do BD para saber, ou esperar que um nobre colega de uma explicação pela lista. Espero ter ajudado. Eduardo Danilo Lustosa Neves escreveu: Por definição os DBs nao aceitam valore em branco nos campos tipo Data e Hora. Vc pode deixar a opção do campo receber na criacao da tabela. Na criacao da tabela, se vc colocar notnull ele nunca recebera valores nulos. Se nao colocar nada, por padrao ele deixar inserir registro sem a obrigacao de preencher o campo Data. Veja que EM BRANCO e NULO sao coisas totalmente diferentes Em 19/06/07, [EMAIL PROTECTED] mailto:tiano27%40yahoo.com.br [EMAIL PROTECTED] mailto:tiano27%40yahoo.com.br escreveu: Colegas Como faço para inserir um campo data em branco no banco de dados? Grato. []´s -- Atenciosamente, [] Danilo A. Lustosa Neves 71 3489.9529 / 9141.4170 [EMAIL PROTECTED] mailto:danilolustosa%40gmail.com SERVIRTUAL - TECNOLOGIA EM SISTEMAS DE INTERNET [---] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Salvar conteudo de uma query
Ta na mão,
type
TTipo = (ttAbrir, ttGravar);
TForm1 = class(TForm)
...
procedure ProcessarArquivo(pDataSet: TDataSet; pArquivo: String; pTipo:
TTipo);
var
F : TextFile;
i,
x : Integer;
Linha,
s : String;
vArquivo : Array [0..MAX_PATH] of Char;
begin
StrPCopy(vArquivo, pArquivo);
if (FileExists(vArquivo)) and (pTipo = ttGravar) then
DeleteFile(vArquivo);
AssignFile(F, vArquivo);
if FileExists(vArquivo) then
Reset(F)
else
begin
Rewrite(F);
Append(F);
end;
case pTipo of
ttGravar :
begin
for i := 0 to pDataSet.RecordCount - 1 do
begin
s := '';
for x := 0 to pDataSet.Fields.Count - 1 do
begin
s := s + pDataSet.Fields[x].AsString;
if x pDataSet.Fields.Count - 1 then
s := s + ';';
end;
Writeln(F, s);
end;
end;
ttAbrir :
begin
Readln(F, Linha);
s := '';
x := -1;
for i := 1 to Length(Linha) do
begin
pDataSet.Append;
if Linha[i] ';' then
s := s + Linha[i]
else
begin
Inc(x);
case pDataSet.Fields[x].DataType of
ftDate,
ftDateTime : pDataSet.Fields[x].AsDateTime :=
StrToDate(s);
ftInteger : pDataSet.Fields[x].AsDateTime :=
StrToInt(s);
ftFloat,
ftCurrency : pDataSet.Fields[x].AsDateTime :=
StrToFloat(s);
else
pDataSet.Fields[x].AsString := s;
end;
end;
end;
Inc(x);
pDataSet.Fields[x].AsVariant := s;
pDataSet.Post;
end;
end;
CloseFile(F);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
ProcessarArquivo(qry1, 'C:\TESTE.TXT', ttGravar);
end;
QQ Avise !!!
Eduardo
Fco Yahoo escreveu:
Ola pessoal, estou tendo um problema muito serio aqui comigo, preciso
gerar
um arquivo contendo os registros de uma determinada tabela por periodo,
portanto eu faria isso construindo uma query:
If query1.active = true then query1.active:=false;
query1.sql.clear;
query1.sql.add('select * from table1 where (condicao) ');
Agora como eu faço para gravar 1 arquivo contendo esses registros
Dai pra frente eu nao sei, e tambem como faço para ler esse arquivo e
inserir os registros dele em uma table,
Preciso disso, pois estou colocando 1 aplicativo fora do escritorio e
tenho
q capturar tudo o que nesse aplicativo for digitado.
Agradeco imensamente toda e qualquer ideia;
Se quizerem podem entrar em contato em pvt
[EMAIL PROTECTED] mailto:franciscoacao%40hotmail.com
[EMAIL PROTECTED] mailto:franciscocarlos65%40hotmail.com
[EMAIL PROTECTED] mailto:fcandrade2001%40yahoo.com.br
[EMAIL PROTECTED]
mailto:fcandrade%40acaocontabilidade.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisando aniversário por período
Tente assim que funciona. where data_Nascimento) = :DataIni and data_Nascimento) = :DataFim Eduardo ricardo_sx escreveu: Amigos, boa noite. Estou tentando fazer uma consulta onde retorne, através de um período informado, os registros contido na tabela paroquiano. Eu tenho a seguinte linha que atende em parte o meu problema: select * from paroquiano where (extract(day from data_Nascimento)=:DiaIni and extract(day from data_Nascimento)=:DiaFim) and extract(month from data_Nascimento) =:MesIni; //poderia incluir até and extract(month from data_Nascimento) =:MesFim que não vai fazer efeito Através dessa instrução, caso eu digite 01/04 a 31/04, eu vou ter o retorno desejado, porém, se eu digitar 25/04 a 03/05 não vou conseguir resultado. Gostaria de saber se alguém tem uma solução pra esse problema? Lembrando que utilizo interbase 6.0 PS: procurei mensagens anteriores sobre esse assunto e, as dicas informadas, não fizeram efeito pra mim. Peguei todas e testei na hora no interbase e nada de gerar o retorno desejado.
Re: [delphi-br] String com caracter es estranhos, como removê-los?
Trim( Variavel ) Só isso, #0 é igual a Nulo. Eduardo Fellipe Henrique escreveu: Olá amigos, estou pegando uma string num Buffer, mas ela vem assim: 'Fellipe'#0#0#0#0 Como faço pra remover os #0 dela? ficando somente o texto mesmo? Desde já agradeço... -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Exportar de MySQL para Firebird
O Backup gerado pelo MySQL Adminitrator gera um codigo de insert linha a linha de uma olhada no arquivo gerado e vê se não atende sua necessidade. Eduardo Daniel Lucena escreveu: Boa tarde senhores, Atualmente trabalho com firebird + delphi 2006, porém preciso fazer uma migração de dados de MySQL para Firebird. A dúvida é: Existe alguma ferramente que gere uma base de dados firebird apartir de uma base de dados MySQL??? Caso não exista, qual o melhor componente para acessar um banco MySQL com o Delphi 2006? Obrigado a todos! Daniel Vitor Eng. de Computação __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conponente |_|
Maskedit no editmask coloque \|99\|99\|\/|99\|99\|\;1;_ Lembrando que 9 se não for obrigatório e 0 se for obrigatório. Eduardo alan_adolfo2 escreveu: estou querendo saber se alguem tem um componete de edit deste formato e como eu posso fazer para obiter |_|_|/|_|_|
Re: [delphi-br] Delphi e Oracle, campos 4x maiores?
Pera ai, muita calma nesta hora, como você esta fazendo esta migração ? Eduardo Yahoo - André J. J escreveu: mas entao, se o problema está na migracao, que parametro eu devo mudar para ele nao quadriplicar o tamanho dos campos?? no delphi quando entra, fala que o campo nao é do tipo esperado. justamenet, pq o tamanho está maior que o que na verdade é - Original Message - From: Eduardo Castro Alves To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, May 28, 2007 5:34 PM Subject: Re: [delphi-br] Delphi e Oracle, campos 4x maiores? 1- Muito estranho, acabei de testar e não consegui replicar este erro, acho que houve algum problema na migração das tabelas. 2- Number no Oracle é um float, ate algumas versões anteriores do Oracle não existe tipo INTEGER e FLOAT, tudo era NUMBER com e sem casas decimais. Por habito até hoje trabalho uso o tipo NUMBER, existe alguns profissionais que usam a versão 10g do Oracle que não ache estranho se ele não souber que existe os tipos INTEGER, FLOAT, entre outros que não existiam até pouco tempo atraís. Eduardo Yahoo - André J. J escreveu: Olá Pessoal, eu peguei um banco SQL-SERVER e converti para ORACLE.. até ai tudo bem 1 - mas eu reparei que campos CHAR(4) no oracle por exemplo está como CHAR (16) no delphi porque isso? sempre multiplicado por 4 :/ 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. [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] Estrutura de Tabelas - Oracle
Tamara no Oracle vc tb consegue estas informações. select * from sys.col De uma olhada também na tabela de objetos do Oracle. select * from dba_objects where object_type = 'TABLE' Neste caso coloquei apenas as tabelas, mas nesta tabela você vai encontrar todos os objetos, procedimentos, funções, índice e etc. Se precisar de mais alguma coisa posta aqui. Eduardo Tamara Clemente escreveu: Bom dia pessoal... Estou precisando de uma ajudinha de vcs... Eu tenho montada consultas em firebird q utilizam as tabelas de estrutura do banco de dados, por exemplo: select a.rdb$field_name from rdb$relation_fields a, rdb$types b, rdb$fields cetc Estrou precisando fazer a mesma coisa com o Oracle... alguém poderia me dar o caminho das pedra por favor...rs.. Fico no aguardo, obrigada! Tamara Analista Desenvolvedora [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Oracle, campos 4x maiores?
Ricardo, só para acrescentar, mesmo que vc tenha um campo ( NUMBER(14) ) sem decimais, no delphi sempre sera FLOAT por que o tipo NUMBER é um ponto flutuante, nele você pode fixar ou não o numero de casas decimais. Eduardo Ricardo César Cardoso escreveu: Bom dia! 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. Provavelmente aqui a conversão foi para FLOAT pq provavelmente o campo foi definido como NUMBER(15, 3) [quinze dígitos e três casas decimais]. Sds, Ricardo. Yahoo - André J. J [EMAIL PROTECTED] mailto:sirknow16%40yahoo.com.br escreveu: Olá Pessoal, eu peguei um banco SQL-SERVER e converti para ORACLE.. até ai tudo bem 1 - mas eu reparei que campos CHAR(4) no oracle por exemplo está como CHAR (16) no delphi porque isso? sempre multiplicado por 4 :/ 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] PivotCube X Teechart
Era exatamente o problema que eu tinha, o mais interessante de um sistema de BI são os gráficos, não iria acrescentar em nada um Grid cheio de efeitos especiais sem os gráficos. Optamos pelo Radar Cub ( acho q era este o nome ), nem procurei saber se existia uma solução para o problema na época. Acho que a melhor alternativa se você quiser mesmo optar pelo Pivot é mandar um email para eles e ver a posição deles. Estes testes eu realizei tem mais de 1 ano, acho que eles devem ter uma solução para o problema. Eduardo Natanael Rodrigues escreveu: Legal... Meu sistema tem mais de 50 telas de consultas e 99% tem gráfico, preciso demais incluir a consulta em cubos, no teu caso... chegou a utilizar outro componente? Ou simsplesmente desistiu de utilizá-lo? Grato _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Castro Alves Enviada em: segunda-feira, 28 de maio de 2007 15:08 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] PivotCube X Teechart Já, só consegui instalar o Pivot fazendo a mesma coisa, infelizmente como eu só queria testar o bicho desistimos de usar o Pivot por que o sistema em questão tinha muitos gráficos. Eduardo Natanael Rodrigues escreveu: Alguem já teve algum problema quando vai instalar o pivotCube ou o Teechart? O erro é este abaixo: Cannot load package 'tee70.' It contains unit 'TeeAbout,'which is also contained in package 'Tee77'. se desabilito o teechart e instalo o pivot, ele instala sem problemas, e se tento habilitar o componente novamente ele da o mesmo erro, deixando habilitar somente quando desabilitar o pivot do Install Packages [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] Estrutura de Tabelas - Oracle
A tabela ALL_TAB_COLUMNS traz os dados de todas as tabelas de todos os usuarios, na tabela COL traz apenas os dados do usuário logado no banco. Se você reparar nesta tabela tem um campo chamado OWNER, este campo indica o nome do usuário proprietário da tabela. Eduardo Tamara Clemente escreveu: Opa... Obrigada pela atenção de todos... eu consegui alguma coisinha depois de muito caçar pela net...rs... acabei utilizando da seguinte forma: select count(COLUMN_NAME) qtd from ALL_TAB_COLUMNS where TABLE_NAME ='tabela'... e consegui sanar o o meu problema... vlw Tamara Analista Desenvolvedora [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PivotCube X Teechart
Já, só consegui instalar o Pivot fazendo a mesma coisa, infelizmente como eu só queria testar o bicho desistimos de usar o Pivot por que o sistema em questão tinha muitos gráficos. Eduardo Natanael Rodrigues escreveu: Alguem já teve algum problema quando vai instalar o pivotCube ou o Teechart? O erro é este abaixo: Cannot load package 'tee70.' It contains unit 'TeeAbout,'which is also contained in package 'Tee77'. se desabilito o teechart e instalo o pivot, ele instala sem problemas, e se tento habilitar o componente novamente ele da o mesmo erro, deixando habilitar somente quando desabilitar o pivot do Install Packages [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Oracle, campos 4x maiores?
1- Muito estranho, acabei de testar e não consegui replicar este erro, acho que houve algum problema na migração das tabelas. 2- Number no Oracle é um float, ate algumas versões anteriores do Oracle não existe tipo INTEGER e FLOAT, tudo era NUMBER com e sem casas decimais. Por habito até hoje trabalho uso o tipo NUMBER, existe alguns profissionais que usam a versão 10g do Oracle que não ache estranho se ele não souber que existe os tipos INTEGER, FLOAT, entre outros que não existiam até pouco tempo atraís. Eduardo Yahoo - André J. J escreveu: Olá Pessoal, eu peguei um banco SQL-SERVER e converti para ORACLE.. até ai tudo bem 1 - mas eu reparei que campos CHAR(4) no oracle por exemplo está como CHAR (16) no delphi porque isso? sempre multiplicado por 4 :/ 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FPC
Não entendi, o que seria tão genial neste compilar para trabalhar com ponto flutuante ? Sempre trabalhei sem problema nenhum, você teria algum exemplo da diferença ? Eduardo Joao Morais escreveu: Walter Alves Chagas Junior wrote: Quanto ao Free Pascal estar ainda esta em fase de amadurecimento, você precisaria nos dizer mais em qual grau de amadurecimento ele estaria. Lá nos primordios ainda ou já podendo deixar preocupados os cartolas da Code Gear? É pra deixar preocupado no quesito compilador. FPC gera excelente código: ponto flutuante ele dá uma surra no Delphi (qualquer versão), e ao trabalhar com ansi strings e memória ele perde apenas para o D2007. Sem falar que FPC gera código para mais processadores e SOs do que a gente pode contar nos dedos. Enquanto a CG está preparando o compilador para Win64, o FPC já está lá faz muito tempo e está estável. Não é atoa que até o pessoal do RemObjects está largando o Kylix para usar FPC. O que a CG faz de bom mesmo é IDE. Então uma jogada legal dos caras seria construir um Delphi for FPC. Esse produto iria arrasar, pode apostar. -- Joao Morais
Re: Res: RES: [delphi-br] Servidor POP
Walter, está regra é valida apenas para email`s particulares, no caso do email com o domínio da empresa pertence a empresa e pode sim ser monitorado pela mesmo. Mas o interessante é avisar, para evitar qualquer tipo de constrangimento no futuro. Trabalhei em uma empresa onde os sócios recebiam todas as mensagens recebidas sobre o domínio da empresa. A idéia do nosso companheiro de lista é muito mais inteligente com certeza. Eduardo Hayalon A. de Oliveira escreveu: Ok obrigado pela dica - Mensagem original De: Walter Alves Chagas Junior [EMAIL PROTECTED] mailto:wchagas%40telemont.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Maio de 2007 14:20:29 Assunto: RES: [delphi-br] Servidor POP O Nobre amigo tem o pleno e sagrado direito de fazer isto sim, só o recomendo consultar um advogado antes de implantar a norma na empresa pois, pelo que sei, todos os funcionarios deverão ser comunicados antes de que o E-mail desta data em diante passará a ter seu conteúdo vistoriado e analisado. Caso contrario sua empresa pode ter problemas com a lei, por conta de violação de privacidade, caso algum funcionario se sinta neste direito. O Ideal é que todos sejam notificados pois aí não tem conversa. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicaçõ es S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] com.br Fone: (31) 3389-8217 Fax: (31) 3389-8215 -Mensagem original - De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br]Em nome de Hayalon A. de Oliveira Enviada em: quinta-feira, 17 de maio de 2007 12:25 Para: [EMAIL PROTECTED] os.com.br Assunto: Re: [delphi-br] Servidor POP Bom, não posso deixar meus usuarios terem acesso a envio de e-mais de qualquer origem sem antes analizalos, tanto quando enviam quanto quando recebem.. então a ideia é fazer o meu proprio servidor, onde posso baixar e analizar as msgs, e os usuarios se conectaram a ele para baixar as suas msgs.. (apenas as que eu quiser).. --- Guionardo Furlan [EMAIL PROTECTED] com escreveu: Conta teu problema aí. Quem sabe a solução já exista. Em 16/05/07, Hayalon A. de Oliveira [EMAIL PROTECTED] com escreveu: Tenho que desenvolver mesmo.. nenhum desses dois resolve meu problema valeu Hayalon Antunes de Oliveira - Mensagem original De: Ismair Alves [EMAIL PROTECTED] com Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 15 de Maio de 2007 18:39:56 Assunto: Re: [delphi-br] Servidor POP Voce quer desenvolver um servidor de email? Nao e mais facil voce usar o POSTFIX ou QMAIL? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo. blogspot. com Hayalon Antunes de Oliveira _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi...Um desabafo à Code Gear...
Rubem, 99% perfeito no comentário, o 1% fica por conta do QuickReport foi novamente integrado no BDS 2006 ( disponível para download para usuários registrados ) e no BDS 2007 também terá o QuickReport e o Rave. Eduardo Rubem Nascimento da Rocha escreveu: Existem algumas opiniões suas que não posso opinar, como o caso do Delphi 8, que jamais cheguei a usá-lo. Vou comentar sobre algumas opiniões suas a respeito do Delphi: Opinião #2 - O QuickReport é um componente de terceiros, que a Borland adotou como ferramenta padrão para criação de relatórios dentro do Delphi. Existem muitos fatores que fazem com que esse tipo de 'descontinuidade' aconteça, uma delas é a demanda de profissionais no mundo que utilizava o QuickReport. No Brasil, podem ser aos milhares, mas ao redor do mundo isso pode não ter sido um quórum suficiente pra Borland manter o QuickReport e adotar o RaveReports; Opinião #3 - Como você quer usar uma versão trial do Delphi 2007 já de cara pra implementar 10 projetos de peso? Não tem sentido! A licença já denota a que ela se presta: trial! Ou seja, é para usar e experimentar os recursos da ferramenta! Me desculpe, mas nesta opinião vc foi infeliz! :-( Opinião #4 - Concordo que o preço do BDS 2007 é um pouco salgado, mas existem as alternativas Turbo, que tb são excelentes e com preços um pouco mais baixos, que podem ser adquiridos por desenvolvedores autônomos sim! Opinião #5 - Estes componentes são de terceiros, criados por iniciativas de outros desenvolvedores e que, por conta da Internet, se tornaram populares. Existe até uma certa lógica na Borland em não ter incluído tais componentes na distribuição das licenças, tais como: o(s) componente(s) pode(m) ser facilmente encontrado(s) na internet; o(s responsável(is) por esse(s) componente(s) podem fazer atualizações que nem sempre poderiam ser acompanhados junto com os Update Packs fornecidos pela Borland, pois uma atualização feita pelo fabricante é muito mais prontamente disponibilizada do que um update pack, etc., etc., etc. Opinião #6 - Como assim falta de bom componente? Tem aos montes pela Net! Não tenha uma atitude acomodada, como a maioria da população tem em relação ao Governo Federal, esperando que ele resolva todos os seus problemas! Existem muitas alternativas free e open source que podem dar conta do recado. Para vc ter uma idéia, informe-se sobre o projeto Report Manager, que está hospedado no site http://sourceforge.net. É uma excelente ferramenta para criar relatórios, que inclusive pode competir em pé de igualdade com uma outra ferramenta excelente que uso sempre, o Report Builder! Conclusão: você está fazendo tempestada em copo d'água. Estou estudando outras plataformas para desenvolvimento de software, em especial .NET e Java. Mas continuarei até o fim com o Delphi, pois ele é que a mais de 10 anos paga o meu salário! Ah, e desculpe tb pelos meus desabafos! Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 17 May 2007 10:50:25 +Subject: [delphi-br] Delphi...Um desabafo à CodeGear... Trabalho com Delphi desde o Delphi 3 e sempre adorei essa ferramenta. Infelizmente, pra minha tristeza, minha equipe decidiu adotar o VB e migrar todos os projetos, até que se possa abandonar o Delphi definitivamente. Motivos? Vários!!!1. Desde o Delphi 8 a IDE do Delphi ficou horrivel. Telas e mais telas enchendo o espaço do monitor em detrimento do espaço que tínhamos para as telas do nosso aplicativo no Delphi 7.2. Descontinuidade de componentes tão usados no Brasil, como Quick Report, substituindo-o por aquela ferramenta tenebrosa: O Rave Report, que não deu ibope, tanto é que nem foi adicionada a palheta do Delphi 2007. 3. 30 dias para testes com o trial do Delphi 2007. O que dá pra fazer em 30 dias pra quem tem 10 projetos de peso?4. Preço do Delphi 2007, totalmente incompativel com a realidade brasileira.5. Componentes que sempre julgamos primordiais e que nunca foram adicionados ao Delphi como componentes da RXLib: currencyEdit, DateEdit, coisas que facilitam muito a vida do programador.6. Falta de um bom componente para relatório, inclusive que sirva pra impressão em matriciais.Desculpem o desabafo, mas eu gostava muito do Delphi:(Mani _ Veja só alguns dos novos serviços online no Windows Live Ideas — são tão novos que ainda não foram disponibilizados oficialmente. http://ideas.live.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as 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
Re: [delphi-br] Violação de Memória e m Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor dinâmico e um de tamanho fixo. var i : Integer; A1 : Array of String; A2 : Array [0..10] of String; begin Memo1.Clear; SetLength(A1, 20); // defino o tamanho do vetor for i := 0 to Length(A1) - 1 do A1[i] := 'Vetor A1 Linha ' + IntToStr(i); for i := 0 to 10 do Memo1.Lines.Add(A1[i]); for i := 0 to 10 do A2[i] := 'Vetor A2 Linha ' + IntToStr(i); for i := 0 to 10 do Memo1.Lines.Add(A2[i]); end; Eduardo Elias Magalhães da Paixão Junior escreveu: Amigos, Preciso perturbá-los mais uma vez, pois não consigo encontrar solução. Em uma unit, tenho o seguinte array declarado: Private logsCapturados: array of log -- Já tentei estático tb. Logo depois, em uma procedure, ele é criado: logsCapturados:=log.create; Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre quando o objeto não existe. O fato mais curioso é que se eu declarar o array DENTRO da procedure, ele funciona normalmente, com o mesmo código. Quando eu declaro como parte da classe, acontece isso. Alguém sabe??? Elias Magalhães da Paixão Junior ___ Análise de Sistemas e Banco de Dados Consultoria e desenvolvimento de programas, sistemas e websites Tel.: (0XX21) 8262-7955 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Violação de Memó ria em Array
Bem, então você terá que estudar Delphi e como se expressar melhor.
Você colocou isso:
logsCapturados:=log.create;
Então vamos ver se vc entende desenhando.
Se logsCapturados é um vetor, para você criar você deve passar o indice
de qual você está criando.
logsCapturados[INDICE] := LOG.CREATE;
Só estou surpreso por que se você conhece tanto assim de vetores não
saber isso.
Quanto ao passar um vetor como parametro para um metodo é o mesmo de
qualquer outro objeto ou variável.
Referente a ser humilde ou não acho que você não pode me julgar. Disse e
repito VOCÊ TEM QUE ESTUDAR MUITO MAIS isso não significa que eu não sou
humilde e sim que você precisa ESTUDAR E PRESTAR MAIS ATENÇÃO NO QUE
VOCÊ ESTÁ FAZENDO.
Eduardo
Ps: Ja foi o tempo que eu ficava perdendo o meu tempo com estas
discussões, por tanto não responderei nenhum outro email sobre este assunto.
Elias Magalhães da Paixão Junior escreveu:
Concordo plenamente que eu tenho que estudar muito e tb concordo que que
outras pessoas no mundo também, bem como outras precisam aprender certas
coisas como humildade, educação e decência.
Eduardo, agradeço sua “boa vontade” mas lamento lhe informar que sei
como se utiliza um array mas que vai ser bom pois essas dicas podem
servir para alguma outra pessoa, que assim como eu tb tem de estudar
muito.
Para que entendam melhor o que eu escrevi, vou colocar a procedure
inteira.
A declaração:
private
logsCapturados:array of icmpScan_cl_log_usr;
A procedure:
procedure icmpScan_cl_log_adm.procuraLogs;
var
busca: TSearchRec;
logList: TStrings;
Ret,i: Integer;
host: string;
begin
Ret := FindFirst('append\*.ims', faAnyFile, busca);
logList:=TStringlist.Create;
i:=0;
try
while Ret = 0 do
begin
logList.Add(busca.Name);
host:=copy(logList.ValueFromIndex[i],pos('_',logList.ValueFromIndex[i])+
1,length(logList.ValueFromIndex[i])-3-(pos('_',logList.ValueFromIndex[i]
)+1));
logsCapturados[i]:=icmpScan_cl_log_usr.create(host); -- O
erro acontece aqui. Como se a variável não tivesse sido declarada.
Ret := FindNext(busca);
i:=i+1;
end;
finally
begin
FindClose(busca);
end;
end;
end;
E voltando a dizer, que se eu declarar esse array como uma variável da
procedure, ao invés da unit, funciona.
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br]
Em nome de Eduardo Castro Alves
Enviada em: segunda-feira, 14 de maio de 2007 07:58
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Violação de Memória em Array
Acho que vc deve estudar muito. Segue abaixo um exemplo de um vetor
dinâmico e um de tamanho fixo.
var
i : Integer;
A1 : Array of String;
A2 : Array [0..10] of String;
begin
Memo1.Clear;
SetLength(A1, 20); // defino o tamanho do vetor
for i := 0 to Length(A1) - 1 do
A1[i] := 'Vetor A1 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A1[i]);
for i := 0 to 10 do
A2[i] := 'Vetor A2 Linha ' + IntToStr(i);
for i := 0 to 10 do
Memo1.Lines.Add(A2[i]);
end;
Eduardo
Elias Magalhães da Paixão Junior escreveu:
Amigos,
Preciso perturbá-los mais uma vez, pois não consigo encontrar solução.
Em uma unit, tenho o seguinte array declarado:
Private
logsCapturados: array of log -- Já tentei estático tb.
Logo depois, em uma procedure, ele é criado:
logsCapturados:=log.create;
Aqui ocorre o erro de violação de memória, aquele mesmo que ocorre
quando o objeto não existe. O fato mais curioso é que se eu declarar o
array DENTRO da procedure, ele funciona normalmente, com o mesmo
código.
Quando eu declaro como parte da classe, acontece isso. Alguém sabe???
Elias Magalhães da Paixão Junior
___
Análise de Sistemas e Banco de Dados
Consultoria e desenvolvimento de programas, sistemas e websites
Tel.: (0XX21) 8262-7955
[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
* Para ver as 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] Select com count
ParamByName é para passagem de parametro.
Use FieldByName que vai funcionar.
Eduardo
rzzanatta escreveu:
tenho essa select:
with dtmmovimento.qryGeracalendmensal do
begin
SQL.Clear;
SQL.Add('SELECT count(fi.CO_FICHAPREVENTIVA) ficha');
SQL.Add(' FROM ifichapreventiva fi,fichapreventiva f, periodo p,
categoria c');
SQL.Add(' WHERE f.CO_FICHAPREVENTIVA=fi.CO_FICHAPREVENTIVA AND
fi.CO_PERIODO = 3 AND f.CO_CATEGORIA = 12');
SQL.Add(' AND fi.CO_PERIODO=p.CO_PERIODO AND
f.CO_CATEGORIA=c.CO_CATEGORIA');
Open;
a:= parambyname('ficha').AsInteger;
end;
Só que ao executar a query ele me retorna esse erro: Parameter ficha
not found. O que estou fazendo de errado?
Re: [delphi-br] Ajuda com data
Isto não da aplicação e sim as configurações regionais do Windows, então
cada usuário do sistema operacional usa de um jeito.
Em uma empresa que eu trabalhei, tive um problema exatamente por causa
disso, teve um infeliz que usava a data com o formato mm-dd/, o
usuario disse que tinha varios softwares e todos funcionavam com este
formato de data, então por que o meu sistema não poderia funcionar assim.
Passei a usar sempre Decode e Encode quando trabalho com data e sempre
tentou prever este tipo de situação.
Eduardo
Eduardo Silva dos Santos escreveu:
acho que ninguem usa data nesse formato. pelo menos nunca vi em aplicações
comerciais.
Em 10/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Se a data estiver no formato mm/dd/ não vai funcionar desta forma,
quando li a pergunta foi a primeira coisa que pensei tb.
Eduardo
Eduardo Silva dos Santos escreveu:
que tal assim:
Try
StrToDate( '01/' + MaskEdit.Text );
except
ShowMessage( 'Data inválida' );
end;
simples e rasteiro,
Em 09/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.brecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Ve se ajuda.
if (Trim(Copy(MaskEdit1.Text, 2))) '' then
case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of
1..12 : Null
else
ShowMessage('Data invalida !');
end;
//ou
if (Trim(Copy(MaskEdit1.Text, 2)) '') and
((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 1) or
(StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 12)) then
ShowMessage('Data invalida');
Eduardo
Raphae Fonseca escreveu:
Boa tarde amigos da lista
preciso de uma ajuda de vcs. num maskeit eu mm/.
gostaria de fazer a critica se por acaso o usuário digitar
13/2007,
dando uma mensagem de erro.
algum amigo poderia me ajudar??
Raphael
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com
eduardo.drd%40gmail.com mailto:eduardo
.drd%40gmail.com
Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com data
Eduardo, como eu posso explicar para o diretor financeiro da Amil, que o
ERP que eles tem funciona com qualquer formato de data e o meu sistema não.
Pelo menos no meu ponto de vista, não é o usuário que tem que se adaptar
ao meu software e sim o meu software se adaptar ao usuário.
Quando o separador de milhar é ',' você pode para ele mudar também ?
Acho que isto é uma questão de opinião, respeito a sua, mas não posso
concordar com ela, já que existe inúmeras maneiras de contornar
problemas como este.
Eduardo
Eduardo Silva dos Santos escreveu:
Então Eduardo Castro, pra evitar esse problema com o farmata das datas eu
criei essa rotina:
if AnsilowerCase( ShortTimeFormat ) 'hh:mm' then begin
Aviso( 'O Formato da hora em seu computador não está no padrão hh:mm,
exemplo 09:57.' + #13 +
'Mude para esse formato nas configurações regionais no painel de
controle.' );
ExecuteFile( 'Control.exe', 'intl.cpl' );
Application.Terminate;
end;
if AnsilowerCase( ShortDateFormat ) 'dd/mm/' then begin
Aviso( 'O Formato da data em seu computador não está no padrão
dd/mm/, exemplo 14/01/1981.' + #13 +
'Mude para esse formato nas configurações regionais no painel de
controle.' );
ExecuteFile( 'Control.exe', 'intl.cpl' );
Application.Terminate;
end;
Em 10/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Isto não da aplicação e sim as configurações regionais do Windows, então
cada usuário do sistema operacional usa de um jeito.
Em uma empresa que eu trabalhei, tive um problema exatamente por causa
disso, teve um infeliz que usava a data com o formato mm-dd/, o
usuario disse que tinha varios softwares e todos funcionavam com este
formato de data, então por que o meu sistema não poderia funcionar
assim.
Passei a usar sempre Decode e Encode quando trabalho com data e sempre
tentou prever este tipo de situação.
Eduardo
Eduardo Silva dos Santos escreveu:
acho que ninguem usa data nesse formato. pelo menos nunca vi em
aplicações
comerciais.
Em 10/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.brecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Se a data estiver no formato mm/dd/ não vai funcionar desta
forma,
quando li a pergunta foi a primeira coisa que pensei tb.
Eduardo
Eduardo Silva dos Santos escreveu:
que tal assim:
Try
StrToDate( '01/' + MaskEdit.Text );
except
ShowMessage( 'Data inválida' );
end;
simples e rasteiro,
Em 09/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.brecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.brecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Ve se ajuda.
if (Trim(Copy(MaskEdit1.Text, 2))) '' then
case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of
1..12 : Null
else
ShowMessage('Data invalida !');
end;
//ou
if (Trim(Copy(MaskEdit1.Text, 2)) '') and
((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 1) or
(StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 12)) then
ShowMessage('Data invalida');
Eduardo
Raphae Fonseca escreveu:
Boa tarde amigos da lista
preciso de uma ajuda de vcs. num maskeit eu mm/.
gostaria de fazer a critica se por acaso o usuário digitar
13/2007,
dando uma mensagem de erro.
algum amigo poderia me ajudar??
Raphael
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram
removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com
eduardo.drd%40gmail.com mailto:eduardo.drd%40gmail.com
eduardo.drd%40gmail.com mailto:eduardo
.drd%40gmail.com
Site: http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas
Re: [delphi-br] Ajuda com data
Ricardo, EncodeDate tem no D5 tb.
Eduardo
Ricardo César Cardoso escreveu:
Apoiado... o melhor mesmo é usar uma função chamada EncodeDate que
está na unit DateUitls (só existe do D6 em diante).
Colocando num bloco try.. except fica muito direto como num dos
exemplos mostrados.
Sds,
Ricardo.
Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br escreveu: Isto não da aplicação
e sim as configurações regionais do Windows, então
cada usuário do sistema operacional usa de um jeito.
Em uma empresa que eu trabalhei, tive um problema exatamente por causa
disso, teve um infeliz que usava a data com o formato mm-dd/, o
usuario disse que tinha varios softwares e todos funcionavam com este
formato de data, então por que o meu sistema não poderia funcionar assim.
Passei a usar sempre Decode e Encode quando trabalho com data e sempre
tentou prever este tipo de situação.
Eduardo
Eduardo Silva dos Santos escreveu:
acho que ninguem usa data nesse formato. pelo menos nunca vi em
aplicações
comerciais.
Em 10/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Se a data estiver no formato mm/dd/ não vai funcionar desta
forma,
quando li a pergunta foi a primeira coisa que pensei tb.
Eduardo
Eduardo Silva dos Santos escreveu:
que tal assim:
Try
StrToDate( '01/' + MaskEdit.Text );
except
ShowMessage( 'Data inválida' );
end;
simples e rasteiro,
Em 09/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.brecastroa_edu%40yahoo.com.br
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Ve se ajuda.
if (Trim(Copy(MaskEdit1.Text, 2))) '' then
case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of
1..12 : Null
else
ShowMessage('Data invalida !');
end;
//ou
if (Trim(Copy(MaskEdit1.Text, 2)) '') and
((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 1) or
(StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 12)) then
ShowMessage('Data invalida');
Eduardo
Raphae Fonseca escreveu:
Boa tarde amigos da lista
preciso de uma ajuda de vcs. num maskeit eu mm/.
gostaria de fazer a critica se por acaso o usuário digitar
13/2007,
dando uma mensagem de erro.
algum amigo poderia me ajudar??
Raphael
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[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
mailto:eduardo.drd%40gmail.com
eduardo.drd%40gmail.com mailto:eduardo
.drd%40gmail.com
Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
[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
mailto:eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
http://www.drdsistemas.com/ http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com data
Ve se ajuda.
if (Trim(Copy(MaskEdit1.Text, 2))) '' then
case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of
1..12 : Null
else
ShowMessage('Data invalida !');
end;
//ou
if (Trim(Copy(MaskEdit1.Text, 2)) '') and
((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 1) or
(StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 12)) then
ShowMessage('Data invalida');
Eduardo
Raphae Fonseca escreveu:
Boa tarde amigos da lista
preciso de uma ajuda de vcs. num maskeit eu mm/.
gostaria de fazer a critica se por acaso o usuário digitar 13/2007,
dando uma mensagem de erro.
algum amigo poderia me ajudar??
Raphael
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com data
Se a data estiver no formato mm/dd/ não vai funcionar desta forma,
quando li a pergunta foi a primeira coisa que pensei tb.
Eduardo
Eduardo Silva dos Santos escreveu:
que tal assim:
Try
StrToDate( '01/' + MaskEdit.Text );
except
ShowMessage( 'Data inválida' );
end;
simples e rasteiro,
Em 09/05/07, Eduardo Castro Alves [EMAIL PROTECTED]
mailto:ecastroa_edu%40yahoo.com.br escreveu:
Ve se ajuda.
if (Trim(Copy(MaskEdit1.Text, 2))) '' then
case StrToInt(Trim(Copy(MaskEdit1.Text, 2))) of
1..12 : Null
else
ShowMessage('Data invalida !');
end;
//ou
if (Trim(Copy(MaskEdit1.Text, 2)) '') and
((StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 1) or
(StrToInt(Trim(Copy(MaskEdit1.Text, 2))) 12)) then
ShowMessage('Data invalida');
Eduardo
Raphae Fonseca escreveu:
Boa tarde amigos da lista
preciso de uma ajuda de vcs. num maskeit eu mm/.
gostaria de fazer a critica se por acaso o usuário digitar 13/2007,
dando uma mensagem de erro.
algum amigo poderia me ajudar??
Raphael
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
--
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi com Sqlserver - passando para Oracle
Basicamente retirar as funções do SQLServer e passar para funções do Oracle, esta seria a forma menos traumática. De uma olhada neste site http://www.baboo.com.br/absolutenm/templates/content.asp?articleid=9018zoneid=170 Eduardo Eduardo Paci Galvão escreveu: Pessoal, Possuo um sistema com acesso ao banco Sql Server, via ADO. Funciona perfeito, nada a reclamar. Só que existe uma possível necessidade de conversão para banco ORACLE (exigência do cliente). Alguém poderia me orientar sobre qual seria a forma menos traumática (e menos trabalhosa) de se fazer esta conversão? Saudações, Eduardo Paci Galvão Bacharel em Engenharia Elétrica - UFMG Analista de Sistemas www.egalvao.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Chamar uma functionou procedure a partir de uma variavel string
Rubens é possivel sim, amanhã eu mando um exemplo, são 1:00 ai ninguém merece rsrsrs. Eduardo Rubem Nascimento da Rocha escreveu: Se for uma simples função, realmente isso é impossível de fazer; agora, se for um método publicado em uma classe (ou seja, com escopo published), via RTTI é possível. Sds. From: Joao Morais [EMAIL PROTECTED] mailto:post%40joaomorais.com.br Reply-To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Chamar uma functionou procedure a partir de uma variavel string Date: Mon, 07 May 2007 13:03:41 -0300 Tavares wrote: Bom dia! gostaria de saber como faço para chamar uma procedure ou uma function a partir de uma variavel string que contenha o nome da Unit a ser chamada. Ex.: Var cNomerotina : String; Function chamarotina(cNomeRotina:String); Begin *** aqui entra os comando para chamar a referida rotina. End Se alguem tiver o pedaco de codigo e puder me enviar, serei muito grato. Graças a Deus isto é impossível de fazer. -- Joao Morais __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br http://search.msn.com.br
Re: [delphi-br] Mudar fonte no DBRichEdit
Junto com o Delphi vem um demo que faz isso. Eduardo fabricio venancio escreveu: Olá amigos Preciso mudar em run-time a fonte do texto selecionado num DBRichEdit. Sei que pra saber o conteúdo da seleção eu uso SelText, fiz uma busca na documentação do Delphi mas não encontrei nada que me ajudasse... Grato __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Rotina de Extenso.
Na internet tem aos montes, mas para facilitar sua vida, entre em http://www.delphibr.com.br neste e em muitos outros tem uma rotina destas. Eduardo Marcos Antonio escreveu: Colegas do grupo , boa tarde , alguel teria um exemplo de rotina de extenso para valores , uso o Delphi7 , desde já agradeço muito a vossa colaboração. Abraço à todos. Marco Antônio - Consultor em Sistemas. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Caminho relativo e caminho absoluto
Caminho do que ??? Por que relativo é relativo, absoluto é absoluto. Seja um pouco mais especifico. Eduardo Carlos escreveu: Aproveitando o ensejo desta manhã (são 00:10), peço a quem possa me ajudar, e se possível, apostila ou artigo sobre caminho relativo e caminho absoluto. O que é, qual o conceito, quando usar e como usar. Sei que parece uma coisa simples, mas tenho duvídas quanto ao assunto. Mais uma vez, agradeço antecipadamente a atenção dispensada a este. Carlos
Re: [delphi-br] Delphi + Oppen-Office
Ja esta nos arquivos da lista.
Esta semana recebemos uma mensagem avisando que este arquivo foi carregado.
Eduardo
Marcio Barbosa da Silva escreveu:
Fico na espera da mesma...
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Thursday, April 26, 2007 12:51 PM
Subject: Re: [delphi-br] Delphi + Oppen-Office
Tatu...
Funfo aki.. vo até colocar a Unit que criei nos arquivos da lista.. se
alguem mais precisar.vlw...
Wesley
- Original Message -
From: Tatu
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Wednesday, April 25, 2007 7:48 PM
Subject: RES: [delphi-br] Delphi + Oppen-Office
o Josir Cardoso (colega da lista) mandou este trecho de codigo para
trabalhar com o BR-Office...Obs. para mim funcionou perfeitamente,
fazendo algum ou outro ajuste...Porem apenas nao consegui a partir da
aplicação delphi , gravar e fechar o br-office...Segue o código...
Segue um código de como vc deve enviar os dados para a planilha:
var Document, Planilha: Variant;
function TForm1.OpenSpreadSheet( sDocument: string = '' ): Variant;
var
ServiceManager,
StarDesktop: Variant;
Params: variant;
begin
if sDocument = '' then
// default document is empty one
sDocument := 'private:factory/scalc'
else
begin
if not FileExists( sDocument ) then
begin
ShowMessage(sDocument+' not found');
Abort;
end;
sDocument := StrTran( sDocument, '\', '/' );
sDocument := ' file:/// file:///' + sDocument;
end;
ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop :=
ServiceManager.createInstance('com.sun.star.frame.Desktop');
CoreReflection :=
ServiceManager.createInstance('com.sun.star.reflection.CoreReflection');
Params := VarArrayCreate( [ 0, -1 ], varVariant );
Document := StarDesktop.LoadComponentFromURL( sDocument, '_blank', 0,
Params);
end;
begin
{ Abre a planilha }
OpenSpreadSheet( ExtractFilePath(Application.ExeName) +
ConsumoAP.stc');
{ Se posiciona no primeiro Sheet }
Planilha := Document.Sheets.GetByIndex( 0 );
{ Grava valores }
Planilha.getCellByPosition( 1, 0).String := 'Teste';
Planilha.getCellByPosition( 2, 0).Value := 55;
end;
Boa Sorte,
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br]
Em nome de BandaLemuel
Enviada em: quarta-feira, 25 de abril de 2007 13:01
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Delphi + Oppen-Office
Lista..
Preciso de Uma ajuda alguem já consegiu integrar Delphi com o
Oppen-Office... to precisando gerar uma planilha... com o Excel.. tem um
esquema do Ole.. até ai vai.. mas como a Empresa esta mudando para o
Oppen-Office..
vcs podem me ajudar
vlw...
Wesley
[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.463 / Virus Database: 269.6.0/775 - Release Date:
24/4/2007 17:43
[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] Re: Alguém aí usa o D elphi Professional?
Qual é a sua duvida ??? Eduardo maniacapordelphi escreveu: Sim, já olhei, mas não esclareceu muita coisa não. Mani --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Ricardo César Cardoso [EMAIL PROTECTED] escreveu Olá maniaca! Já deu uma olhada no comparativo entre as versões? Segue o link para este comparativo (em inglês) http://www.codegear.com/LinkClick.aspx?fileticket=Ss7wTB8gUg4% http://www.codegear.com/LinkClick.aspx?fileticket=Ss7wTB8gUg4% 3dtabid=236mid=808 maniacapordelphi [EMAIL PROTECTED] escreveu: Quem usa o Delphi Professional consegue desenvolver sistemas pra multi- usuários normalmente? Para plataforma: win98, win2000, win2003? Consegue fazer tudo o que o Delphi Enterprise permite, exceto desenvolvimento do mesmo projeto por vários desenvolvedores? Gente, me dêem sua opinião porque até o momento ainda continuo na dúvida entre adquirir a licença do Delphi 2007 Win32 Professional ou a licença do Delphi 2007 Win32 Enterprise. A versão Enterprise é extremamente mais cara do que a Professional, então preciso saber em que estarei lucrando adquirindo o Enterprise. Grata a quem me der essa luz Mani __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Concatenar nome de arquivo
Tente assim.
var
vDestino,
vOrigem : Array [0..MAX_PATH] of Char;
begin
StrPCopy(vOrigem, 'c:\teste.gdb');
StrPCopy(vDestino, 'c:\teste2' + FormatDateTime('dd-mm-', Now) +
'.gdb');
copyfile(vOrigem, vDestino, true);
end;
Eduardo
Berdam escreveu:
Galera, usei uma procedure chamada
copyfile para copiar um arquivo.
copyfile('c:\teste.gdb','c:\teste2.gdb', true);
Eu queria fazer com que o teste2.gdb, ficasse com o dia em que foi feito
a cópia, mas não estou consenguindo concatenar a data com a string.
copyfile('c:\teste.gdb','c:\teste2'+(date)+'.gdb', true);
Tentei desse jeito mas não deu certo, alguem pode dar essa ajuda??
Valeu
Re: [delphi-br] Dicas - Funções para Arqu ivos
Rubem a classe TSearchRec retorna o tamanho do arquivo de uma maneira muito simples. var vSearchRec : TSearchRec; begin FindFirst(Application.ExeName, 0, vSearchRec); ShowMessage(FloatToStr(vSearchRec.Size / 1024) + ' Kb'); end; Mas o que me chamou muita atenção foi este comentário. - O tamanho do arquivo pode ser maior que 2 GB. Quando ocorre esta limitação ??? Eduardo Rubem Nascimento da Rocha escreveu: // Esta função determina o tamanho de um arquivo em bytes. // O tamanho do arquivo pode ser maior que 2 GB. function GetFileSizeEx(const FileName: String): Int64; var lHandle: Windows.THandle; lFindData: Windows.TWin32FindData; begin // Define retorno default Result := 0; // Obtém handle do arquivo lHandle := Windows.FindFirstFile(PChar(FileName), lFindData); if lHandle INVALID_HANDLE_VALUE then begin Windows.FindClose(lHandle); Int64Rec(Result).Lo := lFindData.nFileSizeLow; Int64Rec(Result).Hi := lFindData.nFileSizeHigh; end; end; // Copia o arquivo fonte para um arquivo destino, preservando sua data de modificação. procedure CopyFile(const Source, Dest: string); var SourceStream, DestStream: Classes.TFileStream; begin DestStream := nil; // Abre streams de dados para os arquivos de origem e destino SourceStream := Classes.TFileStream.Create( Source, SysUtils.fmOpenRead or SysUtils.fmShareDenyWrite ); try DestStream := Classes.TFileStream.Create( Dest, Classes.fmCreate or SysUtils.fmShareExclusive ); try // Copia arquivo da origem até o destino DestStream.CopyFrom(SourceStream, SourceStream.Size); // Define a data de modificação do arquivo destino para a mesma do arquivo origem SysUtils.FileSetDate( DestStream.Handle, SysUtils.FileGetDate(SourceStream.Handle) ); finally // Fecha arquivo destino DestStream.Free; end; finally // Fecha arquivo origem SourceStream.Free; end; end; Sds., Rubem Rocha Manaus, AM __ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br http://search.msn.com.br
Re: [delphi-br] Botão redondo
LMD. A ultima versão é paga, a penúltima não. Só não faça um projeto usando somente eles, seu sistema vai ficar muito pesado. Eduardo Ricardo César Cardoso escreveu: Pode usar os que acompanham a JEDI VCL ou então tentar em sites como o torry.net Sds, Ricardo. José Mário Silva Guedes [EMAIL PROTECTED] mailto:jmarioguedes%40gmail.com escreveu: Olá, gostaria que me indicasse um botão redondo. Até consegui arredondar um TBitBtn mas acho que posso conseguir algo melhor. Bom código a todos! -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] instalar componentes no Delphi2007
Olá, com este email deu para entender por que você está com dificuldade de instalar componentes no D2K7. A partir do Delphi 2005 o jeito mudou um pouco, mas o principio é o mesmo. Em PROJECT MANAGER click com o lado direito do mouse, no caso dos componentes que você vai instalar a partir dos arquivos .PAS, selecione a opção ADD NEW PROJECT, depois click novamente com o botão direito e adicione os arquivos .PAS, em seguida, novamente com o botão direito e selecione INSTALL. Para os componentes que já existem um .DPK ao invés de ADD NEW PROJECT, selecione ADD EXISTING PROJECT. Está parte depois que você se acostumar vai verificar que ficou muito mais fácil instalar um componente. Referente ao Quick Report você tem duas opções, primeiro comprar a versão profissional do componente, a segunda opção é esperar a versão final do BDS ( esqueci o novo nome ) 2007 que virá com o Quick Report Standart. Eduardo Ps.: Espero ter ajudado. maniacapordelphi escreveu: Estou com a terrível missão de migrar projetos em Delphi 7 para Delphi 2007.Para checar se meu projeto compila, necessito instalar os seguintes componentes: Enterh.pas QuickReport RXLib No Delphi7 para instalar um componente .pas ia em Components- Install Component - Botão Browse e localizava o Enterh.pas Depois Compile Depois Install Salvava no pacote *.bpl E agora no Delphi 2007, como se faz? Não achei as opções. -- E para instalar o Quick Report, não achei nenhuma qrlqrt70.bpl ou algo parecido para instalar o pacote -- Os componentes RX275 não compilam no Delphi 2007. Contém muitos erros de TPoint, etc. Existe componente RX compatível com o Delphi 2007 ? -- Mani
Re: [delphi-br] instalar componentes no Delphi2007
Só completando, caso você não consiga instalar o rxlib, me mande ( [EMAIL PROTECTED] ) os arquivos que vejo aqui o q está acontecendo. Eduardo maniacapordelphi escreveu: Estou com a terrível missão de migrar projetos em Delphi 7 para Delphi 2007.Para checar se meu projeto compila, necessito instalar os seguintes componentes: Enterh.pas QuickReport RXLib No Delphi7 para instalar um componente .pas ia em Components- Install Component - Botão Browse e localizava o Enterh.pas Depois Compile Depois Install Salvava no pacote *.bpl E agora no Delphi 2007, como se faz? Não achei as opções. -- E para instalar o Quick Report, não achei nenhuma qrlqrt70.bpl ou algo parecido para instalar o pacote -- Os componentes RX275 não compilam no Delphi 2007. Contém muitos erros de TPoint, etc. Existe componente RX compatível com o Delphi 2007 ? -- Mani
Re: [delphi-br] Erros e mais erros delphi for php
Cara vc implorou esta resposta, o cara vem a 2 ou 3 semanas sendo massacrado por dezenas de pessoas ai vc da uma mancada desta. Eduardo Hudson escreveu: Aos moderadores: Desculpa o transtorno, pois envie o e-mail pro lugar errado Aos Membros da lista: Erra e humano e peço a todos desculpa mas este e-mail não era para vim pra esta listafoi mal gente Ao Andreano Lanusse: Adreano não envio spam, mesmo q ja fui adivertido por isso. Valeu!!! - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, April 10, 2007 1:26 PM Subject: RE: [delphi-br] Erros e mais erros delphi for php Hudson, na boa, você coloca suas dúvidas na lista de delphi_php, agora vem fazer spam na delphi-br com erro, decida-se Primeira coisa, para usar Delphi for PHP você tem que saber PHP. O erro do seu site parece que você não fechou um }, apenas isso. De novo, quem não sabe PHP vai ter que aprender primeiro e enteder como funciona PHP. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Hudson Sent: Monday, April 09, 2007 7:18 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Erros e mais erros delphi for php Gente, Estou quase cancelando a compra q fiz do D F PHP.. esta dando muitos erro. assim q consigo fazer algum da outro erro. ontem (Domingo) consegui criar um cadastro hoje quando vou abrir o D F PHP da uma mensagem Invalid argument to date encode e abreok quando tento abrir um projeto da o mesmo Invalid argument to date encode e não abre nada...isso e so o começo dos proplemas: Fiz um aplicativo sem banco de dadossomente ultilizei componentes, fui em Tools Deployment Wizard e foi criado uma pasta VCL anode coloquei no servidor de hospedagem q suporta PHP5, PHP4 Sabe o q aconteceu. de uma olhada no link http://72.29.86.131/~asprom/principal.php http://72.29.86.131/%7Easprom/principal.php http://72.29.86.131/~asprom/principal.php http://72.29.86.131/%7Easprom/principal.php Rsrsrsa ideia e boa mas não esta funcioanando comigo Gente se alguem poder me dar uma força pra resolver isso eu agardeça.valeu gente [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] Off Topic - Programador
avysbr escreveu: Procuramos programador Delphi com experiencia minima de 02 anos em aplicações comerciais com banco de dados relacional para criação de novo projeto. Contratação PJ. Enviar curriculo para [EMAIL PROTECTED] mailto:avysbr%40yahoo.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Política de Trials da B orland/CodeGear
Acho melhor vc rever o seu link, aqui no rio tenho velox e o menor pacote do produto é um link de 1mb. A instalação completa foi em mais ou menos 2 horas, ja que a maquina era nova e só tinha o XP SP 2 instalado. Sem querer se grosseiro, mas isso é meio complicado cobrar da Borland. A nova instalação foi feita para quem for baixar o Trial não baixe algo que não vai ser utilizado. Se você já tem a Frame na sua maquina, para que fazer o download novamente. Quem não tem o link bom, terá que comprar o DVD. Sei que existe uma desigualdade muito grande no Brasil, quando se fala de banda larga, nos grandes centros até existi algo melhor, mais saiu dai é complicado. Mas também não podemos culpar as companhias por um problema que não é delas. Eduardo Desenvolvimento (Anderson) escreveu: Andreano, concordo com o q vc disse... Mas veja: aqui tenho banda larga... mas o máximo q consigo baixar é algo em torno de 50k por segundo... se essa velocidade for continua, e o instalador tem 2 gb, o download deve demorar algo em torno de 11 horas... Pelo q vejo, nossos amigos programadores não tem uma velocidade tão superior a essa... Por isso q insisto em dizer: ainda não instalei o programa... mas se tiver de baixar esse volume de dados, vou ter q deixar o micro ligado de noite... :( Grande abraço. Anderson - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, April 10, 2007 1:47 PM Subject: RE: [delphi-br] Política de Trials da Borland/CodeGear Anderson, engano seu, a grande maioria já tem banda larga. O Delphi baixa o necessário, aquilo que falta na sua máquina, mais inteligente. Você baixa um exe de 4mb e depois o Delphi baixa o que precisa, você pode interromper quando quiser. A decisão de mudar para instalação WEB foi baseada nos resultados do survey de Delphi :o) []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] mailto:andreano.lanusse%40codegear.com 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of Desenvolvimento (Anderson) Sent: Tuesday, April 10, 2007 4:26 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Política de Trials da Borland/CodeGear Queria apenas observar o seguinte: muita gente tem conexão banda larga de verdade... mas a maioria esmagadora ainda tem a velha conexão de menos de 300 k baixar 2 gb via internet parece meio exagerado... não seria melhor ter um dvd de instalação e depois uma ativação via net ps: não vi o delphi 2007 ainda, não sei se a instalação é só via internet... mas se for só via internet, parece uma solução meio complicada, não? - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, April 06, 2007 8:59 PM Subject: Re: [delphi-br] Política de Trials da Borland/CodeGear A biblioteca JVCL não funcionou aqui.. :o( Consegui instalar, mas na hora de rodar o delphi novamente, dá pau, mas com certeza eles vao colocar uma versão com esta instalacao na mao.. hehe []s Em 06/04/07, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com mailto:eduardo.drd%40gmail.com escreveu: Eu também to adorando o Delphi 2007, ja instalei todos os componentes que usava no delphi 7.0, ta tudo perfeito, agora so falta o DDevExtensions para Delphi 2007, pq com ele da para ter a palheta de componentes igual ao do Delphi 7.0, ja falei com o desenvolvedor, logo logo ta no ar, o Delphi SpeedUp ja ta disponível. Parabéns CodeGear, Delphi 2007 está excelente. Em 06/04/07, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com mailto:fellipeh%40gmail.com fellipeh%40gmail.com escreveu: Hehe... O Help em vista do BDS2006 melhorou consideravelmente... e estou adorando o 2007... hehe, acho que não vou querer sair dele mais
Re: RES: [delphi-br] Bruno, A ndreano ou alguém da CodeGear, pode me responder essa?
Realmente sua mensagem foi longa, só esta parte diz tudo. Não quero defender nenhum produto e nem atacar nenhum outro... acho que o Interbase é muito bom, mas tb acho que FB / DB2 / Oracle / SQL Server / PostGre SQL e outros também o são. Tudo é uma questão de foco e saber o que vc pode oferecer para um cliente sem ficar incomodado. Sempre defendi esta idéia, acho que cada caso é um caso, se o projeto é uma aplicação cliente, mono usuário, não faz sentido utilizar o Oracle, se o projeto é grande, o cliente pode ter um Oracle, melhor, mas cada caso é um caso. Eduardo Ricardo César Cardoso escreveu: Concordo com tudo que vc disse Adriano. Como vc vai explicar e colocar num orçamento que o cliente vai ter que gastar mais X com o SGBDse a maioria dos clientes nem tem idéia do que é um SGBD? Vai colocar escondidinho lá no meio e nem vai tocar no assunto? Nunca! Quanto a dizer que o IB seja superior ou que o FB seja superior ou que o DB2 seja superior ou que SQL Server seja superior, isso é coisa para os funcionários das companhias que teimam em achar que seu produto é melhor que o do vizinho. Mas quem diz que um produto é realmente bom, é o mercado e a comunidade de usuários do produto. O que as empresas podem garantir é o serviço de suporte, o pós-venda. Isso eu concordo plenamente que pode ser dito que umas companhias tem vantagens umas sobre as outras. E o FB pouco perde nesse campo pq mesmo com poucos voluntários no desenvolvimento o simples fato de se apresentarem soluções já faz com que se tenha uma grande credibilidade nesse produto, algo alcançado por um grande número de adeptos que este produto possui. Não quero defender nenhum produto e nem atacar nenhum outro... acho que o Interbase é muito bom, mas tb acho que FB / DB2 / Oracle / SQL Server / PostGre SQL e outros também o são. Tudo é uma questão de foco e saber o que vc pode oferecer para um cliente sem ficar incomodado. Desculpem a mensagem tão longa. Sds, Ricardo. Adriano Santos - Direção de Arte [EMAIL PROTECTED] mailto:artes%40doiscliques.com escreveu: Geasi, Sou fã da Borland, apaixonado por Delphi e trabalhei bastante com Interbase, mas hoje confio muito mais no Firebird...acredito que por ignorância minha, pois trabalhei apenas até a versão 6.1 do Interbase que era gratuita, depois deixei de lado e não mais acompanhei. Conversei com o Bruno Lichot e ele me disse que está muito bom; embora ele seja funcionário da CodeGear não senti sua opnião como funcinário e sim como desenvolvedor, o que é bom pq passa mais confiabilidade no produto. Infelizmente o ramo de atividade de trabalho hoje é muito complicado. Os caras mal tem condições de manter uma boa máquina no ambiente de trabalho quem dirá adquirir meu sistema + licença do banco de dados. É até um pouco de falta de cultura, mas paciência. Hoje uso interbase somente para nosso site, por incrível que pareça. Temos um sisteminha aqui na empresa que cria um arquivo .gdb e envia para nosso CGC-BIN no site de onde outros clientes acessam. Eu sou a favor de MySQL, mas na época que o sistema foi criado o programador não sabia atualizar um banco MySQL on-line usando Delphi...aliás nem eu sei fazer isso, acredito que o dbX de conta do recado. Encontrar serviços de hospedagem que tenham Interbase realmente é muito difícil. Estamos vendo pra mudar de host e colocar tudo como MySQL. Agora uma dúvida: Será que é tão difícil desenvolver um driver? Eu estava pensando em tentar desenvolver isso, sei lá, arrumar uma galera a fim e mandar bala. Acho que seria um ganho pra comunidade. Geazi Teles Barbosa Júnior respondeu: PessoALL, Eu tenho visto muita gente perguntando sobre suporte ao Firebird no DBX4 e outras coisas. Eu participei evento no Recife da CodeGear from Borland e o que eu entendi, passado Pelo pessoal da CodeGear (por sinal, firmes em sua posição mas bastante simpaticos) Foi o seguinte: A CodeGear mantém o Interbase, que é “concorrente” do Firebird. Ela não tem intenção nenhuma (pelo menos ao que parece) de escrever nenhum driver para acesso através do Firebird, já que ela tem um SGDB Que supre a maioria (senão todas) das necessidades de quem precisa do firebird. Isso não quer dizer que o D2007 ou os demais produtos dela não sejam compatíveis Ou que terceiros não possam desenvolver tais drivers. Escutei do interlocutor que, dos mais de 200 requests solicitados por desenvolvedores Sobre a codegear desenvolver um driver para firebird, 100% vieram do BRASIL ! Antes que alguém diga que o firebird é “de graça” e o Interbase é “pago”, Saibam que o IB não custa nenhuma fortuna e a Codegear dispõe de condições especiais de licenciamento do IB, inclusive para aplicações embedded, por preços Simbólicos, negociáveis e flexíveis, nos casos em que o desenvolvedor cobra preços bastante pequenos, Em relação a sistemas
Re: [delphi-br] SQL delay entre datas [off-topic]
Qual é o banco que vc usa ? Eduardo Jonatã Castelo Branco escreveu: Tenho alguns dados em uma tabela. Um dos campos é do tipo datetime. O intervalo entre cada dado pode ser desde de 30 segundos até 1 hora, ou mais. Eu quero fazer uma consulta que me retorne dados que entre eles tenha um intervalo de cinco minutos, ou seja, se um dado é de 10/04/2007 12:00:00, o próximo deverá ter no mínimo a data com ovalor de 10/04/2007 12:05:00 apesar de existirem dados com a data 10/04/2007 12:02:00 etc. Alguém sabe como posso fazer essa consulta? Jonatã __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
Re: RES: [delphi-br] Bruno, A ndreano ou alguém da CodeGear, pode me responder essa?
Concordo em gênero, numero e grau. O FB não é um banco ruim, mas no Brasil ganhou uma fama enorme. Mais ou menos em 2000/2001 eu vi uma pesquisa sobre banco de dados que me deixou perplexo com este mercado no Brasil. O Oracle tinha uma fatia de 60% do mercado de médias e grandes corporações no Brasil, no mundo ele era líder do mercado com 25% do bolo. A partir deste momento sempre tomei muito cuidado em separar as coisas, aqui na delphi-br e na lista-delphi que eu também participo, existem vários apaixonados pelo FB que muitas vezes não entende este tipo de visão. No delphi tour do ano passado aqui no rio, surgiu um cidadão perguntando sobre o sonhado driver para o FB nativo, e a resposta foi simples, direta e objetiva, use o IB ou use um dos vários drivers disponíveis no mercado, existe driver disponível com fonte, sem fonte, de todos os tipos. Está é a mesma opinião para o geradores de relatórios também, pelo mesmo motivo, quem usava o QR no delphi 7, ficou cheio de odeio por que eles teriam que comprar o QR para instalar no delphi 2005. O QR não é um produto Borland e nunca foi prometida vida eterna ao QR default no seus produtos. Por tanto quem usa uma ferramenta de relatório que não seja o TPrint sabe que na próxima versão do BDS pode não vir instalado a mesma ferramenta de desenvolvimento de relatório. Mas todos tem certeza que o driver nativo do IB estará presente. Eduardo Geazi Teles Barbosa Júnior escreveu: PessoALL, Eu tenho visto muita gente perguntando sobre suporte ao Firebird no DBX4 e outras coisas. Eu participei evento no Recife da CodeGear from Borland e o que eu entendi, passado Pelo pessoal da CodeGear (por sinal, firmes em sua posição mas bastante simpaticos) Foi o seguinte: A CodeGear mantém o Interbase, que é “concorrente” do Firebird. Ela não tem intenção nenhuma (pelo menos ao que parece) de escrever nenhum driver para acesso através do Firebird, já que ela tem um SGDB Que supre a maioria (senão todas) das necessidades de quem precisa do firebird. Isso não quer dizer que o D2007 ou os demais produtos dela não sejam compatíveis Ou que terceiros não possam desenvolver tais drivers. Escutei do interlocutor que, dos mais de 200 requests solicitados por desenvolvedores Sobre a codegear desenvolver um driver para firebird, 100% vieram do BRASIL ! Antes que alguém diga que o firebird é “de graça” e o Interbase é “pago”, Saibam que o IB não custa nenhuma fortuna e a Codegear dispõe de condições especiais de licenciamento do IB, inclusive para aplicações embedded, por preços Simbólicos, negociáveis e flexíveis, nos casos em que o desenvolvedor cobra preços bastante pequenos, Em relação a sistemas mais complexos (isso foi dito explicitamente por eles). Isso que compartilho com vocês foi o que passou o apresentador (infelizmente eu esqueci o nome dele), funcionário da Borland, durante a apresentação do D2007. Qual a minha conclusão com relação a isso? 1) Acho justo que a codegear não pretenda escrever drivers para um banco de dados concorrente direto de um produto seu, apesar de terem escrito um para o MySQL (acho que é por conta da popularidade fora do Brasil); 2) Também acho legal que eles não dificultem que outras pessoas desenvolvam isso (o que na pratica já ocorre); 3) Achei interessante essa política de preços flexíveis. Vou entrar em contato para saber como proceder e quanto custa. Pois acho (isso é só uma opinião) que os drivers para o banco de dados escrito pelo próprio desenvolvedor da ferramenta de desenvolvimento deve ser muito mais estável do que produtos de terceiros; 4) Eu não programo muito no Visual Studio (ainda), apesar de tê-lo instalado no ambiente de trabalho e tenho relutado muito quanto a isso (talvez pela curva de aprendizado, ou porque acho C# um saco). Mas, se eu fosse desenvolver em C# no visual Studio (fato apenas justificado se fosse trabalhar em cima do .NET), fatalmente escolheria o MS-SQL Server. Por que ? pelo mesmo motivo dos drivers acima citado. 5) O problema que eu vejo no INTERBASE é o Web hosting, já que o Host que usamos não disponibiliza o interbase (apenas MySQL, FB e MS-SQL). Fora isso, não vejo problema (isso também não quer dizer que eu não uso o FIREBIRD. Atualmente uso o FB em uns 25 clientes com uns 350 usuarios ao todo), mas estou pensando em mudar, por conta de compatibilidade futura. Antes que me crucifiquem (já que estamos próximos da Páscoa, e me peguem pra Judas) por emitir minha opinião, gostaria de dizer a vocês que isso tudo é apenas a minha humilde opinião, e que um dia eu posso chegar a conclusão que estava errado. Um abraço a todos e feliz páscoa. Geazi De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Alberto Enviada em: quinta-feira, 5 de abril de 2007 18:35 Para:
Re: [delphi-br] Minha humilde opinião sobre o Delphi2007
De uma olhada no seu email. Você recebe um com a chave !!! Eduardo galvao_em escreveu: Olá, baixei a Versão Trial do Delphi 2007 agora na hora e instalar ele tá pedindo um serial, que serial seria este? Att. Rodrigo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Semana do ano
Ta na mão. var Ano : Word; vSem, vDia, vSemana : Integer; vData : TDate; begin Ano := 2007; vSemana := 14; vDia:= 5; // A semana começa no domingo e não na segunda por isso o dia é 5 e não 4 // Mas se você quiser contar a partir da segunda é só ajusta para o seu gosto vData := EncodeDate(Ano, 1, 1); while DayOfWeek(vData) 1 do vData := vData - 1; vSem := 1; vData := vData + 7; while vSem vSemana do begin Inc(vSem); vData := vData + 7; end; vData := vData - 1; while DayOfWeek(vData) vDia do vData := vData - 1; ShowMessage(DateToStr(vData)); end; Eduardo Natanael Rodrigues escreveu: Existe componente ou função que retorne de acordo com o número da semana do ano e o númedo do dia semana(Seg-Do o dia do calendário? Por exemplo: A Semana numero: 14 O dia da Semana: 4 retornaria 05/04/2007 Grato. [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Semana do ano
Mas se vc quiser que comece na segunda esta na mão tb. var Ano : Word; vSem, vDia, vSemana : Integer; vData : TDate; begin Ano := 2007; vSemana := 14; vDia:= 4; vData := EncodeDate(Ano, 1, 1); //while DayOfWeek(vData) 1 do while DayOfWeek(vData) 2 do vData := vData - 1; vSem := 1; vData := vData + 7; while vSem vSemana do begin Inc(vSem); vData := vData + 7; end; vData := vData - 1; //while DayOfWeek(vData) vDia do while DayOfWeek(vData) vDia + 1 do vData := vData - 1; ShowMessage(DateToStr(vData)); end; Eduardo Eduardo Castro Alves escreveu: Ta na mão. var Ano : Word; vSem, vDia, vSemana : Integer; vData : TDate; begin Ano := 2007; vSemana := 14; vDia := 5; // A semana começa no domingo e não na segunda por isso o dia é 5 e não 4 // Mas se você quiser contar a partir da segunda é só ajusta para o seu gosto vData := EncodeDate(Ano, 1, 1); while DayOfWeek(vData) 1 do vData := vData - 1; vSem := 1; vData := vData + 7; while vSem vSemana do begin Inc(vSem); vData := vData + 7; end; vData := vData - 1; while DayOfWeek(vData) vDia do vData := vData - 1; ShowMessage(DateToStr(vData)); end; Eduardo Natanael Rodrigues escreveu: Existe componente ou função que retorne de acordo com o número da semana do ano e o númedo do dia semana(Seg-Do o dia do calendário? Por exemplo: A Semana numero: 14 O dia da Semana: 4 retornaria 05/04/2007 Grato. [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/ http://br.yahoo.com/mailbeta/tudonovo/ ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Anderson, fiz assim mas não d eu
Mil desculpas falei sem testar !!!
Você tem toda razão, com o zero também funciona !!!
Eduardo
Desenvolvimento (Anderson) escreveu:
nada a ver...
a intenção de colocar POSICAO := 0 é justamente pra dar um intervalo
pra se ler o primeiro caracter...
senão, já começa aparecendo, daí fica um efeito esquisito...
- Original Message -
From: Eduardo Castro Alves
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, April 03, 2007 11:04 PM
Subject: Re: [delphi-br] Anderson, fiz assim mas não deu
Assim vai funcionar.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao);
inc(posicao) ;
if posicao length(texto) then
posicao := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
texto := 'Olá mundo!';
posicao := 1;
end;
Eduardo
werelli escreveu:
Olá Anderson!
Fiz como me sugeriu mas não deu, da uma olhada no código
atenciosamente,
werelli
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
posicao : integer;
texto : string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao);
inc(posicao) ;
if posicao length(texto) then posicao := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
texto := 'Olá mundo!';
posicao := 0;
end;
end.
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[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/
http://br.yahoo.com/mailbeta/tudonovo/
__ Informação do NOD32 IMON 2167 (20070403) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br http://www.eset.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/
Re: [delphi-br] Olá pessoal, o aprendiz solicita uma ajuda!
Neste exemplo usei um TTimer e TLabel. procedure TForm1.Timer1Timer(Sender: TObject); const Texto = 'Veja se funciona!'; begin if Length(Label1.Caption) Length(Texto) then Label1.Caption := Label1.Caption + Copy(Texto, Length(Label1.Caption) + 1, 1); end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := ''; end; Eduardo werelli escreveu: Olá pessoal! Um bom dia a todos. Bem gente minha dúvida é de principiante, mas lá vai...já falei aqui sobre isso em posts anteriores, mas ainda não consegui chegar a uma solução satisfatória. Gostaria de inserir um texto em label de forma pausada, tipo máquina de escrever, um evento descadeia o processo e a partir disso o texto entra pausadamente, nada de um click uma letra, seria mais ou menos assim com um timer ou outro componente que vocês possam me indicar: begin if timer1.interval = 1000 else label1.caption := ' O'; if timer1.interval = 1500 else label1.caption := ' i'; if timer1.interval = 2000 else label1.caption := ' !'; Claro que o código acima não funciona, mas é so para exemplificar o que preciso, que a cada intervalo de 'tantos' do timer uma letra seja inserida. Como sempre conto com os amigos e ficarei agradecido; Atenciosamente, werelli __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Bruno, Andreano ou alguém da CodeGear, pode me responder essa?
No delphi tour do ano passado aqui no rio teve um cidadão que levantou perguntando se a Borland iria ter um driver nativo para o FireBird, a resposta foi, migre o seu banco para o Interbase ( produto Borland ) que tem driver nativo. A sua pergunta vai no mesmo sentido, DBExpress é um produto Borland, muito bom e faz conexão para vários bancos. De quem é o ADO mesmo ? Ja desenvolvi varias aplicações usando ADO, o que eu observei e alguém aqui na lista confirmou, é que o ADO funciona perfeitamente com os bancos M$ ( SqlServer, Access e MSDE ) para os demais sempre aparece algumas duvidas. Eduardo maniacapordelphi escreveu: Atualmente uso conexão ADO. Observei que no evento CodeGear e tambem no ano passado no Delphi Tour 2006, não se tocou no assunto do ADO, somente DBExpress. O DBExpress é melhor ou ele só foi criado para atender aos adeptos do BDE? Seria aconselhável migrar para o DBExpress? Mani ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Anderson, fiz assim mas não d eu
Assim vai funcionar.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao);
inc(posicao) ;
if posicao length(texto) then
posicao := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
texto := 'Olá mundo!';
posicao := 1;
end;
Eduardo
werelli escreveu:
Olá Anderson!
Fiz como me sugeriu mas não deu, da uma olhada no código
atenciosamente,
werelli
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
posicao : integer;
texto : string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao);
inc(posicao) ;
if posicao length(texto) then posicao := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
texto := 'Olá mundo!';
posicao := 0;
end;
end.
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Eduardo, funcionou!
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := copy(texto,1, posicao); // Veja no help COPY
inc(posicao) ; // Função que incrementa um valor a um cardinal, veja
mais detalhes no HELP INC
if posicao length(texto) then
{ verifica se o valor da variável POSICAO é maior que a quantidade de
caracteres da variavel TEXTO
veja no HELP LENGTH
Se for maior passamos o valor da variável POSICAO para 1, por que uma
String é um vetor de caracteres que começa da posição um e não da
posição 0, por isso o exemplo anterior não funcionou.
Então quando você usa a função COPY você esta pegando um texto de uma
posição inicial (1) até a posição final atribuída na variável POSICAO
}
posicao := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Não criação do formulário atribuímos os valores das variáveis.
texto := 'Olá mundo!';
posicao := 1;
end;
Eduardo
werelli escreveu:
Olá Eduardo!
Obrigado pela força, valeu mesmo funcionou bem, mas se não for abusar
da sua boa vontade, pode me explicar o código, é que algumas partes
não me ficou claro.
Se puder agradeço, se não der deixa pra lá! Já me ajudou bastante.
atenciosamente,
werelli
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Resolução do monitor
De uma olhada nas propriedades e métodos da classe screen, com certeza você vai encontra a sua resposta. Eduardo Alexandre escreveu: Alguem conhece alguma função que detecte a resolução atual do monitor? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] [OFF-TOPIC] - Trial delphi for php
Não é muito não !!! http://www.borland-by-spk.com.br/produtos.asp?codigo_categoria=12nome_categoria=DELPHI%20codigo_subcategoria=5nome_subcategoria=Delphi™ A diferença é minima, pelo menos no site da borland Brasil. Eduardo Adriano Santos - Direção de Arte escreveu: Aliás, mais barato o 2006 tem que estar mesmo porque é mais antigo vamos dizer assim. O problema é ele ser miiit mais barato. Luiz Escobar respondeu: Concordo plenamente Luiz Escobar... - Segue mensagem original! - De: Adriano Santos - Direção de Arte Data: Sat, 31 Mar 2007 23:44:53 -0300 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF-TOPIC] - Trial delphi for php Eu tô com o Geazi, tenho a mesma opnião em 100%. Achei caro também o 2007...aparentemente pra quem não tem licença nenhuma registrada, que é o caso da empresa que trabalho, é mais vantajoso comprar a licença do 2006. Não parei ainda pra fazer as contas, mas tive a impressão de que o 2006 tá mais barato. Meu gerente quer investir e licenciar, mas não sei se a empresa tem condições: são cerca de R$ 18.000,00 reais...somos bem pequenos. A versão básica não nos atende, teríamos que comprar a Enterprise ou Architech...muita grana, mas isso é coisa pro meu gerente decidir, ele que sabe se a empresa tem condições...e apenas indico...fogo isso né? Obs. acho que temos que dar um descontinho pra CodeGear, pois versão 1 da ferramenta, pow é claro que virá com um ou outro bug. O preço tah bom...pra quem programa em PHP e sabe o trabalho que é, a ferramente ajuda bastante. [EMAIL PROTECTED] mailto:geazi%40telesconsultoria.com.br mailto:geazi%40telesconsultoria.com.br respondeu: Ricardo, Eu também achei estranho o periodo de apenas 1 dia para trial. Mas fui no evento da Codegear no Recife, que aconteceu no dia 29/03 e fiquei encantado com a ferramenta. Você tem as mesmas facilidades de desenvolvimento que o Delphi tradicional. É impressionante a velocidade de desenvolvimento. É certo também que ainda é uma ferramenta nova, que portanto, deve vir com alguns problemas, assim como o lançamento do Delphi 1. Para quem não lembra, o delphi só ficou realmente decente a partir da versão 3 e atingiu um ponto de excelencia no delphi 7. Depois eles melaram tudo com o 8 e o 2005 (pesadão cheio de firulas). Mas agora a Codegear conseguiu recolocar o trem de sua história nos trilhos. Para você ter uma ideia do delphi for php, ele ja vem com tudo necessário pra rodar o php. Quando você dá F9 ele levanta todo o ambiente necessário para a execução das paginas em PHP. O deploy também é muito fácil. Há quem fale que é pesado, porque você tem que fazer download de uns 5 MB de arquivos php, mas isso só na primeira vez. Depois, ele só manda o que você acrescentou. Detalhe: toda a vcl do delphi for php é escrita em php. É tudo código php puro. Por isso o deploy maior no primeiro upload. O desenvolvimento com banco de dados é surpreendente. E você já trabalha usando os beneficios do AJAX em tudo. Basta marcar uma unica opção no seu projeto. É fantástico. Também ja vi, no proprio encontro, gente reclamando do preço da ferramenta. Pô, vamos ser realistas. Uma ferramenta desse nivel, com tudo o que voce precisa pra programar, mais o suporte da equipe de desenvolvimento da codegear por um ano e todas as atualizacoes possiveis por míseros R$ 600,00 (em pre- order) ou R$ 900,00 (preço normal) é muito pouco. Um tênis da nike custa quase isso e voce nem ganha dinheiro calçando tênis. Após 20 anos desenvolvendo sistemas, eu cheguei a algumas conclusões. Os desenvolvedores reclamam por não terem ferramentas apropriadas e quando as encontram, nao estao dispostos a pagar por elas, nem que seja um preço justo. Todo mundo quer ferramenta free, linguagem free, mas na hora de cobrar do cliente todo mundo quer $$$. O que eu achei caro foi o Delphi 2007 Win32 por mais de R$ 4.000,00 Ai realmente a codegear pisou na bola. Mas isso é assunto pra outra discussão. Um abraço e desculpe-me pelo tamanho do email. Geazi Citando Ricardo César Cardoso [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br mailto:ricardo_engsoft%40yahoo.com.br [EMAIL PROTECTED] mailto:ricardo_engsoft%40yahoo.com.br mailto:ricardo_engsoft%40yahoo.com.br: Afinal de contas, o tempo de avaliação do produto é quanto? 1 dia? Isso é que não faz o menor sentido! Vamos partir do princípio que o avaliador da ferramenta conheça profundamente PHP e esteja avaliando a ferramenta; sinceramente caros colegas, alguém acha possível testar todos os recursos de uma ferramenta em 1 dia? E mais
Re: [delphi-br] Componente de Código de Bar ras (QReport)
Neste endereço tem, no demo diz delphi 4 abri no 7 e funcionou. http://www.mansano.com/down.asp Eduardo Alcistemas Informática escreveu: Eu utilizo uma fonte que escreve no formato de código de barras, se precisar te mando em PVT - Original Message - From: Jorge Ericsson To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, March 27, 2007 6:15 PM Subject: [delphi-br] Componente de Código de Barras (QReport) Olá pessoal, Preciso com urgência de um bom componente para impressão de código de barras do tipo EAN-13 para o QuickReport. Alguém pode me consigue indica algo que funcione bem ??? Obrigado, Jorge Ericsson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Re: RE: Framework de persistencia e Webservices
Peguei o bonde andando, então me corrija se eu tiver errado. Na aba internet existe um objeto TXMLDocument para criação de arquivo XML, com ele o problema não seria resolvido ? Eduardo Josir Gomes escreveu: Entendi Leonardo. O problema está no Delphi - esse é um dos problemas que eu tinha falado sobre problemas de compatibilidade dos fornecedores de software. A Borland não adota os padrões SOAP para vários casos. Quando vc envia um DataSet, o Delphi não está utilizando SOAP integralmente, porque daria mais trabalho. Ele envia o Dataset embutido em um XML e o PHP não consegue entender porque o pacote não está no padrão. Vc já tentou acessar um ClientDataSet gravado em XML através de outra aplicação ? É a mesma coisa. Eles dizem: fazemos Web Services! Mas não explicam como realmente, deve-se fazer... Não é só a Borland que faz isso, a Microsoft faz isso a torto e a direito. Nos meus estudos, os únicos que seguem a padronização são o Java e o PHP. Quando vc usa o cliente Win32, ele está usando o mesmo protocolo Borland que **não** faz parte do padrão SOAP (que deve ser acessado por qq cliente SOAP). A solução para você: vc tem que montar uma estrutura de dados que contemple um array de registros, onde cada registro equivale a um registro do dataset que vc está montando. É algo trabalhoso, mas é a única forma de vc fazer com que o seu WS seja lido por qq cliente. Boa Sorte, Josir. Meu servidor esta sendo feito em delphi e o cliente vai ser em php, até agora meu servidor comunica legal com o cliente em win32, mas queando é php não exibe nada, minha dificuldade mesmo esta em criar um metodo pra retornar um dataset pro php. Grato. Leonardo Em 01/04/07, *Josir Gomes* [EMAIL PROTECTED] mailto:josir%40globo.com mailto:[EMAIL PROTECTED] mailto:josir%40globo.com escreveu: Olá Leonardo, eu trabalhei com o componente IndySOAP no Delphi 5 e com Kylix. Em teoria, com Web Services, as linguagens utilizadas tem pouca importância pois os protocolos tem que ser transparentes, ou seja, um cliente não precisa saber em que linguagem o servidor foi feito e vice-versa. Entretanto na prática, as linguagens tem pequenos ajustes que devem ser feitos para que tudo funcione a contento. Dê uma lida nos artigos no meu site: http://www.jsk.com.br/webservices.html http://www.jsk.com.br/webservices.html http://www.jsk.com.br/soapui.html http://www.jsk.com.br/soapui.html http://www.jsk.com.br/babelfish.html http://www.jsk.com.br/babelfish.html http://www.indyproject.org/SOAP/ http://www.indyproject.org/SOAP/ Algumas perguntas: 1) O delphi está tentando consumir um webservices ou ele é o servidor ? 2) vc já conseguiu ler o WSDL com uma ferramenta externa ? Boa Sorte, Josir. Olá, vi no grupo de Delhpi sua experiência com webservice + php, estou tentando fazer a mesma coisa e não estou conseguindo, caso vc possa memandar um exemplo eu t agradeço d+. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Re: Converter Pal avras em Numeros - como faço??
Estude sobre criptografia, este é o caminho. Na net existe vários exemplos e units para você estudar. Eduardo pcinfowave escreveu: Eduardo, concordo contigo. Vc poderia nos passar um método mais robusto, para testarmos? Grato []´s Paulo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Executar / Gravar som de a partir de uma URL
Eu nem isso, qual radio vc conseguiu e qual componente vc usou ??? Luiz Escobar escreveu: Se vc descobrir eu também quero... Por enquanto só consigo, fazer um player tocar a URL e gravar no MIX Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br http://www.megasistema.com.br - Original Message - From: Eduardo Castro Alves To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, March 29, 2007 11:22 PM Subject: Re: [delphi-br] Executar / Gravar som de a partir de uma URL Acabei de rever os demos, ele executa a partir de um device !!! Preciso de algo que grave sem o device. Eduardo Ricardo César Cardoso escreveu: Eu recomendaria de bate pronto, sem pesquisar nada, o componente AudioLAB: http://www.torry.net/quicksearchd.php?String=audiolabTitle=No http://www.torry.net/quicksearchd.php?String=audiolabTitle=No http://www.torry.net/quicksearchd.php?String=audiolabTitle=No http://www.torry.net/quicksearchd.php?String=audiolabTitle=No Sds, Ricardo. Eduardo [EMAIL PROTECTED] mailto:ecastroa_edu%40yahoo.com.br mailto:ecastroa_edu%40yahoo.com.br escreveu: Estou precisando executar e gravar som a partir de uma URL e não de uma placa de som. Alguém conhece algum material ou componente sobre este assunto ??? Eduardo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [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/ http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Re: cor do edit quando em foco
Ta na mão um exemplo de componente, veja DoEnter e DoExit é so isso q vc
precisa.
unit NumTextoEdit;
interface
uses
Windows, SysUtils, Classes, Controls, StdCtrls, Graphics;
type
TTipo = ( ttTexto, ttNumero );
type
TNumTextoEdit = class(TEdit)
private
bTipo: Boolean;
FTipo: TTipo;
FCasaDecimal : Integer;
ACasaDecimal : Integer;
procedure GetFTipo(const Value: TTipo);
function SetFTipo: TTipo;
function AjustaTexto(pTexto: String; pTamanho: Integer; pFont:
TFont): String;
procedure GetFCasaDecimal(const Value: Integer);
function SetFCasaDecimal: Integer;
protected
procedure DoEnter; override;
procedure DoExit; override;
procedure KeyPress(var Key: Char); override;
public
functionAjustaValor(pValor : String) : String;
constructor Create(AOwner: TComponent); override;
published
property Tipo: TTipo read SetFTipowrite
GetFTipodefault ttTexto;
property CasaDecimal : Integer read SetFCasaDecimal write
GetFCasaDecimal default 0;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Eduardo', [TNumTextoEdit]);
end;
{ TNumTextoEdit }
function TNumTextoEdit.AjustaValor(pValor : String) : String;
var
i : Integer;
begin
Result := '';
for i := 1 to Length(pValor) do
begin
if pValor[i] in ['0'..'9', DecimalSeparator] then
Result := Result + pValor[i];
end;
end;
function TNumTextoEdit.AjustaTexto(pTexto : String; pTamanho : Integer;
pFont : TFont) : String;
var
vInt: Integer;
vCanvas : TCanvas;
vHwnd : HWND;
begin
vCanvas:= TCanvas.Create;
vCanvas.Handle := GetDeviceContext(vHwnd);
vCanvas.Font := pFont;
vInt := round((pTamanho - vCanvas.TextWidth(pTexto) - 8) /
vCanvas.TextWidth(' '));
Result := StringOfChar(' ', vInt) + pTexto;
end;
constructor TNumTextoEdit.Create(AOwner: TComponent);
begin
inherited;
Color:= clInfoBk;
bTipo:= True;
ACasaDecimal := -1;
end;
procedure TNumTextoEdit.DoEnter;
begin
inherited;
if Tipo = ttNumero then
Self.Text := AjustaValor(Self.Text);
Self.Text := Trim(Self.Text);
Self.SelectAll;
Color := clWindow;
end;
procedure TNumTextoEdit.DoExit;
var
s : String;
i : Integer;
begin
inherited;
if Tipo = ttNumero then
begin
if Trim(Self.Text) '' then
begin
s := '';
for i := 1 to CasaDecimal do
s := s + '0';
if Trim(s) '' then
Self.Text := FormatFloat('#,##0.' + s,
StrToFloat(Trim(Self.Text)))
else
Self.Text := FormatFloat('#,##0', StrToFloat(Trim(Self.Text)));
end
else
Self.Text := '0';
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end;
Color := clInfoBk;
end;
procedure TNumTextoEdit.GetFCasaDecimal(const Value: Integer);
begin
FCasaDecimal := Value;
end;
procedure TNumTextoEdit.GetFTipo(const Value: TTipo);
begin
FTipo := Value;
end;
procedure TNumTextoEdit.KeyPress(var Key: Char);
begin
inherited;
if (Tipo = ttNumero) then
begin
if (Trim(Self.Text) '') and (CasaDecimal = 0) and (Key =
DecimalSeparator) then
Key := #0;
if (not (Key in ['0'..'9', DecimalSeparator, #8, #9, #13])) then
Key := #0;
if (Key = DecimalSeparator) and (Pos(DecimalSeparator, Self.Text)
0) then
Key := #0;
if (not (Key in [#8, #9, #13])) and ((FCasaDecimal 0) and
(Self.SelStart = (Pos(DecimalSeparator, Self.Text) + 2)) ) then
Key := #0;
end;
end;
function TNumTextoEdit.SetFCasaDecimal: Integer;
var
i : Integer;
s : String;
begin
if FCasaDecimal 0 then
begin
s := '';
for i := 1 to FCasaDecimal do
s := s + '0';
Result:= FCasaDecimal;
if ACasaDecimal FCasaDecimal then
Self.Text := FormatFloat('#,##0.' + s,
StrToFloat(AjustaValor(Self.Text)));
end
else
begin
if ACasaDecimal FCasaDecimal then
Self.Text := FormatFloat('#,##0',
StrToFloat(AjustaValor(Self.Text)));
Result := 0;
end;
ACasaDecimal := FCasaDecimal;
if (bTipo) then
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end;
function TNumTextoEdit.SetFTipo: TTipo;
begin
Result := FTipo;
if (FTipo = ttNumero) then
begin
if not (bTipo) then
Exit;
Self.Text := '0';
bTipo := False;
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end
else
begin
bTipo := True;
Self.Text := Self.Name;
end;
end;
end.
Eduardo
Cleiton escreveu:
Oi Erivando...
A procedure que você me passou deu certinho. Era bem isso mesmo que eu
queria.
Valeu
- Original Message -
From: [EMAIL PROTECTED] mailto:erivando%40inforamos.com
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Thursday, March 29, 2007 4:00 PM
Subject: Re: [delphi-br] cor do
Re: [delphi-br] Re: cor do edit quando em foco
Ta na mão um exemplo de componente, veja DoEnter e DoExit é so isso q vc
precisa.
unit NumTextoEdit;
interface
uses
Windows, SysUtils, Classes, Controls, StdCtrls, Graphics;
type
TTipo = ( ttTexto, ttNumero );
type
TNumTextoEdit = class(TEdit)
private
bTipo: Boolean;
FTipo: TTipo;
FCasaDecimal : Integer;
ACasaDecimal : Integer;
procedure GetFTipo(const Value: TTipo);
function SetFTipo: TTipo;
function AjustaTexto(pTexto: String; pTamanho: Integer; pFont:
TFont): String;
procedure GetFCasaDecimal(const Value: Integer);
function SetFCasaDecimal: Integer;
protected
procedure DoEnter; override;
procedure DoExit; override;
procedure KeyPress(var Key: Char); override;
public
functionAjustaValor(pValor : String) : String;
constructor Create(AOwner: TComponent); override;
published
property Tipo: TTipo read SetFTipowrite
GetFTipodefault ttTexto;
property CasaDecimal : Integer read SetFCasaDecimal write
GetFCasaDecimal default 0;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Eduardo', [TNumTextoEdit]);
end;
{ TNumTextoEdit }
function TNumTextoEdit.AjustaValor(pValor : String) : String;
var
i : Integer;
begin
Result := '';
for i := 1 to Length(pValor) do
begin
if pValor[i] in ['0'..'9', DecimalSeparator] then
Result := Result + pValor[i];
end;
end;
function TNumTextoEdit.AjustaTexto(pTexto : String; pTamanho : Integer;
pFont : TFont) : String;
var
vInt: Integer;
vCanvas : TCanvas;
vHwnd : HWND;
begin
vCanvas:= TCanvas.Create;
vCanvas.Handle := GetDeviceContext(vHwnd);
vCanvas.Font := pFont;
vInt := round((pTamanho - vCanvas.TextWidth(pTexto) - 8) /
vCanvas.TextWidth(' '));
Result := StringOfChar(' ', vInt) + pTexto;
end;
constructor TNumTextoEdit.Create(AOwner: TComponent);
begin
inherited;
Color:= clInfoBk;
bTipo:= True;
ACasaDecimal := -1;
end;
procedure TNumTextoEdit.DoEnter;
begin
inherited;
if Tipo = ttNumero then
Self.Text := AjustaValor(Self.Text);
Self.Text := Trim(Self.Text);
Self.SelectAll;
Color := clWindow;
end;
procedure TNumTextoEdit.DoExit;
var
s : String;
i : Integer;
begin
inherited;
if Tipo = ttNumero then
begin
if Trim(Self.Text) '' then
begin
s := '';
for i := 1 to CasaDecimal do
s := s + '0';
if Trim(s) '' then
Self.Text := FormatFloat('#,##0.' + s,
StrToFloat(Trim(Self.Text)))
else
Self.Text := FormatFloat('#,##0', StrToFloat(Trim(Self.Text)));
end
else
Self.Text := '0';
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end;
Color := clInfoBk;
end;
procedure TNumTextoEdit.GetFCasaDecimal(const Value: Integer);
begin
FCasaDecimal := Value;
end;
procedure TNumTextoEdit.GetFTipo(const Value: TTipo);
begin
FTipo := Value;
end;
procedure TNumTextoEdit.KeyPress(var Key: Char);
begin
inherited;
if (Tipo = ttNumero) then
begin
if (Trim(Self.Text) '') and (CasaDecimal = 0) and (Key =
DecimalSeparator) then
Key := #0;
if (not (Key in ['0'..'9', DecimalSeparator, #8, #9, #13])) then
Key := #0;
if (Key = DecimalSeparator) and (Pos(DecimalSeparator, Self.Text)
0) then
Key := #0;
if (not (Key in [#8, #9, #13])) and ((FCasaDecimal 0) and
(Self.SelStart = (Pos(DecimalSeparator, Self.Text) + 2)) ) then
Key := #0;
end;
end;
function TNumTextoEdit.SetFCasaDecimal: Integer;
var
i : Integer;
s : String;
begin
if FCasaDecimal 0 then
begin
s := '';
for i := 1 to FCasaDecimal do
s := s + '0';
Result:= FCasaDecimal;
if ACasaDecimal FCasaDecimal then
Self.Text := FormatFloat('#,##0.' + s,
StrToFloat(AjustaValor(Self.Text)));
end
else
begin
if ACasaDecimal FCasaDecimal then
Self.Text := FormatFloat('#,##0',
StrToFloat(AjustaValor(Self.Text)));
Result := 0;
end;
ACasaDecimal := FCasaDecimal;
if (bTipo) then
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end;
function TNumTextoEdit.SetFTipo: TTipo;
begin
Result := FTipo;
if (FTipo = ttNumero) then
begin
if not (bTipo) then
Exit;
Self.Text := '0';
bTipo := False;
Self.Text := AjustaTexto(Self.Text, Self.Width, Self.Font);
end
else
begin
bTipo := True;
Self.Text := Self.Name;
end;
end;
end.
Eduardo
Fiz aqui rapidinho, talvez tenha algum furo, acho q nao.
Cleiton escreveu:
Oi Erivando...
A procedure que você me passou deu certinho. Era bem isso mesmo que eu
queria.
Valeu
- Original Message -
From: [EMAIL PROTECTED] mailto:erivando%40inforamos.com
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Thursday,
Re: [delphi-br] [1/2 Off] Qual banco as Instituiç ões Bancárias utilizam?
Mainframe é um computador de grande porte, não é um PC. A NASA comprou um Mainframe da IBM em 2001 que tinha 1.350 processadores, você ja viu um PC assim (rsrsrs). Mais uma vez vou lembrar da minha passagem pelo BKB, que um destes grandes computadores fica no edificio New BKB, ocupando um andar inteiro. Dentro desta sala existe um controle de temperatura, umidade e etc. Eduardo Fellipe Henrique escreveu: Olá Sérgio, o que seria esse Mainframe? Pelo que sei é um PC, nunca ouvi falar de base de dados... ps.: desculpe-me pela ignorância. ;) []s Em 29/03/07, Sergio [EMAIL PROTECTED] mailto:sergio%40fiscodata.com.br escreveu: Acho que a maioria dos Bancos Antigos, ainda utilizam o paleontológico Cobol; Verifiquei com um cara que trabalha numa terceirizada do HSBC e disse: Mainframe IBM, endevor (ambiente segregado) , cobol, cics, db2 , adabas;alguns programas em Natural. Isso é onde está a nata da informação, Ctas bancárias, aplicações, cartão de crédito; que lidam com $$$. Essas grandes instituições utilizam o MAINFRAME como repositório de dados; é mais seguro. Nunca vi alguem invadir um Mainframe, só em filme. - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, March 29, 2007 10:49 AM Subject: Re: [delphi-br] [1/2 Off] Qual banco as Instituições Bancárias utilizam? Pior que é, quando estava na faculdade, tentei fazer um trabalho sobre isso, porém ele se limitaram a dizer a mesma coisa... :-( []s Em 29/03/07, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.comeduardo.drd%40gmail.com escreveu: Uma vez fui numa visita ao setor de TI do banco do brasil, a única coisa que eles falam que é tudo *muito seguro. *mas informação concreta, nenhuma. Em 29/03/07, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.comfellipeh%40gmail.com escreveu: Olá amigos, estive em profunda discussão com um amigo sobre isto, e gostaria de saber se alguém conhece ou já viu qual banco de dados as Instituições Bancárias usam... pra aguentar isso tudo e tals.. será que utilizam Trigger, SP, como nós? Sei que é meio off, mas é uma boa thread para descontrair e abrir horizontes sobre bancos de dados, concordam? []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades.
Re: [delphi-br] [1/2 Off] Qual banco as Instituiç ões Bancárias utilizam?
Trabalhei no Bank Boston la era usado Adabas no Mainframe IBM, no Unibanco era Mainframe IBM com Banco de dados DB2, acredito que os demais não fogem está regra para as grandes transações. Mas no caso do BKB era usado o SyBase e Oracle para sistemas de gerenciamento e administração. O meio bancário no meu ponto de vista não serve de referencia para pequenas e medias empresas, o volume de informação é algo gigantesco, trabalhei no setor de BI do cartão de credito, onde recebia cerca de 5 milhões de registros por mês através de 8 arquivos de texto gerado do Mainframe para abastecer uma base Oracle. Eduardo Sergio escreveu: Acho que a maioria dos Bancos Antigos, ainda utilizam o paleontológico Cobol; Verifiquei com um cara que trabalha numa terceirizada do HSBC e disse: Mainframe IBM, endevor (ambiente segregado) , cobol, cics, db2 , adabas;alguns programas em Natural. Isso é onde está a nata da informação, Ctas bancárias, aplicações, cartão de crédito; que lidam com $$$. Essas grandes instituições utilizam o MAINFRAME como repositório de dados; é mais seguro. Nunca vi alguem invadir um Mainframe, só em filme. - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, March 29, 2007 10:49 AM Subject: Re: [delphi-br] [1/2 Off] Qual banco as Instituições Bancárias utilizam? Pior que é, quando estava na faculdade, tentei fazer um trabalho sobre isso, porém ele se limitaram a dizer a mesma coisa... :-( []s Em 29/03/07, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com escreveu: Uma vez fui numa visita ao setor de TI do banco do brasil, a única coisa que eles falam que é tudo *muito seguro. *mas informação concreta, nenhuma. Em 29/03/07, Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com escreveu: Olá amigos, estive em profunda discussão com um amigo sobre isto, e gostaria de saber se alguém conhece ou já viu qual banco de dados as Instituições Bancárias usam... pra aguentar isso tudo e tals.. será que utilizam Trigger, SP, como nós? Sei que é meio off, mas é uma boa thread para descontrair e abrir horizontes sobre bancos de dados, concordam? []s -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com fellipeh%40gmail.com fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] mailto:fellipeh%40gmail.com Você valoriza a existêcia das pessoas extraordinárias e momentos em que a história avança graças a elas. Tudo o que se imagina pode ser alcançado. Deve-se ousar sonhar. Mas não há substituto para perseverança e trabalho... e trabalho em equipe. Por que ninguém consegue sozinho. Se comemoramos a grandeza desses eventos e as pessoas que os realizam... não podemos esquecer o sacrifício daqueles que tornam possíveis tais realizações. [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
