Re: Res: RES: [delphi-br] INICIANTE DELPHI7
é mesmo Silvio, obrigado pela dica, rsrsrsrsr Delphi Faça Uma Aplicação Comercial Autor Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em qua, 1/4/09, Silvio Clécio silviop...@yahoo.com.br escreveu: De: Silvio Clécio silviop...@yahoo.com.br Assunto: Res: RES: [delphi-br] INICIANTE DELPHI7 Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 1 de Abril de 2009, 23:48 Olá galera, Amigo Você pode adiquir o meu livro, vai ensinar a você fazer um controle de estoque passo a passo Rubens, só um pitaco: informe o título do seu livro, aparecem muitos no link [http://www.lcm. com.br/], beleza brother? ;) Parabéns pela livro, pelo que vejo o pessoal comentar está Show! _ _ __ []'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] Off Topic - Notebook
Boa noite, Obrigado pelas respostas, ajudaram bastante. Antonio C. de M. Pires _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de fcl...@unifemm.edu.br Enviada em: terça-feira, 31 de março de 2009 21:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off Topic - Notebook Soy Yo!! :) Falando em modelos, sempre tive notebooks da HP, sempre fui fã da qualidades e design da HP. Recentemente em uma viagem para fora acabei comprado um modelo da ASUS (série M51V). Até o momento não tenho o que reclamar. Hardware de excelente qualidade (processador centrino 2 P8600, 320Gb HD, 4Gb RAM e placa de video 3D com 512 dedicado, saida HDMI, e-sata). Infelizmente não sei como é a assistencia aqui no Brasil Abraços. Fernando Leal Citando Walter Chagas (Bol) wchag...@bol. mailto:wchagasj%40bol.com.br com.br: Claudiney, Vou concordar com voce e discordar ao mesmo tempo :) Como você disse, Dell e HP são marcas realmente conceituadas e de qualidade inquestionável. Por exemplo. Eu tenho um Latitude D520 a dois anos. Já caiu no chão uma vez e até hoje roda com a bateria original sem vicio. Viajava comigo pra tudo quanto é lado. Aguentava pouso de avião e buraqueira de estrada viajando na Caçamba da Strada da minha esposa e tá lá, justificando a reputação da marca. Graças a Deus nunca precisei da assistencia técnica dele. Este ano a Telemont me deu um dela, um D530 para eu parar de usar o meu em serviço. Tem 6 meses e funciona direto. Taqui agora, no batente sem chiar e nem reclamar. Concord com voce quando diz que o importante e o seu conteúdo. Recentemente a Telemont adiquiriu um lote de notebooks da marca Lenovo. todos eles vem com tudo interno Intel com Windows Vista. Ate agora tão funcionando beleza. Como voce mesmo disse. Se vai pagar, exija pelo menos que o hardware tenha procedencia confiável. Agora quanto a questão de custo, eu discordo de você. Se vai desembolsar, ainda mais pra um produto que vai acabar se tornando parte da sua vida, entao eu penso que deve-se, ainda que pagar mais caro, por QUALIDADE E CONFIABILIDADE. Pagar barato por um notebook que vai lhe dar mais problemas do que solução, não é a melhor das alternativas ainda mais praquilo que se pretende usar. Então, se vais comprar uma coisa que voce sabe que não poe dar pra trás contigo, que não pode deixar a peteca cair, então convem realmente pagar um pouco mais pra ter, não só qualidade, como também apoio e retaguarda de qualidade. E tem mais! É totalmente desaconselhável comprar notebook em shopping Popular/Camelódromos porque depois de comprado e pago, a garantia soy quem??? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol. mailto:wchagasj%40bol.com.br com.br http://www.geocitie http://www.geocities.com/SiliconValley/Bay/1058 s.com/SiliconValley/Bay/1058 http://delphitocorp http://delphitocorporerm.blogspot.com/ orerm.blogspot.com/ MSN: whitesockets@ mailto:whitesockets%40hotmail.com hotmail.com SKYPE: WalterChagasJr - Original Message - From: Claudiney Cogo To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, March 30, 2009 9:18 AM Subject: RES: [delphi-br] Off Topic - Notebook Bom dia Antônio. Na minha opinião, HP e Dell são realmente as marcas mais conceituadas. Mas o custo é alto. Já a Acer tem um valor bem mais acessível, porém não tem a fama da outras duas. Mas como digo sempre, o que vale nem sempre é a marca, mas o que tem dentro. Verifique sempre se os componentes são bons. Processador, memória, HD.. são de marcas boas? Então não vejo problema. Claro que em se tratando de assistência técnica, HP e Dell dão show. Mas isso tem o seu custo, claro. Aqui na empresa até 15 dias atrás trabalhamos com um notebook Acer (que não lembro o modelo, mas é um mais antigo) e um Asus A4000L. Os dois nos serviram muito bem por 4 anos, sem nenhum problema técnico. Os dois eram Intel Celeron. Agora trocamos os dois pelo Acer 6930-6455... Intel Core 2 Duo T5800 2.0Ghz, 800Mhz FSB, 2MB L2 Cacha, tela de 16.4, placa de vídeo Intel, 4 GB RAM DDR2, 250 GB HDD, Gravador de DVD Dual Layer, Wireless a/b/g/n, som Dolby Home Theater com subwoofer http://us.acer. http://us.acer.com/acer/productv.do?acond26e=USinu45e.current.c2att92=447; C com/acer/productv.do?acond26e=USinu45e.current.c2att92=447C ountryISOCtxParam=USrru3e.categoryId=4876inu41e.current.c2att92=447rcond9 1e.c2att1=25rcond92e.att21k=1kcond15e.c2att1=25rru3e.manufactererId=10276 4sp=page12ectx1g.c2att92=447rcond81e.c2att1=25rcond40e.c2att92=447kcond 21e.c2att92=447LanguageISOCtxParam=enacond28e=USlink=ln159ekcond27e.c2at t92=447rru2e.manufactererId=102764kcond22e.c2att101=39857rcond82e.att21k= 1rru2e.categoryId=4876acond23=USrcond88e.c2att92=447par170e=447switch4e .switch=1rru3e.pageNumber=1ctx2.c2att1=25rcond80e.c2att92=447ctx1.att21k
[delphi-br] Inscrição Suframa
Bom dia a todos... Alguém tem o código que valida a Inscrição Suframa? ou a formula? Por favor poste aqui ou envie para projetocooperar@ zipmail.com. br Obrigado
RES: [delphi-br] Consulta SQL - Access 2003 e Delphi
Ricardo Você irá utilizar a opção NOT EXIST na cláusula... Select * from Tabela1 where nota_fiscal not exists (select * from tabela2) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo Ravelli Enviada em: quarta-feira, 1 de abril de 2009 23:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Consulta SQL - Access 2003 e Delphi Boa noite, Preciso de uma ajuda. Tenho duas tabelas no access 2003 e preciso fazer uma consulta no qual ele traz os registros que não foram encontrados na Tabela2. Ex: Tabela 1 (aproximadamente 2000 registros) Tabela 2 (aproximadamente 80 registros) O campo em comum nas duas é a nota_fiscal (que tem registros duplicados na duas tabelas). Resumindo, preciso verificar quais dos 2000 registros da Tabela1 não está dentro da Tabela2 e retornar esse valor. Tenho um sistema em delphi que utiliza o access e preciso cruzar essas informações. Fiz alguns testes a não consegui nenhum resultado correto. Agradesço desde já. Obrigado. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 3981 (20090401) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Itens de menu criados em tempo de execução
Tenho uma rotina que verifica todos os itens de menu existentes, mas os que são criados em tempo de execução não são detectados. Se eu rodar o código abaixo só os que são criados em tempo de desenvolvimento são mostrados. Alguém sabe por que? for i := 0 to ComponentCount-1 do if Components[i] is TMenuItem then ShowMessage((Components[i] as TMenuItem).Name); __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Desabilitar maximizar ReportBuilder
Existe alguma forma de desabilitar o botão de maximizar da visualização de relatório do Report Builder? Utilizo a versão 10.02 no delphi 2006...
[delphi-br] Somar horas, minutos e segundos em now()
procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Somar horas, minutos e segundos em now()
Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo 50h23m44s ou 2 dias 02h23m44s ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [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] Somar horas, minutos e segundos em now()
Roberto, Criei duas funções, uma que transforma horas para segundos, faço as contas e depois transformo os segundos para horas. Não sei o que acontece se der mais do que 24 horas, mas é só uma questão de melhorar as funções. function TimeToSec(tempo: String): String; var Present: TDateTime; Hour, Min, Sec, MSec: Word; begin tempo := Trim(AnsiReplaceStr(tempo,'.',',')); if tempo '' then begin Present := StrToDateTime(tempo); DecodeTime(Present, Hour, Min, Sec, MSec); Result := FloatToStr((Hour*3600)+(Min*60)+(Sec)+(MSec/1000)); end else Result := '0'; end; function SecToTime(tempo: String): String; var Present: TDateTime; begin if tempo '' then Result := EncodeTime(Hour, Min, Sec, MSec) else Result := '000:00:00'; end; Att, Marcos A. Ferreira São Paulo - BrasilMSN: maferre...@hotmail.itgoogle Talk: maf.decisiva Skype: m_abreuferreira 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. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. To: delphi-br@yahoogrupos.com.br From: wa...@oi.com.br Date: Thu, 2 Apr 2009 15:33:06 -0300 Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas] _ News, entertainment and everything you care about at Live.com. Get it now! http://www.live.com/getstarted.aspx [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Somar horas, minutos e segundos em now()
Luiz, obrigado, somente to necessitando somar, é para um temporizador do tipo rele assim Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele, Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória e se me permite a franqueza um pouco de preguiça. Pode? Roberto Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo 50h23m44s ou 2 dias 02h23m44s ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [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] Somar horas, minutos e segundos em now()
Faça a conversão de string para time.
Tempo := Now + StrToTime('02:03:25');
2009/4/2 Roberto wa...@oi.com.br
procedure TForm1.Button1Click(Sender: TObject);
var
Tempo : TTime;
Begin
// Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR
FAVOR
Tempo := Now( ) + 2h3m:25s;
label2.Caption := TimetoStr(tempo);
end;
Roberto
[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] Somar horas, minutos e segundos em now()
Ta certo... mas vo te ajudar afinal amigo é pra essas coisas 10 segundos no help do Delphi 6-PRO veja as funções que acho que vai funfa pra vc... IncAMonth procedure Increments date data by one month. IncDay function Returns a date shifted by a specified number of days. IncHour function Returns a date/time value shifted by a specified number of hours. IncMilliSecond function Returns a date/time value shifted by a specified number of milliseconds. IncMinute function Returns a date/time value shifted by a specified number of minutes. IncMonth function Returns a date shifted by a specified number of months. IncSecond function Returns a date/time value shifted by a specified number of seconds. IncWeek function Returns a date shifted by a specified number of weeks. IncYear function Returns a date shifted by a specified number of years. []s Luiz Escobar PS: depois da segunda veze ja bate a preguiça.. kk From: Roberto Sent: Thursday, April 02, 2009 3:52 PM To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Somar horas, minutos e segundos em now() Luiz, obrigado, somente to necessitando somar, é para um temporizador do tipo rele assim Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele, Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória e se me permite a franqueza um pouco de preguiça. Pode? Roberto Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo 50h23m44s ou 2 dias 02h23m44s ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [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] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Somar horas, minutos e segundos em now() Solucionado
Marcos, Rafael e Luiz, Acabou a minha preguiça e com as preciosas informações que me ofertaram, vou me aplicar a partir deste momento e solucionarei o problema com certeza. Grade abraço amigos... Sorte e saúde. Roberto (RJ) // Roberto, Criei duas funções, uma que transforma horas para segundos, faço as contas e depois transformo os segundos para horas. Não sei o que acontece se der mais do que 24 horas, mas é só uma questão de melhorar as funções. function TimeToSec(tempo: String): String; var Present: TDateTime; Hour, Min, Sec, MSec: Word; begin tempo := Trim(AnsiReplaceStr(tempo,'.',',')); if tempo '' then begin Present := StrToDateTime(tempo); DecodeTime(Present, Hour, Min, Sec, MSec); Result := FloatToStr((Hour*3600)+(Min*60)+(Sec)+(MSec/1000)); end else Result := '0'; end; function SecToTime(tempo: String): String; var Present: TDateTime; begin if tempo '' then Result := EncodeTime(Hour, Min, Sec, MSec) else Result := '000:00:00'; end; Att, Marcos A. Ferreira São Paulo - BrasilMSN: maferre...@hotmail.itgoogle mailto:maferreira%40hotmail.itGoogle Talk: maf.decisiva Skype: m_abreuferreira 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. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: wa...@oi.com.br mailto:wazen%40oi.com.br Date: Thu, 2 Apr 2009 15:33:06 -0300 Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas] __ News, entertainment and everything you care about at Live.com. Get it now! http://www.live.com/getstarted.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi3000 - Malware
Eu tentei acessar ontem também e tava fora do ar. []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 - Original Message - From: Emanuel Coutinho To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 01, 2009 10:06 PM Subject: [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] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Somar horas, minutos e segundos em now()
Olá galera, Eu acho que seria assim: --- procedure TForm1.Button1Click(Sender: TObject); var Tempo: TTime; begin Tempo := Now + IncSecond(Tempo, 195); label2.Caption := TimeToStr(Tempo); end; --- Faça o teste. []'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: Roberto wa...@oi.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 2 de Abril de 2009 15:33:06 Assunto: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click (Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo) ; end; Roberto 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] Itens de menu criados em tempo de e xecução
Olá pessoal, Bom, é compilador cria o nome do ítem de menu automaticamente, mas, já tentou fazer isso manualmente? Tipo: --- ItemMenu.Nome := 'ItemMenu' + i. --- Sendo que o i é um número para vc dar para cada íten, ficando ItemMenu1, ItemMenu2 e etc., tente aí. []'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: Alisson alss...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 2 de Abril de 2009 9:36:44 Assunto: [delphi-br] Itens de menu criados em tempo de execução Tenho uma rotina que verifica todos os itens de menu existentes, mas os que são criados em tempo de execução não são detectados. Se eu rodar o código abaixo só os que são criados em tempo de desenvolvimento são mostrados. Alguém sabe por que? for i := 0 to ComponentCount- 1 do if Components[i] is TMenuItem then ShowMessage( (Components[ i] as TMenuItem).Name) ; 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] Desabilitar maximizar ReportBuilder
Boa noite para todos, Alguém poderia me ajudar com manipulação de arquivo do Excel.. Como posso passar dados para uma planilha e como ler dados da planilha? Obrigado. Atte. Dimas Bolognani DBSOFT INFORMÁTICA LTDA OURO FINO MG TEL(35)3441-5254 / 9978-8540 [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Off Topic - Notebook
Aí você tem uma situação específica e ta certo quando procura a máquina que melhor se adapta a sua necessidade. Na verdade, é isso mesmo que tem que acontecer... encontrar o melhor para aquilo que você precisa. No seu caso uma máquina com menos recursos vai atender. Depende muito daquilo que se vai usar o computador, o que vai ser preciso rodar nele. Como disse eu trabalho no dia a dia com vários softwares que são pesados, como RAD Studio 2007, Visual Studio 2008, SQL Server 2005, Photoshop CS3, Dreamweaver... Aí recursos pra mim são extremamente importantes. Principalmente processador e memória. Mas no meu caso trabalho mais no escritório, ou no cliente. Ainda assim, mesmo o meu ASUS antigo quanto o ACER novo, viajam de tudo que é jeito que você imagina... carro, ônibus, avião... até carroça.. rsrs.. o cuidado que temos aqui é o padrão, pra não danificar nada na máquina, mas cuidado com transporte, nenhum. Importante... não estou aqui querendo defender essa ou aquela marca... entendam isso. Só quero passar para o nosso amigo a experiência que temos aqui na empresa. Assim ele vê o uso que cada um faz de cada máquina e decide o que precisar. Abraço -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alexandre Rodrigues Enviada em: quarta-feira, 1 de abril de 2009 11:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Off Topic - Notebook Claudio eu discordo de você. A meu ver vale mais a pena comprar uma máquina com menos recursos, mas que não vá te incomodar do que comprar uma super máquina que poderá te dar problemas. Como já disse não temos boas experiências com Acer, pois esse necessita de muito cuidado para não dar problema. Trabalho com automação industrial e temos que agradecer quando arranjamos algum lugar para apoiar o note quando estamos no cliente fazendo um try out/startup. Nesse ponto não temos o que reclamar da Dell ou da HP pois são equipamentos extremamente resistentes. Claudiney Cogo escreveu: Olá Walter Concordo com você plenamente. Também sou adepto de gastar um pouco a mais e comprar o melhor pra não ter dor de cabeça depois. O que eu quis dizer é que a escolha pode ser diretamente influenciada pelo valor disponível que a pessoa tenha no momento da aquisição, pois os valores são realmente muito diferentes. Enquanto você paga uns 3.000 reais num Acer C2D com tudo de última geração, o equivalente em um Dell ou HP vai custar pelo menos uns 5.000 reais. A diferença é muito grande, justamente por causa da marca e do suporte e não porque o equipamento tem peças melhores, pois processador Intel é Intel em qualquer uma. Então se a compra é imprescindível e o valor disponível não dá pra comprar um HP ou um Dell com todas as vantagens que eles tem de suporte (e acho que é a única grande diferença entre eles), vai de Acer mesmo, de Asus, de Lenovo, ou de qualquer outro, pois vai resolver da mesma maneira o problema de ter uma máquina disponível para trabalho. Depois é só se organizar e na próxima troca tentar partir pra uma dessas marcas, se achar conveniente. Como eu disse, aqui eu tive notebook Asus e Acer por 4 anos sem ter um único dia parado. E funcionava dia e noite, pois ficava ligado no escritório, pois as vezes de casa precisava fazer acesso a eles. Nem todo dia era levado pra casa. Hoje temos Acer novos, também sem nenhum problema. Acho que a questão sorte no quesito precisar de assistência também vale, claro. Mas não dá pra dizer que as máquinas que não são Dell ou HP são ruins. Muito pelo contrário. O Acer 6930 que tenho hoje é um espetáculo de máquina. Se um dia der problema, aí é outra história. Sei que vou ter que correr atrás do conserto. Mas ela resolve todos os problemas que tenho no dia a dia. Agora, uma coisa você disse aí que tenho certeza que todos concordam... não se compra notebook em camelô, rsrs. Tem que ser em loja ou com um vendedor de confiança. Você tem que ter a quem recorrer na hora do aperto. Alguém pra espremer na parede... rsrsrs Abraço 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 Walter Chagas (Bol) Enviada em: terça-feira, 31 de março de 2009 15:18 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Off Topic - Notebook Claudiney, Vou concordar com voce e discordar ao mesmo tempo :) Como você disse, Dell e HP são marcas realmente conceituadas e de qualidade inquestionável. Por exemplo. Eu tenho um Latitude D520 a dois anos. Já caiu no chão uma vez e até hoje roda com a bateria original sem vicio. Viajava comigo pra tudo quanto é lado. Aguentava pouso de avião e buraqueira de estrada viajando na Caçamba da Strada da minha esposa e tá lá, justificando a reputação da marca. Graças a Deus nunca precisei da assistencia técnica dele. Este ano a Telemont
Re: [delphi-br] Delphi3000 - Malware
Emanuel, já recebí o mesmo aviso, quando tentei acessar o Delphi3000 pelo Google Chrome. Simplesmente ignorei o aviso e continuei. Talvez o site tenha sido reportado equivocadamente. Mas há possibilidade de ser verdade... . No mais. Recomendo que você use um browser atualizado. Assim as chances de ter algum problema, mesmo o site estando infectado, são mínimas. . Att... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Novos vídeos Free!
Olá galera, Primeiramente desculpem pelo OFF, mas, é uma ótima notícia para quem quer vídeos 0800 sobre Delphi, OOP, Firebird e etc., do site www.istudar.com.br. Eu estava acompanhando cada arquivo inserido no site, só que ao tentar fazer o download de um arquivo, recebi a notificação que tinha que ter créditos, daí cheguei a indagar com o Renato (um dos professores do site) sobre ele deixar o que é free, free! Bom, eu _doido_ para aprender e sem ser assistindo pelo browser (minha NET é muito lenta), comprei R$10,00 de créditos e fiz os downloads, até comentei com ele que os vídeos estavam mais baratos que picolé, elaborar a aula, gravar num arquivo e vender por R$0,50; é o professor querendo ver o povo aprender mesmo! De quebra, os vídeos free agora podem ser baixados normalmente (fui informado hoje), ou para quem tem uma NET melhor que a minha (hoje ~10kbps) pode tb assistir pelo browser, eu acho melhor, mas, a minha NET realmente não ajuda, tenho que passar horas esperando o download, ainda bem que se a conexão cair, o M. Firefox continua de onde parou (ufa!). Visitem o site, assistam pelo menos 1 aula e vejam a didática do cara, só não aprende se não quiser mesmo :) Site - [www.istudar.com.br]. Boa sorte a todos! []'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.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Isso é um bug no Delphi 2009? Aut oEdit do DataSource
Migrei a aplicação do Delphi 2006 para o Delphi 2009, e os componentes DBControls estão com um comportamento diferente no Delphi 2006 quando a propriedade AutoEdit do DataSource esta com False os controles ficam ReadOnly, somente quando dar um edit no ClientDataSet se consegue digitar algo, no Delphi 2009 isso não está acontecendo, o AutoEdit do DataSource está como false mas se consegue digitar algo, porem gera uma Exception DataSet not in Edit or Insert mode. Isso é um bug no Delphi 2009? Obrigado. At. Ricardo Lima
Re: [delphi-br] Somar horas, minutos e segundos em now()
Inclua a unit DateUtils no seu programa e use os métodos: IncMinute() IncSecond() Ex: DataAtual := Now; IncMinute(DataAtual,3); IncSecond(DataAtual,25); Para incrementar uma data, use valores positivos. Para decrementar, use valores negativos. Fácil assim! Aproveite e dê uma olhada em outros métodos disponíveis nessa Unit. Abraço. Edu Nicácio http://www34.brinkster.com/ecnsoft - Original Message - From: Roberto To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 02, 2009 3:52 PM Subject: RES: [delphi-br] Somar horas, minutos e segundos em now() Luiz, obrigado, somente to necessitando somar, é para um temporizador do tipo rele assim Ligar rele as 22:53 durante 1h23m transcorrido este tempo desliga rele, Acontece que já fiz isto trezentas vezes, mais hoje to cum branco na memória e se me permite a franqueza um pouco de preguiça. Pode? Roberto Se não me engano tem uma função pra isso, mas não lembro, mas na pior das hipóteses, transforma tudo em segundos soma e volta pra hh:mm:ss Lembre-se se passar de 23:59:59, deve-se voltar para 00:xx:xx e aumentar +1 na data, no caso de estar trabalhando com data também... ou manter o valor de horas mesmo tipo 50h23m44s ou 2 dias 02h23m44s ai vai depender da necessidade... []s Luiz Escobar From: Roberto Sent: Thursday, April 02, 2009 3:33 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Somar horas, minutos e segundos em now() procedure TForm1.Button1Click(Sender: TObject); var Tempo : TTime; Begin // Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR FAVOR Tempo := Now( ) + 2h3m:25s; label2.Caption := TimetoStr(tempo); end; Roberto [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.35/2033 - Release Date: 03/31/09 13:05:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Itens de menu criados em tempo de execução
Já consegui resolver pessoal. Depois de criar os itens de menu, dei um Refresh no form e usei Application.ProcessMessages. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Itens de menu cri ados em tempo de execução
opa cara ,blçz como que vc cria os menus em tempo de execução, qual a técnica usada?? Alisson Yahoo escreveu: Já consegui resolver pessoal. Depois de criar os itens de menu, dei um Refresh no form e usei Application.ProcessMessages. [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com -
