[delphi-br] Desligamento
Informo aos distintos colegas que por motivos particulares estou temporariamente me desligando do grupo. Desejo agradecer a todos que de forma direta ou indireta me ajudaram na busca por conhecimento. Meus sinceros votos de profícuos negócios e muito sucesso a todos. Cordiais saudações, _ Emanuel Coutinho Salvador-Ba- Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] DBGrid com funcionalidade de TreeView
Marcos e Demais colegas... Vejam este link. Se for para Delphi 5 a 7 é baratinho. US$99.00 http://www.woll2woll.com/InfoPower.html Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi3000 - Malware
Pessoal. Uso o Firefox, e o WOT. Tentei acessar o Delphi3000, e meu bowser bloqueou como sendo site reportado como atacado por malware... Alguém pode explicar isso? Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Off Topic - Notebook
Colegas... Acho que o que se deve levar mais em conta é. a aplicabilidade da ferramenta. Alguns de nós gostam de ter TUDO, no notebook, assim, a mesma máquina que é usada para desenvolvimento é usada para diversão (any sort of amusement)... em uitos casos, até para ver mulher nua na web... Isso é que é o perigo... Eu uso um notebook feito em Ilhéus da marca Eclipse, que, pasmem, nunca eclipsoucomigo... Intel Core2Duo, 2GB Ram, tela 15.4, teclado brasileiro, gravador de DVD 160GB HD, ainda uso um HD externo de 250 SATA por uma USB 2.0... não me queixo... e não paguei (na época) mais de 3800,00 com o windows comprado original XP SP3 (não é o HomeEdition)... Tem umas coisinhas legais, tipo leitor de digital, leitor de cartão, saída S-Video, e para outro monitor, slot para PCI Card e ExpressCard (os dois) etc... Roda bem o Linux e o Windows... Como tenho relatado na lista do Lazarus, meu único problema com Linux tem sido a instalação do Lazarus, pois os pacotes não instalam nem a pau, mas de resto, instalo qualquer coisa... Estou satisfeito... Já tive Acer e HP-Compac... O Compac foi bom, o Acer, nem tanto! Mas se indico o Eclipse? - COM CERTEZA! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Arquivos de Ajuda
Luciano Na realidade eu faço um manual para o aplicativo, e nos campos e botões... HINTS, às vezes... baloon hits. Não tenho do que me queixar... Agora... tem de ser bem escrito (não esqueçam dos meus comentários na lista quanto a qualidade do vernáculo, e as mazelas que são os erros crassos de português - não querendo ofender a ninguém, apenas um comentário construtivo...), com índice, com imagens das telas que vc está referindo... coisa séria... Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Luciano Calenzani Simões simoesluci...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 27 de Março de 2009 14:47:24 Assunto: Res: [delphi-br] Arquivos de Ajuda Ninguém faz help nas aplicações? Luciano Calenzani Simões _ _ __ De: Luciano Calenzani Simões simoesluciano@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 25 de Março de 2009 8:07:11 Assunto: [delphi-br] Arquivos de Ajuda Quais tecnologias vocês estão usando para fazer o help de suas aplicações? Luciano Calenzani Simões Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Será que é tao dificil escrever um memo justificado no delphi?
Rafael... O que acontece, deve ser porquê o componente Memo, insere caracteres de quebra automática de linha, e o seu recurso de impressão não está reconhecendo isso, e insere seus próprios. sugiro que dê uma olhada no conteúdo, e retire os caracteres inseridos pelo memo antes de imprimir. Para testar o que falei, crie uma pequena tela, coloque em um campo varchar de 250 para ser editado em um dbMemo. Ao lado, coloque um dbEdit normal. Edite o campo no dbMemo. e salve. Após salvar, veja do dbEdit tem uns caracteres estranhos, como uns quadradinhos... é isso... Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Rafael Jorge rafael.jo...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 15:12:39 Assunto: Re: [delphi-br] Será que é tao dificil escrever um memo justificado no delphi? cara muito obrigado pela ajuda.. mas to com uma bronca.. ele mostra na tela tudo certo.. mas quando eu mando imrpimir sai tudo errado. como tu resolve isso? eu to imprimindo numa lexmark obrigdo t+ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Será que é tao dificil escrever um memo justificado no delphi?
Execure um laço para verificação de cada caractere do conteúdo... se for menor que 30 (veja tabela ascii) vc tira fora, pois será um caractere de controle tipo os que são mandadnos para hardware... Ok? Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Rafael Jorge rafael.jo...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Março de 2009 10:33:16 Assunto: Re: [delphi-br] Será que é tao dificil escrever um memo justificado no delphi? hum como eu tiro esses quadradinhos? essa é a bronca.. 2009/3/26 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br Rafael... O que acontece, deve ser porquê o componente Memo, insere caracteres de quebra automática de linha, e o seu recurso de impressão não está reconhecendo isso, e insere seus próprios. sugiro que dê uma olhada no conteúdo, e retire os caracteres inseridos pelo memo antes de imprimir. Para testar o que falei, crie uma pequena tela, coloque em um campo varchar de 250 para ser editado em um dbMemo. Ao lado, coloque um dbEdit normal. Edite o campo no dbMemo. e salve. Após salvar, veja do dbEdit tem uns caracteres estranhos, como uns quadradinhos. .. é isso... Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: Rafael Jorge rafael.jorge@ gmail.com rafael.jorge% 40gmail.com Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Enviadas: Quarta-feira, 25 de Março de 2009 15:12:39 Assunto: Re: [delphi-br] Será que é tao dificil escrever um memo justificado no delphi? cara muito obrigado pela ajuda.. mas to com uma bronca.. ele mostra na tela tudo certo.. mas quando eu mando imrpimir sai tudo errado. como tu resolve isso? eu to imprimindo numa lexmark obrigdo t+ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] -- _ Rafael jorge alves Desenvolvedor/ analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO
Acho que só vou usar o flameRobin quando ficar tudo numa tela só... Testei... é Legal, mas é muito picado... muita janelinha espalhada! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Silvio Clécio silviop...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 13:12:14 Assunto: Res: Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO Algumas pessoas podem não ter respondido simplesmente por não usarem a ferramenta, eu uso o IBExpert só para uma visualização rápida de tabelas com fk's, no mais, é só o FlameRobin. _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo. com.br Gmail, GTalk: silviop...@gmail. com Hotmail, MSN: silviop...@hotmail. com BlogSpot: http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° _ _ __ De: Emanuel Coutinho emanuelcoutinho@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 25 de Março de 2009 10:33:15 Assunto: Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO Como alguns colegas dizem, não tem de ficar esperando a resposta de mão beijada. Assim, mesmo sem ter conseguido ajuda para essa dúvida, está resolvida!!! Sds, _ Emanuel Coutinho Salvador-Ba- Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO
Como alguns colegas dizem, não tem de ficar esperando a resposta de mão beijada. Assim, mesmo sem ter conseguido ajuda para essa dúvida, está resolvida!!! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO
Após queimar a mufla, procurando entender essa de dependências, verifiquei que dropando as consultas que utilizavam as consultas que desejava alterar (e ao alterar teriam de ser dropadas e recriadas), não haveria mais a dependência. Aritimética básica... 2+2 = 4 Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Berdam berdamzi...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 25 de Março de 2009 11:01:41 Assunto: Res: Res: [delphi-br] Meio OFF: - Erro IbExpert: RESOLVIDO posta a resposta ai então? - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] maiuscula em todos os dedits
frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j] Retire-o for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: felipe govoni govoni.fel...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 11:17:32 Assunto: [delphi-br] maiuscula em todos os dedits bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem: expression illegal in evaluator tentei faze um teste com o seguinte codigo e tambem nao fez nada for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste'; alguem pode me ajuda? obrigado -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com. br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] maiuscula em todos os dedits
Concordo contigo, mas o código dele está quase pronto, e não sei quantos componentes ele terá de fazer mudar na mão grande... assim, automatizando é mais rápido para resolver... então dei foco a ajudar o erro do código... No meu caso, quando formato minhas telas, sempre uso as propriedades tipo CharCase, quando necessito disso, mas como ele não tinah feito... Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo estando em um pagecontrol... caramba... muito trabalho... mas se apagar o errinho no código... voilá... dois palitos!!! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Humberto Oliveira holiveira.wordpr...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 12:55:52 Assunto: Re: [delphi-br] maiuscula em todos os dedits É verdade, existe um espaço na palavra Components ... Mas na minha opinião, seria melhor o CharCase como o Rodnei explicou acima. 2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j] Retire-o for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: felipe govoni govoni.felipe@ gmail.com govoni.felipe% 40gmail.com Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br Enviadas: Terça-feira, 24 de Março de 2009 11:17:32 Assunto: [delphi-br] maiuscula em todos os dedits bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ; ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem: expression illegal in evaluator tentei faze um teste com o seguinte codigo e tambem nao fez nada for j := 0 to frmFinasa.Component Count - 1 do if (frmFinasa.Componen ts[j] is tdbEdit) then (frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste'; alguem pode me ajuda? obrigado -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com. br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Meio OFF: - Erro IbExpert: Cannot drop this view because there are some dependencies. Use Recreate Script Instead.
*/ /*-*/ [fim do código] Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] maiuscula em todos os dedits
Nada melhor do que várias cabeças pensando!!! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 18:40:27 Assunto: Re: [delphi-br] maiuscula em todos os dedits Coloque esse codigo no onShow var i : integer; begin for i := 0 to ComponentCount -1 do if (Components[ i] is TDBEdit) then TDBEdit(Components[ i]).CharCase := ecUpperCase; end; falow 2009/3/24 Humberto Oliveira holiveira.wordpress @gmail.com O detalhe que questionei é ao invés de setar UpperCase em todos os DBEdits, utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase. Mas ele já resolveu, está tudo em casa. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] maiuscula em todos os dedits
Creio que aí se encontrva seu erro... Não se consegue limpara o conteúdo de um dbEdit, em nenhuma propriedade do dbEdit. Vc tem de usar o banco... O dbEdit é conectado ao banco, e as mudanças que ocorrem no banco refletem nele... As mudanças feitas nele (que se restringem a apenas alguns tipos) refletem no banco depois de um ApplyUpdates. Aí no caso, o charcase facilitou de verdade! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: felipe govoni govoni.fel...@gmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 18:02:01 Assunto: Re: [delphi-br] maiuscula em todos os dedits emanuel realmente o charcase facilito e muito, mas na verdade meu codigo nao estava errado eu apenas copiei errado, pois eu estava compilando certo, mas na hora ela nao limpava os dbedit. eu copiei a ideia de uma dica pra limpa edit e so alterei pra dbedit. 2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br Concordo contigo, mas o código dele está quase pronto, e não sei quantos componentes ele terá de fazer mudar na mão grande... assim, automatizando é mais rápido para resolver... então dei foco a ajudar o erro do código... No meu caso, quando formato minhas telas, sempre uso as propriedades tipo CharCase, quando necessito disso, mas como ele não tinah feito... Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo estando em um pagecontrol. .. caramba... muito trabalho... mas se apagar o errinho no código... voilá... dois palitos!!! Sds, _ Emanuel Coutinho Salvador-Ba- Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Off Topic - Planejando bem, Evitando os Jacar és
Colegas. É do conhecimento da maioria que embora seja desenvolvedor, atuo diretamente em empresa de engenharia, e mais especificamene no setor de planejamento. Assim, por fazer parte de um grupo de planejadores, recebi esta mensagem, que reputo de grande importãncia, e desejo compartilhar com os colegas, para que agregue valor ao nosso dia a dia. Cuidado com o jacaré! Inspirado na aula do professor Larry Greiner, da Universidade do Sul da Califórnia. Se você tem um jacaré a lhe morder a perna, a tendência é esquecer que sua tarefa principal que era drenar o pântano”. Nessa hora a sobrevivência fala mais alto. Você entra no pântano, cheio de vontade de executar a tarefa de drená-lo. Aí, o jacaré morde a sua perna. E você vai querer matar o jacaré, claro. O pântano que espere. O jacaré desta história é o nosso dia-a-dia. É a rotina que lhe ataca de manhã e que impede que você faça todas as tarefas que planejou para o dia. E ao final, exausto, você olha a pilha de jacarés mortos e é cobrado, pelo seu chefe, pelo pântano que não drenou. Saber enfrentar a rotina é uma tarefa fundamental para quem quer ter alta performance. Evitar o jacaré é planejar melhor, é testar todas as hipóteses, é prever os desvios e inconsistências. O jacaré detesta planejamento. Ele anda pela empresa com sua casca grossa, rabo comprido e braços curtos dizendo que planejamento não serve para nada, que nunca dá certo, que é um jogo de adivinhação. Tudo mentira. O jacaré morre de medo do planejamento, que, quando bem-feito, é um exercício de previsibilidade. E que não é feito para dar certo, mas sim para testar antecipadamente todas as hipóteses.. Olhe bem a sua volta. Os jacarés estão por todos os lugares, com sua fala mansa e andar desengonçado. E, se você bobear, um deles ataca: Cadê a cópia do relatório A45 que você ficou de me mandar?: Pronto, ele mordeu sua perna! Agora vai ter de matar este... e lá se vão quase duas horas do dia. Fique atento. Planeje e priorize as atividades do seu dia. Exercite o planejamento, pratique o exercício da previsibilidade, ou você vai se tornar um especialista em matar jacarés. E o duro desta vida é que o reconhecimento, as oportunidades e as recompensas só virão para os que drenarem o pântano. Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Função EXP
Luis o que o Rubem se referiu foi isso:
308 var
1309 soma : real;
1310
1311 begin
1312
1313 soma := StrToFloat(' 1') + StrToFloat(label1. Caption);
1314 Edit1.Text := FloatToStr( Exp(soma * Ln(StrToFloat( label27.Caption) ))) ;
Nessa linha!!!
Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: Luiz de Lima Lopes lui...@uol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 23 de Março de 2009 12:58:02
Assunto: Re: [delphi-br] Função EXP
Rubem, Bom Dia
Efetue a alteração que falou, soh que jah mudei a soma para string mais
continua o erro..
var
soma : String;
begin
soma := '1' + label1.Caption;
edit221.Text := Exp(soma * Ln(label27.Caption) );
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br
Sent: Monday, March 23, 2009 12:34 PM
Subject: RE: [delphi-br] Função EXP
Meu caro, preste atenção! A função Exp() retorna um valor de ponto flutuante, e
a propriedade Text do Edit1 é do tipo string. O erro é claro, vc quer atribuir
um número pr'uma string. Preste atenção! Isso tá errado! Vc tem que converter o
resultado de EXP() para uma string e atribuir essa conversão para a propriedade.
Sds.
To: delphi...@yahoogrup os.com.br
From: lui...@uol.com. br
Date: Mon, 23 Mar 2009 12:22:18 -0300
Subject: [delphi-br] Função EXP
Pessoal Bom Dia,
Estou tendo o seguinte problema estou fazendo uma função para um calculo, porem
esta dando [Error] (1314): Incompatible types: 'String' and 'Extended';
Porem esta com o mesmo tipo nas duas variaveis... o que pode estar ocorrendo...
Segue o codigo
1308 var
1309 soma : real;
1310
1311 begin
1312
1313 soma := StrToFloat(' 1') + StrToFloat(label1. Caption);
1314 Edit1.Text := Exp(soma * Ln(StrToFloat( label27.Caption) ));
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ _ _
Windows Live Messenger. O melhor em multitarefa.
http://www.microsof t.com/windows/ windowslive/ products/ messenger. aspx
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi / Banco de Dados - Ajunda em SQL
Pessoal Resolvi fazer esta pergunta aqui, por ver já vários colegas solicitarem ajuda em SQL na lista... Estou fazendo uma migração do meu progama básico de planejamento, que utilizava base de dados access para firebird. Estou esbarrando em uma incapacidade minha em relação a SQL que talvez possa contar com a ajuda de vocês. Sempre que desejava fazer uma totalização, usava as próprias ferramentas do access, e ele me ajudava muito... Inclusive quando precisava gerar totalizações que simulassem uma tabela dinâmica, onde ele pegava os valores de um determinado campo, e transformava em cabeçalho de colunas para totalizar uma série de registros... Agora estou precisando fazer isso no Firebird. As totalizações agrupadas estou conseguindo fazer, e gerando umas views, que são usadas depois por uma queries com campos agregados, estou conseguindo fazer minhas totalizações. Agora... E como posso fazer para simular a tabela dinâmica. No SQL do access tem o ( Transform / Pivot )... e no firebird? Alguém tem como me ajudar nisso? Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Dúvidas de passagem de valor a um .exe
É silvio esueci mesmo, mas é porquê não uso esta função, prefiro a ShellExecute. Minha maior prequiça foi não indicá-la... Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Silvio Clécio silviop...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 20 de Março de 2009 1:59:33 Assunto: Res: Res: [delphi-br] Dúvidas de passagem de valor a um .exe Olá galera, No delphi eu faria: var ida: string; begin ida:= edit1.Text; WinExec(( 'Proj1.exe ' + ida ), SW_SHOW); end; Não cheguei a testar, as é o que faria... Emanuel, faltou só um pequeno detalhe, o PChar (normal, pela hora que vc postou é cançaso na certa): WinExec(PChar( 'Proj1.exe' + ida), SW_SHOW); rafig38, note que nem na resposta do Emanuel e nem na minha tem espaços em branco, caso ainda não funfe, pegue com a formatação sem espaços clique aqui: [http://geocities. yahoo.com. br/silvioprog/ rafig38.txt]. _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo. com.br Gmail, GTalk: silviop...@gmail. com Hotmail, MSN: silviop...@hotmail. com BlogSpot: http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Dúvidas de passagem de valor a um .exe
No delphi eu faria:
var ida: string;
begin
ida:= edit1.Text;
WinExec( ( 'Proj1. exe '+ ida ) ,SW_SHOW) ;
end;
Não cheguei a testar, as é o que faria...
Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: rafig38 rafi...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 19 de Março de 2009 15:12:47
Assunto: [delphi-br] Dúvidas de passagem de valor a um .exe
Przados,
Será que alguém poderia me ajudar no programa abaixo:
Este programa em Delphi, consiste em pegar o que foi escrito
em edit1 e após clicar no botão, este chama o programa
Proj1.exe passando para ele o parâmetro da variável ida,
onde ida corresponde a edit1.Text . Mas o valor que
Proj1.exe recebe e retorna é somente ida (o nome
da variável), ou seja, a resposta que aparece na tela é:
Seu nome eh: ida
Observem os códigos abaixo:
= = ===
No Delphi, evento OnClick do botão:
var ida: string;
begin
ida:= edit1.Text;
WinExec('Proj1. exe ida',SW_SHOW) ;
end;
= = ===
Fonte C de Proj1.exe:
#include cstdlib
#include iostream
using namespace std;
int main(int argc, char *argv[])
{
cout Seu nome eh: argv[1] endl;
system(PAUSE );
return EXIT_SUCCESS;
}
O fonte em C++ eu compilo normalmente e gero o executável Proj1.exe,
conforme acima.
O fonte em Delphi eu também compilo normalemente e gero o executável
Nome.exe, conforme acima.
Por favor, se alguem puder me ajudar ficarei imensamente agradecido.
Pois a única coisa que preciso é criar um programa em Delphi e via variável,
um argumento a um programa feito em C++, conforme acima.
Rafig.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] [DICA] 706 Demos Delphi
Walter, tem tanta coisa boa lá na sua página, que até a coloquei nos meus favoritos! hehehe. Virou, mexeu, vou lá e baixo uma ou outra coisinha! Mas, da Sua Página!!! Parabéns camarada!!! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil - Mensagem original De: Walter Chagas (Bol) wchag...@bol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 17 de Março de 2009 15:09:41 Assunto: Re: Res: [delphi-br] [DICA] 706 Demos Delphi Ces podem ir lá na minha pagina também. São os mesmos arquiovos. O cara copiou até o html dos componentes. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Res: [delphi-br] FORMULÁRIO FORMULÁRIO
Sérgio Creio que para uma questão de aparência do form, deixar como bsSizeable é uma boa, e trabalhando nos constraints do formulário, setando maxwidth, maxheight, minwidth minheight para as dimensões que vc deseja! Veja aí! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Luciano Angelini luciano.angel...@uol.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 17 de Março de 2009 13:49:08 Assunto: Re: [delphi-br] FORMULÁRIO FORMULÁRIO Opa foi mal . BorderStyle := BsSingle ; Luciano Angelini escreveu: BORDERSTYLE := bsSIZEABLE ; Sergio - Jundiai /SP escreveu: Boa tardea Windowstate WsNormal Gostaria de saber se tem como fixar a borda do form, para que o usuario nao clique na borda e aumente o tamanho. Sergio [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Delphi-Firebird-Generators
Colegas Silvio e Ricardo! Sugiro que atentem ao que o Bruno postou. Ele está apresentando razões mais que de sobra, para o colega Ricardo abandonar a idéia do que intenciona. Ricardo. Não é boa prática mexer nas chaves primárias. Deixe isso para o banco. Como o Bruno falou, se precisar ordenar de alguma forma, use outro campo, e nele, faça o que lhe convier... as chaves primárias ao serem manipuladas de forma a gerarem ima insegurança dessa pode te dar muitos dissabores no futuro... Tipo... Ih... cadê os lançamentos dos itens da nota que eu coloquei ontem aqui!! Depois, não adianta ir chorar no pé do cabôclo... Nem pode dizer que a cigana te enganou! Estamos todos te avisando que isso não é boa prática. Sds, _ Emanuel Coutinho Salvador-Ba-Brasil ._,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Concatenação em Delphi
Vanessa Passo por uma situação parecida. Tenho uma tabela mãe que tem 3 ou 4 registros em uma tabela detail, mas preciso manter um registro do sinete de cada profissional que atuou... em um campo, com o conteúdo do tipo: 030 / 040 / 345 / 017... assim, o que fiz: Ao inserir, ou alterar, ou eliminar qualquer registro da tabela detail, refaço uma varredura pelos registros(já que não são muitos) e a cada um refaço a string concatenada que vu armazenar, e coloco em um campo string, físico, criado na tabela mãe. No seu caso, pelo que entendi, você tem alguns dbEdits, nos quais o usuário vai colocar as parcelas, e ao terminar, vc precisa concatenar. Mas também o usuário pode alterar o conteúdo do resultado concatenado. Sinceramente, não tem muito mistério... Crie um campo na tabela, para vc armazenar a string concatenada... algo tipo 30 ou 50 caracteres, e concatene o valor do campo de cada um dos 6 dbEdits que vc colocou na tela. Já que vc está usando os dbEdits para concatenar, vc criou campos para cada um deles na tabela? Eu criaria apenas 1 campo (o que receberá a string concatenada), e os valores que iriam nos 6 dbEdits, iriam em Edits normais, sem armazenamento na tabela (a menos que seja imprescindível, e isso você é que sabe pois é a arquiteta do projeto). Cada vez que desse um post, zeraria o conteúdo dos edits, mas o campo com a string concatenada estaria lá, com as informações concatenadas. Se for usar os dbEdits para cada uma das 6 parcelas, concatene os campos da tabela, se não concatene as propriedades text dos Edits. Exemplo disso já foi dado antes, não? Qualquer dúvida é só gritar! Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Duplo click na barra de titulo
No Evento OnShow do seu form coloque: nomedoseuform.windowstate := wsmaximized; Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Ricardo Rocha ricardo_r...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Março de 2009 2:39:37 Assunto: [delphi-br] Duplo click na barra de titulo Seguinte pessol eu criar um form, e gostaria que ficasse apenas maximizado, porem quando da um duplo click na barra de titulo do form ele diminui... como faço para ele ficar somente maximizado? Ricardo Messias da Silva Rocha Ciência da Computação - 2009 - Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Mostrar Primeiro dia útil ( fin ais de semanas, e feriados cadastrado em tablela)
Veja no help do Delphi a função StartOfTheWeek Lá está assim: Returns a TDateTime value that represents 12:00:00:00 AM on the first day of the week identified by a specified TDateTime value. Unit DateUtils Category date/time routines function StartOfTheWeek(const AValue: TDateTime): TDateTime; Description StartOfTheWeek returns the first expressible moment of the same week as the TDateTime specified by AValue. That is, it replaces the time portion of AValue with 0, changes the day to Monday, and returns the result. Note:StartOfTheWeek defines the week of AValue according to the ISO 8601 standard. That is, the week starts on Monday and ends on Sunday. Tradução da nota: StartOfTheWeek define a semana de AVAlue em conformidade com o padrão ISO 8601. Isto é, A semana começa na segunda e termina no domingo Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Alexsandro a...@ig.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 12 de Março de 2009 22:35:16 Assunto: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Boa noite pessoal, Como eu consigo o 1º dia útil a partir de uma certa data Ex. 14/03/2009 no qual seria 16/03/2009, e se essa data estiver cadastrada como feriado na tabela feriados, ele retornasse o próximo dia, é se cair sábado ou domingo segue para a próxima, e assim vai... Consegui esse na net : Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then // se cair no sábado que é 7 dData := dData + 2 else if DayOfWeek(dData) = 1 then // se cair no domingo que é 1 dData := dData + 1; ProximoDiaUtil := dData; end; proced resul := ( ProximoDiaUtil( 14/03/2009)) ; só que só pega os finais de semanas Alguem pode me ajudar com isso ? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OFF TOPIC] - MOZILLA THUNDERBIRD
Descobri o que foi. Criei muitos filtros, de acordo com o assunto, mandava para uma pasta... e em um deles usei a verificação do conteúdo da mensagem, e ele pirou! Tirei os filtros e voltou tudo ao normal... Sds, _ Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela )
Completando... para vc saber o início da próxima semana, basta adicionar 7 Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Emanuel Coutinho emanuelcouti...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Março de 2009 8:01:40 Assunto: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Veja no help do Delphi a função StartOfTheWeek Lá está assim: Returns a TDateTime value that represents 12:00:00:00 AM on the first day of the week identified by a specified TDateTime value. Unit DateUtils Category date/time routines function StartOfTheWeek( const AValue: TDateTime): TDateTime; Description StartOfTheWeek returns the first expressible moment of the same week as the TDateTime specified by AValue. That is, it replaces the time portion of AValue with 0, changes the day to Monday, and returns the result. Note:StartOfTheWeek defines the week of AValue according to the ISO 8601 standard. That is, the week starts on Monday and ends on Sunday. Tradução da nota: StartOfTheWeek define a semana de AVAlue em conformidade com o padrão ISO 8601. Isto é, A semana começa na segunda e termina no domingo Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: Alexsandro a...@ig.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quinta-feira, 12 de Março de 2009 22:35:16 Assunto: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Boa noite pessoal, Como eu consigo o 1º dia útil a partir de uma certa data Ex. 14/03/2009 no qual seria 16/03/2009, e se essa data estiver cadastrada como feriado na tabela feriados, ele retornasse o próximo dia, é se cair sábado ou domingo segue para a próxima, e assim vai... Consegui esse na net : Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then // se cair no sábado que é 7 dData := dData + 2 else if DayOfWeek(dData) = 1 then // se cair no domingo que é 1 dData := dData + 1; ProximoDiaUtil := dData; end; proced resul := ( ProximoDiaUtil( 14/03/2009)) ; só que só pega os finais de semanas Alguem pode me ajudar com isso ? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em t ablela)
Alexsandro, Verifique o próximo dia útil na sua função, e depois dê um locate na sua tabela para ver se é feriado! Tem outro jeito? Sds, _ Emanuel Coutinho Salvador-Ba-Brasil De: Alexsandro a...@ig.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Março de 2009 8:58:08 Assunto: Re: Res: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Opa Ricardo, Embora pareça simples, mas até agora eu não consegui ainda exergar como eu posso juntar isso tudo. Ou seja o banco de dados + a função Function ProximoDiaUtil (dData : TDateTime) : TDateTime; --- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso ricardo_engsoft@ ... escreveu Submeta a data que vc teve no retorno da função à sua tabela de feriados; esse retorno já é um dia da semana, certo? Se essa data de retorno for um feriado, submeta essa data à sua função novamente. Montar essa lógica é relativamente simples. Se tiver alguma dificuldade quanto a isso, mantenha a lista informada. []'s Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 13/3/09, Alexsandro a...@... escreveu: Bom dia Emanuel, Muito Obrigado veio, só que os feriados eu á fiz, eu até mostrei como fiz logo abaixo. O que não estou conseguindo é usar tambem a tabela de feriados que tenho no cadastro. --- Em delphi...@yahoogrup os.com.br, Emanuel Coutinho emanuelcoutinho@ ... escreveu Completando. .. para vc saber o início da próxima semana, basta adicionar 7 Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: Emanuel Coutinho emanuelcoutinho@ ... Para: delphi...@yahoogrup os.com.br Enviadas: Sexta-feira, 13 de Março de 2009 8:01:40 Assunto: Res: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Veja no help do Delphi a função StartOfTheWeek Lá está assim: Returns a TDateTime value that represents 12:00:00:00 AM on the first day of the week identified by a specified TDateTime value. Unit DateUtils Category date/time routines function StartOfTheWeek( const AValue: TDateTime): TDateTime; Description StartOfTheWeek returns the first expressible moment of the same week as the TDateTime specified by AValue. That is, it replaces the time portion of AValue with 0, changes the day to Monday, and returns the result. Note:StartOfTheWeek defines the week of AValue according to the ISO 8601 standard. That is, the week starts on Monday and ends on Sunday. Tradução da nota: StartOfTheWeek define a semana de AVAlue em conformidade com o padrão ISO 8601. Isto é, A semana começa na segunda e termina no domingo Sds, _ Emanuel Coutinho Salvador-Ba- Brasil _ _ __ De: Alexsandro aq.s@ br Para: delphi...@yahoogrup os.com.br Enviadas: Quinta-feira, 12 de Março de 2009 22:35:16 Assunto: [delphi-br] Mostrar Primeiro dia útil ( finais de semanas, e feriados cadastrado em tablela) Boa noite pessoal, Como eu consigo o 1º dia útil a partir de uma certa data Ex. 14/03/2009 no qual seria 16/03/2009, e se essa data estiver cadastrada como feriado na tabela feriados, ele retornasse o próximo dia, é se cair sábado ou domingo segue para a próxima, e assim vai... Consegui esse na net : Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then // se cair no sábado que é 7 dData := dData + 2 else if DayOfWeek(dData) = 1 then // se cair no domingo que é 1 dData := dData + 1; ProximoDiaUtil := dData; end; proced resul := ( ProximoDiaUtil( 14/03/2009)) ; só que só pega os finais de semanas Alguem pode me ajudar com isso ? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Forms Stay on top
Andresa Não entendi bem... Se vc está usando uma tela principal como MDI e as outras como Children, o que vc colocar no form principal deverá naturalmente restringir a área para a abertura das telas children.. Assim, não entendo como vc está conseguindo colocar uma ChildForm sob os componentes visuais que estão colocados no form principal. Dá para vc me mandar umas telas do que vc está fa\endo para poder avaliar amelhor? Sds Emanuel Coutinho Salvador-Ba-Brasil De: Andresa Ferreira andresa_del...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 11 de Março de 2009 11:36:16 Assunto: [delphi-br] Forms Stay on top Olá a todos No meu sistema, resolvi usar um menu TreeView, porém qdo eu abria uma tela que estava com a propriedade MDIChild, esta tela abrir embaixo do menu. Mudando a propriedade p/ Stay on Top, ficou direitinho, como eu queria Porém tem um problema, qdo eu tenho processos demorados, essa tela sempre fica na frente de qq coisa, mesmo se eu minimizar o sistema, e queira ver qq coisa, como o browser por exemplo, a tela não sai da frente. Alguém poderia me ajudar??? Andresa _ _ __ De: Luciano Calenzani Simões simoesluciano@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quarta-feira, 11 de Março de 2009 8:53:37 Assunto: Res: [delphi-br] Erro IDE D2009 Aí está 72122. Obrigado. Luciano Calenzani Simões _ _ __ De: Andreano Lanusse andreano.lanusse@ embarcadero. com Para: delphi...@yahoogru p os.com..br delphi...@yahoogru p os.com.br Enviadas: Terça-feira, 10 de Março de 2009 17:00:51 Assunto: RE: [delphi-br] Erro IDE D2009 Luciano, Por favor adicione no QC e me informe o número. Obrigado, Andreano Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Mensagens neste tópico (8) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 15 Novos usuários * 1 Novos arquivosVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_.._,___ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problema com Função (Lógi ca errada ?)
COlega Tiago Creio que você limitar a digitação nos campos é irritante para o usuário. Não seria mais fácil formatar na hora de salvar as informações no banco de dados? Veja a função abaixo: Você vai se perguntar o porquê de certos caracteres que não existem na língua portuguesa, mas esta função foi feita para que tenha possobilidade de tratar textos multi-língues. [codigo] Function SemAcentos(StrEntrada, Estado: String) : String; var StrSaida: String; x: Integer; begin for x := 1 to length(StrEntrada) do begin if (ord(StrEntrada[x]) 31) AND (ord(StrEntrada[x]) 126) then StrSaida := StrSaida+StrEntrada[x] else if StrEntrada[x] in ['Á','á','Ã','ã','À','à','Ä','ä','Â','â'] then StrSaida := strSaida+'a' else if StrEntrada[x] in ['É','é','Ê','ê','È','è','Ë','ë'] then StrSaida := strSaida+'e' else if StrEntrada[x] in ['Í','í','Ì','ì','Ï','ï','Î','î'] then StrSaida := strSaida+'i' else if StrEntrada[x] in ['Ó','ó','Õ','õ','Ò','ò','Ö','ö','Ô','ô'] then StrSaida := strSaida+'o' else if StrEntrada[x] in ['Ú','ú','Ù','ù','Ü','ü','Û','û'] then StrSaida := strSaida+'u' else if StrEntrada[x] in ['Ç','ç'] then StrSaida := strSaida+'c' else if StrEntrada[x] in ['Ñ','ñ'] then StrSaida := strSaida+'n' else if StrEntrada[x] in ['Ý','ý','ÿ' ,'ÿ'] then StrSaida := strSaida+'y' else StrSaida := StrSaida+''; end; if Estado = 'M' then SemAcentos := uppercase(StrSaida) else if Estado = 'm' then SemAcentos := Lowercase(StrSaida) else if (Estado = 'I') or (Estado = 'i') then SemAcentos := StrSaida; end; [codigo] Emanuel Coutinho Salvador-Ba-Brasil De: Tiago de Assis Pimenta tiagopime...@ymail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 6 de Março de 2009 10:00:20 Assunto: [delphi-br] Problema com Função (Lógica errada ?) Pessoal, estou com o seguinte problema aqui no meu serviço, tenho que fazer uma função que desabilite a acentuação em todos os forms do sistema. Até ae tudo OK, estou com a seguinte função para fazer isso. if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0; Testei essa função direto no OnKeyPress do form e ela funcionou perfeitamente, mas para ficar um pouco melhor, tentei colocar essa função numa Unit aqui que tem somente Procedures e Functions. Então ela ficou assim : UntFuncoes procedure Desabilita_Acentos ( Key : Char); begin if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0; end; UntCentro_Custo No Evento OnKeyPress coloco assim. procedure TfrmCentro_Custo. FormKeyPress( Sender: TObject; var Key: Char); Begin Desabilita_Acentos( key); end; Pelo que sei, era para funcionar... mas não funcionou assim, debuguei a função e ela retonar false na verificação (Key in ['A'..'Z', 'a'..'z', '0'..'9']) e a Key que testei foi a “é”. E mesmo dando false na verificação, ela não le a linha Key := #0; Alguem tem alguma explicação do porque isso ?!?!? Como preciso passar isso logo pra frente, eu coloquei a função “if not (Key in ['A'..'Z', 'a'..'z', '0'..'9']) then key := #0;” direto no OnKeyPress do UntCentro_Custo para poder liberar isso hj, mas gostaria de uma explicação para isso, pois a lógica está correta (Eu acho). Abraços [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] displayformat campo float DBGRID
Colega Alexandre... O DBGrid vai herdar para apresentação as máscaras que vc colocar no campo do dataset Assim, se vc formatar '#,##0.###', aparecerão valores assim: 4250,25 = 4.250,25 2,00 = 2 0,345 = 0,345 Sds Emanuel Coutinho Salvador-Ba-Brasil Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Lista Aniversariantes em paradox
Olá Jefferson
Este texto abaixo é do Help do Delphi
Trata-se da função que extrai o mes de uma data
Returns the month of the year represented by a TDateTime value.
Unit
DateUtils
Category
date/time routines
function MonthOf(const AValue: TDateTime): Word;
Description
Call MonthOf to obtain the month of the year represented by a specified
TDateTime value. MonthOf returns a value between 1 and 12.
Note:MonthOf returns the same value as the MonthOfTheYear function.
Emanuel Coutinho
Salvador-Ba-Brasil
De: Jeferson Oliveira zuberi3...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 5 de Março de 2009 15:17:43
Assunto: [delphi-br] Lista Aniversariantes em paradox
Boa tarde colegas da lista.
Gostaria de pedir auxilio dos amigos com relação a um pequeno problema
que estou tendo.
Preciso imprimir no Rave Reports a lista de aniversariantes do mes de um
cadastro de clientes.
Rave Reports e SQL funcionando mas não a contentendo, pois quando faço a
pesquisa por mes, por exemplo o usuario entra com o mes desejado em um edit
e o sql busca os nascidos naquele mes, ok funcionando, porem não consigo
desmenbrar a data, pois eu jogo o nome e a data de nascimento inteira do
cidadão num dbgrid.
Minha perguta é: Como posso manipular o campo data de tal forma que
para o dbgrid seja enviado somente o dia do nascimento do cliente.
Cheguei a encontrar algo com o encode e decode date, mas nao consegui
implementar, pois ainda sou inesperiente em Delphi.
http://geo.yahoo. com/serv? s=97490437/ grpId=1058778/ grpspId=21371112
64/msgId
=198126/stime= 1236272648/ nc1=1/nc2= 2/nc3=3
O que tenho programado no botao de pesquisa e na propriedade SQL do
query é isso respectivamente:
procedure Tfrmconsultaniver. BitBtn1Click( Sender: TObject);
begin
with datamodule1 do
qconsulta.Close
qconsulta.ParamByNa me('DATAINICIAL' ).AsInteger: =
strtoint(edit1. text)
qconsulta.Open
end;
end;
SELECT NOME_MEMBRO, DTNASC_MEMBRO FROM DB_MEMBROS
WHERE EXTRACT (MONTH FROM DTNASC_MEMBRO) = :DATAINICIAL
ORDER BY DTNASC_MEMBRO;
Toda e qualquer ajuda sera bem vinda.
Muito obrigado
Jeferson Oliveira.
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Rave
Olá Companheiros, Agradeço ao Colega que respondeu ser o Rave fácil de utilizar, embora não tenha na verdade respondido meu questionamento. Conheci e usei o ReportSmith com Delphi 1. Gostava do bicho... era legal Mas... há possibilidade de usar Rave com D6? Se SIM, onde pego os componentes? Agradeço des de já, mais uma vez, solicitando a quem responder... que Responda minha pergunta: O Rave é parecido com o ReportSmith? Sds Emanuel Coutinho Osmar de Souza Júnior wrote: não entendi... não usa o Rave por ainda usar o Delphi 6 ??? eu já usei o Rave com o Delphi 6 sem problemas... é muito simples de trabalhar... --- Em [EMAIL PROTECTED], Emanuel Coutinho [EMAIL PROTECTED] escreveu Olá companheiros, Ainda não uso o RAVE, por ainda usar Delphi 6, mas algumas pessoas que conheço aqui em Salvador, me falaram que é muito parecido com o antiquiquíssimo ReportSmith, que vinha com a Versão Delphi 1, ISSO É VERDADE? Obrigado! Emanuel Coutionho [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] como comparar string com float
Olá colega
O bom do Pascal que o Object Pascal herdou é isso... as funções de
Tipagem
FloatToStr(0.5)... transforma um numero do tipo Float para a string '0.5'
ou ainda se desejar comparar como Float
StrToFloat('50')... transforma sua String '50' no número de tipo Float...
aí compara os dois
If [numero float ex. 0.5] = StrToFloat('50') then
begin
.
.
.
end;
O Inverso também é possivel.
If '50' = FloatToStr(0.5) then
begin
.
.
.
end;
delphi6_2005 wrote:
Amigos estou com dificuldades para comparar string e float, nesse
caso:
comparar string 50 com float 0,5.
Alguma amigo poderia me dar uma idéia de como fazer.
grato
Paulo
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Rave
Olá companheiros, Ainda não uso o RAVE, por ainda usar Delphi 6, mas algumas pessoas que conheço aqui em Salvador, me falaram que é muito parecido com o antiquiquíssimo ReportSmith, que vinha com a Versão Delphi 1, ISSO É VERDADE? Obrigado! Emanuel Coutionho -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Imprimir s o registro atual no Rave
J pensou em aplicar um filtro na tabela visando deixar apenas o registro desejado? Funciona assim com quickReport tambm... O problema no est no gerador de relatrios... a base de dados que tem de ser filtrada... Sds Emanuel Coutinho [EMAIL PROTECTED] wrote: Boas... Meu problema o seguinte: preciso imprimir o registro de uma tabela q est sendo mostrado na tela (Form), porem sempre que clico no boto Imprimir (SpeedButton1Click) o programa sempre imprime o primeiro registro da tabela! :-( Como fao pra posicionar na tabela o registro atualmente exibido no Form e imprimi-lo? Estou usando o Rave em modo programado e usando ADOTable. Obridado a todos!! :-) Abs Alexandre -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Paradox On-Line entre Filiais
Lione Por que seria inviável? Seu cliente não quer investir em um SGBD? Ainda há da sua parte alguma limitação quanto a programação Cliente/Servidor? Se você deseja programar da mesma forma que programa para Paradox, usando Tables, e relacionamentos Master/Detail, fazendo compartilhamento de arquivo de forma mais segura que com o paradox, pode usar o FlashFile. Tenho utilizado aqui na empresa que trabalho e tem aprovado bastante. São 12 estações, algumas com Win 98, outras com 2000 e outras com XP Pro. Os aplicativos variam de Simples agendas a Sistema Integrado de Ponto e Cobrança de Mão-de-Obra, sem ter travado nem corrompido uma vez sequer em mais de 1 ano de utilização. Se você desejar, posso te passar as coordenadas... Pense nisso, e me responda! Mas uma coisa é certa! FUJA DO PARADOX se for fazer algo para rede. Uma aplicação StandAlone... tudo bem... mas em rede NÃO. Sds Emanuel Coutinho Lista wrote: Caros Colegas... Preciso fazer funcionar o Delphi com Paradox em um cliente que tem 5 Filiais e ele quer que o sistema funcione On-Line. Consigo fazer isso com o Paradox Se tiver que converter para outro Banco de Dados é inviavel para mim. Qualquer ajuda eu agradeço... Lione Bohn. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Traduzir...
Denise,
Se você usar o Application.Messagebox('Mensagem a ser apresentada',
'Cabeçalho da janela pop-up',MB_YESNO+MB_ICONWARNING ) você terá tudo em
Portugues, pois usa o sistema operacional!!!
No Lugar do MB_YESNO, pode ainda ser MB_OK, MB_YESNOCANCEL... E
No lugar do MB_ICONWARNING, pode ainda ser MB_ICONQUESTION... ETC...
Espero ter ajudado,
Sds
Emanuel Coutinho
Denise Ferreira wrote:
Boa noite!
Caros amigos...
Aí vai mais uma pérola..
Como posso tornar as opções de botões do MessageDlg em português?
Não quero Yes, No no botões e nem Confirmatio na identificação
Como posso traduzir isso?
Abraço...
Denise
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
