[delphi-br] OFFTOPIC - Thinkpad T42
Olá TODOS! Desculpem o OFF, mas talvez alguém da comunidade possa ajudar. Tenho um Thinkpad T42 da IBM, e formatei ele completamente para instalar o Linux, mas não criei os CD's de recovey antes disso. Agora não tenho como voltar o windows e o software original. Se alguém tiver um T42 e puder criar os CD's de recovery para mim, eu pago os CD's e a remessa. Agradeço desde já. abraços Eliéser Morais [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] Mostrar R$ sem criar TField ou usar FormatCurr
Pesquise no help sobre o evento OnGetText da classe TField. Com certeza, ele poderá ser a solução para o seu problema. Não tenho exemplos prontos para lhe enviar, mas acredito que o que tem exposto no help já ajudará e muito. O que importa é que a dica para pescar o peixe foi passada! Boa sorte! []s From: Oswaldo Ricardo da Rocha Jr [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Mostrar R$ sem criar TField ou usar FormatCurr Date: Tue, 6 Sep 2005 14:13:40 -0300 (ART) Pessoal, preciso que todos os meus controles (dbEdits, dbGrids, etc) mostrem os valores dos campos currency (valores monetários) com o R$ na frente, mas não quero criar nenhum TCurrencyField (não sou adepto de criar TFields em tempo de projeto, pois dificulta em muito qualquer manutenção nos fontes), tambem não quero saber de funções de formatação (sei que vai ter alguem respondendo usa o FormatCurr). O que quero sei que é possivel, mas não estou conseguindo encontrar, já faz 2 dias que estou pesquisando, mas não encontro. Já tentei isto: (qryMatricula.Fields.FieldbyName('Valor_Mensalidade') as TCurrencyField).currency := true; O que os digníssimos colegas de lista sugerem? ___ _ _ _ / _ \ | || || | | | | | ___ __ _ __ __ _ | | __| | ___ | |_ __ | | | |/ __|\ \/ \/ // _` || | / _ | / _ \ _ | | '__| | |_| |\__ \ \ _ /| (_| || || (_| || (_) || |__| | | \___/ |___/ \/ \/ \__,_||_| \__._| \___/ \_/|_| Oswaldo Ricardo da Rocha Jr E-Mail: [EMAIL PROTECTED], [EMAIL PROTECTED] [EMAIL PROTECTED],[EMAIL PROTECTED] HP Pessoal: http://br.geocities.com/oswjr HP Empresa: http://www.astharinformatica.com.br Messenger [EMAIL PROTECTED] ICQ:66755778 - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * 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: Número Serial Físico d o HD
Essa dica é boa, mas o recurso de S.M.A.R.T. tem que estar habilitado no setup da máquina pra poder funcionar. Estou trabalhando em pelo menos duas funções pra retornar informãções únicas do computador, e uma delas é uma função melhor que essa mencionada nesse link, só que pra recuperar o serial de fábrica do HD sem necessitar habilitar S.M.A.R.T. no setup do micro. []s From: ricknetbr [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: Número Serial Físico do HD Date: Thu, 08 Sep 2005 02:51:04 - Amigo, veja essa dica,que é muito boa, do Boletim Pascal http://latiumsoftware.com/br/pascal/0044.php#4 --- Em delphi-br@yahoogrupos.com.br, Alan Silveira [EMAIL PROTECTED] escreveu Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Validar Data
Bom dia, estou fazendo um select com data utilizando como parametro a data digitada em um edit. Ele está funcionando perfeitamente, porém apenas qdo digito uma data correta e com a máscara correta. 08/09/2005. Porém gostaria de fazer umas das coisas abaixo. 1 - Fazer com que neste edit eu sempre digite uma data válida, pois se digitar algo diferente ele dá erro no select ou, 2 - Antes do select ele verifique se o conteúdo do edit digitado é uma data válida. Se alguém puder me ajudar, estou utilizando o firebird 1.5 e delphi 7 Grato - Cristiano. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Número Serial Físico do HD
Bom dia! Cara eu fiz algo parecido a pouco tempo e utilizei essa unit em anexo para buscar esse ID. Veja se te ajuda. Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 8 de setembro de 2005 08:03 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Re: Número Serial Físico do HD Prioridade: Alta Essa dica é boa, mas o recurso de S.M.A.R.T. tem que estar habilitado no setup da máquina pra poder funcionar. Estou trabalhando em pelo menos duas funções pra retornar informãções únicas do computador, e uma delas é uma função melhor que essa mencionada nesse link, só que pra recuperar o serial de fábrica do HD sem necessitar habilitar S.M.A.R.T. no setup do micro. []s From: ricknetbr [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: Número Serial Físico do HD Date: Thu, 08 Sep 2005 02:51:04 - Amigo, veja essa dica,que é muito boa, do Boletim Pascal http://latiumsoftware.com/br/pascal/0044.php#4 --- Em delphi-br@yahoogrupos.com.br, Alan Silveira [EMAIL PROTECTED] escreveu Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fnjolhc/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126184617/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http:/br.movies.yahoo.com/ http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [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] Validar Data
vc já pensou em usar o datapicker para inserir as datas? nele não tem como errar a data, e se vc usa o Jedi, nele tem um componente em branco onde vc digita datas e ele mesmo a valida para vc... - Original Message - From: Cristiano Rodrigo Gomes To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 08, 2005 8:06 AM Subject: [delphi-br] Validar Data Bom dia, estou fazendo um select com data utilizando como parametro a data digitada em um edit. Ele está funcionando perfeitamente, porém apenas qdo digito uma data correta e com a máscara correta. 08/09/2005. Porém gostaria de fazer umas das coisas abaixo. 1 - Fazer com que neste edit eu sempre digite uma data válida, pois se digitar algo diferente ele dá erro no select ou, 2 - Antes do select ele verifique se o conteúdo do edit digitado é uma data válida. Se alguém puder me ajudar, estou utilizando o firebird 1.5 e delphi 7 Grato - Cristiano. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.10.18/91 - Release Date: 06/09/2005 [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: RES: [delphi-br] Re: Número Serial Fís ico do HD
A lista não permite que vc mande conteúdo anexado nas mensagens. Sugiro que vc poste esse arquivo na área de arquivos da lista. []s From: Filipe Colaneri [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Re: Número Serial Físico do HD Date: Thu, 8 Sep 2005 08:19:45 -0300 Bom dia! Cara eu fiz algo parecido a pouco tempo e utilizei essa unit em anexo para buscar esse ID. Veja se te ajuda. Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 8 de setembro de 2005 08:03 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Re: Número Serial Físico do HD Prioridade: Alta Essa dica é boa, mas o recurso de S.M.A.R.T. tem que estar habilitado no setup da máquina pra poder funcionar. Estou trabalhando em pelo menos duas funções pra retornar informãções únicas do computador, e uma delas é uma função melhor que essa mencionada nesse link, só que pra recuperar o serial de fábrica do HD sem necessitar habilitar S.M.A.R.T. no setup do micro. []s From: ricknetbr [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: Número Serial Físico do HD Date: Thu, 08 Sep 2005 02:51:04 - Amigo, veja essa dica,que é muito boa, do Boletim Pascal http://latiumsoftware.com/br/pascal/0044.php#4 --- Em delphi-br@yahoogrupos.com.br, Alan Silveira [EMAIL PROTECTED] escreveu Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fnjolhc/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126184617/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http:/br.movies.yahoo.com/ http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Validar Data
usa um MaskEdit, com ele na propriedade EditMask vc coloca a máscara e ele trata isso pra vc. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cristiano Rodrigo Gomes Enviada em: quinta-feira, 8 de setembro de 2005 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Validar Data Bom dia, estou fazendo um select com data utilizando como parametro a data digitada em um edit. Ele está funcionando perfeitamente, porém apenas qdo digito uma data correta e com a máscara correta. 08/09/2005. Porém gostaria de fazer umas das coisas abaixo. 1 - Fazer com que neste edit eu sempre digite uma data válida, pois se digitar algo diferente ele dá erro no select ou, 2 - Antes do select ele verifique se o conteúdo do edit digitado é uma data válida. Se alguém puder me ajudar, estou utilizando o firebird 1.5 e delphi 7 Grato - Cristiano. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Número Serial Físico do HD
Companheiro Andreí, Fique atento. O que o Alan quer é descobrir o serial físico (de fábrica) do HD, e não o serial do volume do disco. []s From: Andrei Luís [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Número Serial Físico do HD Date: Thu, 8 Sep 2005 08:28:53 -0300 Vejam se essa funcao faz o que voce quer. Passe como parametro a letra da unidade que você quer o serial sem os : Function SerialNum(FDrive:String) :String; Var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); Result := IntToHex(Serial,8); Except Result :=''; end; end; [] Andrei Em 06/09/05, Alan Silveira[EMAIL PROTECTED] escreveu: Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * 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] Desligar o Windows
Funciona com Windows 2000 Sever ou XP? - Original Message - From: Levi Ribeiro de Freitas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 07, 2005 11:36 PM Subject: [delphi-br] Desligar o Windows Pessoal uso este código para desligar o windows e funciona perfeitamente: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Bevel1: TBevel; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function DesligarWindows: String; var TTkHandle :THandle; TTkAtu,TTkAnt :TTokenPrivileges; TTkRet :DWORD; begin if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTkHandle) then if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TTkAtu.Privileges[0].Luid) then begin TTkAtu.PrivilegeCount := 1; TTkAtu.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; Windows.AdjustTokenPrivileges(TTkHandle, False, TTkAtu, SizeOf(TTkAtu), TTkAnt, TTkRet); ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0); end; end; procedure TForm1.Timer1Timer(Sender: TObject); var sHoraDesligar, sHoraAgora: String; begin sHoraAgora:= FormatDateTime('hh:mm', now); sHoraDesligar:= '05:58'; label1.Caption:=SHoraDesligar; label2.Caption:=FormatDateTime('hh:mm:ss', now); label3.Caption:='Aguardando ...'; if sHoraAgora = sHoraDesligar then begin label3.Caption:='Desligando o Windows ...'; DesligarWindows; end; end; end. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Collate em Interbase
Bom Dia Pessoal, Estou com um problema no uso de Collates em Interbase. Criei uma tabela utilizando um campo VARCHAR(3000) CARACTER SET WIN1252 COLLATE PXW_INTL850 E ao efetuar um select desse campo é necessário colocar o COLLATE utilizado: SELECT CAMPO COLLATE PXW_INTL850 FROM TABELA; Em campos Varchar(10), Varchar(20), funciona normalmente, mas se eu faço o select com um VarChar(3000) por exemplo q é mais pesado, ele mata a conexão com o interbase. Alguém pode me ajudar?? Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] Cel: (11)96956409 [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: RES: [delphi-br] Validar Data
com o edit mesmo, coloque no onexit dele: try edit1.text:=datetostr(strtodate(edit1.text)); except mensagem('data invalida'); end; [EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel http://www.kitsites.com/index.php?ref=50 ---Original Message--- From: Enio \(listas\) Date: 09/08/05 08:42:56 To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Validar Data usa um MaskEdit, com ele na propriedade EditMask vc coloca a máscara e ele trata isso pra vc. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br@yahoogrupos.com.br;delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cristiano Rodrigo Gomes Enviada em: quinta-feira, 8 de setembro de 2005 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Validar Data Bom dia, estou fazendo um select com data utilizando como parametro a data digitada em um edit. Ele está funcionando perfeitamente, porém apenas qdo digito uma data correta e com a máscara correta. 08/09/2005. Porém gostaria de fazer umas das coisas abaixo. 1 - Fazer com que neste edit eu sempre digite uma data válida, pois se digitar algo diferente ele dá erro no select ou, 2 - Antes do select ele verifique se o conteúdo do edit digitado é uma data válida. Se alguém puder me ajudar, estou utilizando o firebird 1.5 e delphi 7 Grato - Cristiano. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Collate em Interbase
Vc precisa realmente do um campo VARCHAR(3000) pq nao usa blob? --- Em delphi-br@yahoogrupos.com.br, Filipe Colaneri [EMAIL PROTECTED] escreveu Bom Dia Pessoal, Estou com um problema no uso de Collates em Interbase. Criei uma tabela utilizando um campo VARCHAR(3000) CARACTER SET WIN1252 COLLATE PXW_INTL850 E ao efetuar um select desse campo é necessário colocar o COLLATE utilizado: SELECT CAMPO COLLATE PXW_INTL850 FROM TABELA; Em campos Varchar(10), Varchar(20), funciona normalmente, mas se eu faço o select com um VarChar(3000) por exemplo q é mais pesado, ele mata a conexão com o interbase. Alguém pode me ajudar?? Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] Cel: (11)96956409 [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
RES: [delphi-br] Re: Collate em Interbase
Pq com blob eu tenho dores de cabeça... É compliado usar Blob...problemas com migração e etc... Achei mais tranquilo utilizar Varchar mas até então não havia me deparado com tal situação Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Cel: (11)96956409 _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de valmsrj Enviada em: quinta-feira, 8 de setembro de 2005 09:12 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Collate em Interbase Vc precisa realmente do um campo VARCHAR(3000) pq nao usa blob? --- Em delphi-br@yahoogrupos.com.br, Filipe Colaneri [EMAIL PROTECTED] escreveu Bom Dia Pessoal, Estou com um problema no uso de Collates em Interbase. Criei uma tabela utilizando um campo VARCHAR(3000) CARACTER SET WIN1252 COLLATE PXW_INTL850 E ao efetuar um select desse campo é necessário colocar o COLLATE utilizado: SELECT CAMPO COLLATE PXW_INTL850 FROM TABELA; Em campos Varchar(10), Varchar(20), funciona normalmente, mas se eu faço o select com um VarChar(3000) por exemplo q é mais pesado, ele mata a conexão com o interbase. Alguém pode me ajudar?? Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] Cel: (11)96956409 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12ff3oh63/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126188721/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http:/br.movies.yahoo.com/ http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] PostgreSQL
Pessoal, Como faco para gravar um arquivo (XLS ou BMP) e recuperar, em um campo BLOB (BYTEA) de uma banco PostgreSQL 7? obrigado .:. Clayton Bonelli .:. Tecnologia Agriness - Gerenciamento para Agroempresas .:. (48) 3028-0015 .:. www.agriness.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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: Collate em Interbase
e me parece que o limite do varchar e de 256c... o ideal seria um blob... - Original Message - From: valmsrj [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 08, 2005 9:11 AM Subject: [delphi-br] Re: Collate em Interbase Vc precisa realmente do um campo VARCHAR(3000) pq nao usa blob? --- Em delphi-br@yahoogrupos.com.br, Filipe Colaneri [EMAIL PROTECTED] escreveu Bom Dia Pessoal, Estou com um problema no uso de Collates em Interbase. Criei uma tabela utilizando um campo VARCHAR(3000) CARACTER SET WIN1252 COLLATE PXW_INTL850 E ao efetuar um select desse campo é necessário colocar o COLLATE utilizado: SELECT CAMPO COLLATE PXW_INTL850 FROM TABELA; Em campos Varchar(10), Varchar(20), funciona normalmente, mas se eu faço o select com um VarChar(3000) por exemplo q é mais pesado, ele mata a conexão com o interbase. Alguém pode me ajudar?? Att. Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] Cel: (11)96956409 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Número Serial Físico do HD
Olá Rubem, Desculpe, peguei a função errada, vê se essa aí abaixo serve: function GetIdeDiskSerialNumber : String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature: Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG; ReturnCode : ULONG; Length : ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // Used for specifying SMART commands. bSectorCountReg : Byte; // IDE sector count register bSectorNumberReg : Byte; // IDE sector number register bCylLowReg : Byte; // IDE low order cylinder value bCylHighReg : Byte; // IDE high order cylinder value bDriveHeadReg: Byte; // IDE drive/head register bCommandReg : Byte; // Actual IDE command. bReserved: Byte; // reserved. Must be zero. end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved: Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector: Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType: Word; wBufferSize: Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS: Word; wNumCurrentCyls: Word; wNumCurrentHeads : Word; wNumCurrentSectorsPerTrack : Word; ulCurrentSectorCapacity: ULONG; wMultSectorStuff : Word; ulTotalAddressableSectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_SIZE = 512; DFP_RECEIVE_DRIVE_DATA= $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize; W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize-1] of Byte; srbControl : TSrbIoControl absolute Buffer; procedure ChangeByteOrder( var Data; Size : Integer ); var ptr : PChar; i : Integer; c : Char; begin ptr := @Data; for i := 0 to (Size shr 1)-1 do begin c := ptr^; ptr^ := (ptr+1)^; (ptr+1)^ := c; Inc(ptr,2); end; end; begin Result := ''; FillChar(Buffer,BufferSize,#0); if Win32Platform=VER_PLATFORM_WIN32_NT then begin // Windows NT, Windows 2000 // Get SCSI port handle hDevice := CreateFile( '\\.\Scsi0:', // Note: '\\.\C:' requires administrative permissions. GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 ); if hDevice=INVALID_HANDLE_VALUE then Exit; try srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); System.Move('SCSIDISK',srbControl.Signature,8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; pInData := PSendCmdInParams(PChar(@Buffer) +SizeOf(SRB_IO_CONTROL)); pOutData := pInData; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg:= $A0; bCommandReg := IDE_ID_FUNCTION; end; end; if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, BufferSize, @Buffer, BufferSize, cbBytesReturned, nil )
RES: [delphi-br] Número Serial Físico do HD
Para informação: não estou com a função SMART habilitada. Esta função requer o SMART habilitado. Se ele não tiver habilitado, pode ocorrer dela não funcionar ou funcionar e te retornar um numero serial errado. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Andrei Luís Enviada em: quinta-feira, 8 de setembro de 2005 09:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Número Serial Físico do HD Olá Rubem, Desculpe, peguei a função errada, vê se essa aí abaixo serve: function GetIdeDiskSerialNumber : String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature: Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG; ReturnCode : ULONG; Length : ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // Used for specifying SMART commands. bSectorCountReg : Byte; // IDE sector count register bSectorNumberReg : Byte; // IDE sector number register bCylLowReg : Byte; // IDE low order cylinder value bCylHighReg : Byte; // IDE high order cylinder value bDriveHeadReg: Byte; // IDE drive/head register bCommandReg : Byte; // Actual IDE command. bReserved: Byte; // reserved. Must be zero. end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved: Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector: Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType: Word; wBufferSize: Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS: Word; wNumCurrentCyls: Word; wNumCurrentHeads : Word; wNumCurrentSectorsPerTrack : Word; ulCurrentSectorCapacity: ULONG; wMultSectorStuff : Word; ulTotalAddressableSectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_SIZE = 512; DFP_RECEIVE_DRIVE_DATA= $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize; W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize-1] of Byte; srbControl : TSrbIoControl absolute Buffer; procedure ChangeByteOrder( var Data; Size : Integer ); var ptr : PChar; i : Integer; c : Char; begin ptr := @Data; for i := 0 to (Size shr 1)-1 do begin c := ptr^; ptr^ := (ptr+1)^; (ptr+1)^ := c; Inc(ptr,2); end; end; begin Result := ''; FillChar(Buffer,BufferSize,#0); if Win32Platform=VER_PLATFORM_WIN32_NT then begin // Windows NT, Windows 2000 // Get SCSI port handle hDevice := CreateFile( '\\.\Scsi0:', // Note: '\\.\C:' requires administrative permissions. GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 ); if hDevice=INVALID_HANDLE_VALUE then Exit; try srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); System.Move('SCSIDISK',srbControl.Signature,8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; pInData := PSendCmdInParams(PChar(@Buffer)
[delphi-br] OCR de Imagem
Pessoal, Alguém sabe de algum componente que posso utilizar no delphi para passar OCR em uma imagem ? EStou precisando colocar isso no DElphi Aguardo uma resposta ou ajuda... [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: RES: [delphi-br] Número Serial Físico do HD
Olá Walter, Testei agora com e sem o SMART e retornou o mesmo número. [] Andrei Esta função requer o SMART habilitado. Se ele não tiver habilitado, pode ocorrer dela não funcionar ou funcionar e te retornar um numero serial errado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Número Serial F ísico do HD
Não sou muito especialista pra falar disto, mas acredito que isto varia de controladora para controladora, que por sua vez varia conforme a placa mãe. Aqui no serviço não funcionou com o SMART Desabilitado e lá em casa retornava um outro número com o SMART Desabilitado em relação a ele habilitado. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Andrei Luís Enviada em: quinta-feira, 8 de setembro de 2005 10:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Número Serial Físico do HD Olá Walter, Testei agora com e sem o SMART e retornou o mesmo número. [] Andrei Esta função requer o SMART habilitado. Se ele não tiver habilitado, pode ocorrer dela não funcionar ou funcionar e te retornar um numero serial errado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Número Serial Físico do HD
Também não tenho chão para falar sobre isso, e concordo com você. Vi uma resposta outro dia, não foi sua Walter, de alguem que perguntou sobre como pegar todas infos do hardware, e a pessoa que respondeu falou que o Jedi faz isso. Será que o Jedi não retorna também o serial do HD? Não tenho ele aqui para testar. [] Andrei Em 08/09/05, Walter Alves Chagas Junior[EMAIL PROTECTED] escreveu: Não sou muito especialista pra falar disto, mas acredito que isto varia de controladora para controladora, que por sua vez varia conforme a placa mãe. Aqui no serviço não funcionou com o SMART Desabilitado e lá em casa retornava um outro número com o SMART Desabilitado em relação a ele habilitado. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Identifcar alterações no ClientDa taSet
Bom dia galera!!! Sei que quando utilizamos o método ApplyUppdates do ClientDataSet, este executa no banco todas as inserções, alterações e exlusões feitas no ResultSet, gostaria de saber se existe alguma propriedade ou função que indica se ocorreu alguma alteração no ResultSet, algo parecido com saber se existe a necessidade de chamar o ApplyUppdates??? Bom dia a todos. [ ]'s Rodrigo Schiavo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Filtrar texto
Bom dia a todos!! Tenho um determinado texto dentro de componente memo com algumas datas. Exemplo : Receba gratuitamente 23/08/2005ÓRGÃO 23/08/2005DISTRIBUIÇÃO 22/08/2005REMESSA Neste texto preciso buscar somente o texto com as datas, ou seja preciso que pule ou exclua a primeira linha que não tem data. Como faço isso? Estou utilizando o delphi 5.0 Desde de já agradeço a atenção de todos... Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Interbase Generator x Trigger
Oi Antonio,,, Perdoa se abri um novo tópico. Grata pela explicação. Mas continuo com um problema que não consigo resolver. Eu estou usando o interbase com IBX e no IBdataset eu configuro o generatorfield para new record, incrementar 1 ao generetor criado no banco. O problema é que se desisto da inclusão o numero se perde. Então tentei usar a trigger para resolver esse problema mas não tive êxito, pois se coloco como no exemplo abaixo não consigo gravar pois retorna um erro de valor nulo. Estou aprendendo e na maioria das vezes recorro ao help do interbase e do próprio Delphi 7 mas, ou eu não entendi ou estou fazendo algo errado. agradeço por alguém que possa me aludir. beijos {{}} Jenifer -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Antonio Sérgio P. Santin Enviada em: quarta-feira, 7 de setembro de 2005 17:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Interbase Olá! O position informa ao interbase a ordem de execução do trigger, caso você tenha mais de um trigger sendo disparado para o mesmo evento. Oi Alisson Sua sugestão me trouxe uma luz a uma questão de como eliminar a criação de generators de forma controlada. Pelo que percebi a trigger seria para incrementar apos o insert da tabela... então caso desista ele não incrementa. Neste caso fiquei em duvida quanto a esse POSITION 0 no help não ficou muito claro. Também tenho duvidas se funcionaria bem numa rede... vários pessoas acionando o insert ao mesmo tempo ou coisa assim. Grata por qualquer sugestão. Beijos {{}} Jenifer -Mensagem original- O primeiro comando cria um generator... CREATE GENERATOR GENERATOR1 depois vc cria um trigger para ser 'disparado' toda vez que vc criar um registro na tabela CREATE TRIGGER TRG_TESTE FOR TABELA1 ACTIVE BEFORE INSERT POSITION 0 AS begin new.CAMPODESEJADO'=GEN_ID(GENERATOR1,1) end Espero que ajude Alisson Ricardo Viol Gazda Colégio Platão de Apucarana [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ACHAR CARACTERES na SEQUENCIA
Amigos, bom dia. Estou tentando desenvolver uma função para achar string de caracteres digitados em sequencia... A Mesma servirá para invalidar números ou letras em sequencia, repetidos ou letras em ordem alfabébica, ou repetidas... Alguém já viu algo parecido ?? Pensei em utilizar a tabela ASCII para resolver tal problema, de maneira mais prática, sem colocar as ocorrências uma à uma no próprio código. Mas estou tendo problemas/dificuldades na resolução... Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação) AAA - Retorna: (Sequencia Inválida) ABC - Retorna:(Sequencia Inválida) CDE - Retorna:(Sequencia Inválida) HIJ - Retorna:(Sequencia Inválida) 123 - Retorna:(Sequencia Inválida) 456 - Retorna:(Sequencia Inválida) 789 - Retorna:(Sequencia Inválida) 468 - Retorna:(Sequencia Válida ) XHT - Retorna:(Sequencia Válida ) Etc... Alguém tem alguma idéia... [ ]'s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] cor da fonte do statusbar
Bom dia gente,. Quero mudar a cor da fonte do statusbar, porém não sei como Aletrei o UseDockManager, mas ele só muda o estilo da fonte, queria mudar tbém a cor.. Obrigado a todos! __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Drag_And_Drop Como Fazer
Bom dia amigos da lista. Estou desenvolvendo um sisteminha para geração de crachás e gostaria de fazê-lo o mais dinâmico possível. Pensei em colocar os campos da tabela de um lado do form e do outro um local em branco onde eu arrastaria os campos da tabela. Algum amigo já fez??? Poderia me dar uma dica de como posso fazer?? Raphael Fonseca [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Drag-And-Drop como fazer
Bom dia amigos da lista. Estou desenvolvendo um sisteminha para geração de crachás e gostaria de fazê-lo o mais dinâmico possível. Pensei em colocar os campos da tabela de um lado do form e do outro um local em branco onde eu arrastaria os campos da tabela. Algum amigo já fez??? Poderia me dar uma dica de como posso fazer?? Raphael Fonseca [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Mudar de pagina no listview
Ola, Ao selecionar um item de um listview não estou conseguindo fazer a paginação. Se eu seleciono um item na linha 5, na tela so aparece 10 linhas eu não consigo mover ate alinha 11 ou posterior. Alguem poderia me ajudar Eduardo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Palette de componentes sumiu
Boa tarde Rick, aqui no trabalho eu tive o mesmo problema e resolvi da seguinte forma, mas para fazer isso você deve ter acesso a conta de administrador do sistema ou do usuário que instalou o delphi... 1 - Entre no editor de registros (iniciar-executar digite regedit e de ok). 2 - Vá até a chave HKEY_CURRENT_USER\Software\Borland 3 - Vá no menu Registro\Exportar arquivo de registro... 4 - Verifique se embaixo está marcado a opção Ramificação Selecionada e HKEY_CURRENT_USER\Software\Borland e salve o arquivo. 5 - Depois é só entrar na conta de usuário que você quer instalar o delphi, procurar esse arquivo que você salvou, clicar com o botão direito do mouse e escolher mesclar... Espero ter ajudado, e me avisa se funcionou. []'s Danilo --- Em delphi-br@yahoogrupos.com.br, ricknetbr [EMAIL PROTECTED] escreveu Ja tentou ir em Components/Install Packages? --- Em delphi-br@yahoogrupos.com.br, Alfeu Marcatto [EMAIL PROTECTED] escreveu Tenho num cliente o Delphi 5 instalado em Windows 2000 Professional numa rede com win 2000 server. O servidor foi reinstalado e, mesmo sem mudança no nome do domínio, o terminal win2000 não o reconheceu. Tive que fazer o processo de identificação do domínio novamente usando o assistente para identificação da rede. Estou usando o mesmo nome de usuário. A palette de componentes do Delphi 5 sumiu completamente. Há como recuperá-la sem instalar tudo de novo? Grato Alfeu -- 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] ACHAR CARACTERES na SEQUENCIA
Bom, em resumo, simplificando: Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação, pode ser 4, 5, 6, caracteres, etc...) AAA - Retorna: ( Sequencia Inválida ) ABC - Retorna: ( Sequencia Inválida ) CDE - Retorna: ( Sequencia Inválida ) HIJ - Retorna: ( Sequencia Inválida ) 123 - Retorna: ( Sequencia Inválida ) 456 - Retorna: ( Sequencia Inválida ) 789 - Retorna: ( Sequencia Inválida ) 468 - Retorna: ( Sequencia Válida ) XHT - Retorna: ( Sequencia Válida ) Etc... - Original Message - From: Rogério [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, September 03, 2005 10:25 AM Subject: [delphi-br] ACHAR CARACTERES na SEQUENCIA Amigos, bom dia. Estou tentando desenvolver uma função para achar string de caracteres digitados em sequencia... A Mesma servirá para invalidar números ou letras em sequencia, repetidos ou letras em ordem alfabébica, ou repetidas... Alguém já viu algo parecido ?? Pensei em utilizar a tabela ASCII para resolver tal problema, de maneira mais prática, sem colocar as ocorrências uma à uma no próprio código. Mas estou tendo problemas/dificuldades na resolução... Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação) AAA - Retorna: (Sequencia Inválida) ABC - Retorna:(Sequencia Inválida) CDE - Retorna:(Sequencia Inválida) HIJ - Retorna:(Sequencia Inválida) 123 - Retorna:(Sequencia Inválida) 456 - Retorna:(Sequencia Inválida) 789 - Retorna:(Sequencia Inválida) 468 - Retorna:(Sequencia Válida ) XHT - Retorna:(Sequencia Válida ) Etc... Alguém tem alguma idéia... [ ]'s [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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Identifcar alterações no ClientDa taSet
Blz, é sempre bom ajudar. Mas essa propriedade está lá bem documentada no help do ClientDataSet. Lembre-se que o Help do Delphi e o Google são os melhores amigos do desenvolvedor. :) Abraços! -- Erick Sasse www.ericksasse.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de schiavor Enviada em: quinta-feira, 8 de setembro de 2005 12:04 Para: delphi-br Assunto: RES: [delphi-br] Identifcar alterações no ClientDataSet Valeu mesmo Erick. Vc tem salvo a minha vida, heheheh. Viu o reply do meu post sobre o os Índices no CDS? [ ]'s Propriedade ChangeCount do ClientDataSet. -- Erick Sasse www.ericksasse.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- 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] dbgrid essa é dificil
o problema e na hora de atualizar os campos, pois quando eu digitar uma data ele tera que mostrar todos os dados desta data. ai haja codigo para fazer isso []s Luis - Original Message - From: Alex Canario [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 07, 2005 6:42 PM Subject: RES: [delphi-br] dbgrid essa é dificil Luis acho melhor vc usar um stringgrid Alex Canário _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luis Gustavo Enviada em: quarta-feira, 7 de setembro de 2005 19:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] dbgrid essa é dificil alguem sabe como faço para fixar uma coluna no dbgrid com um valor ?? quero fazer uma agenda a coluna fixa será a seguinte horario 08:00 08:30 09:00 09:30 depois quando eu clicar no horario eu ja abro o banco para edição ou inserção dos dados. []s Luis ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fvgqmh1/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126138741/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http:/br.movies.yahoo.com/ http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- 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] dbgrid essa é dificil
certo mas e como eu faço para mostrar esses dados ? tipo a hora que carregar o dbgrid tem que aparecer todos os dados se não tiver nenhuma consulta marcada deve aparecer os horarios livres exemplo 08:00 08:30 09:00 obrigado. Luis - Original Message - From: Marcos Douglas [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 07, 2005 10:00 PM Subject: Re: [delphi-br] dbgrid essa é dificil Coloque o Field da coluna como Readonly. -- Marcos Douglas www.marcosdouglas.com Mensagem Original From: Luis Gustavo To: delphi-br@yahoogrupos.com.br Sent: Qua, Setembro 7, 2005 7:17 pm Subject: [delphi-br] dbgrid essa é dificil alguem sabe como faço para fixar uma coluna no dbgrid com um valor ?? quero fazer uma agenda a coluna fixa será a seguinte horario 08:00 08:30 09:00 09:30 depois quando eu clicar no horario eu ja abro o banco para edição ou inserção dos dados. []s Luis ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE Links do Yahoo! Grupos 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 Termos do Serviço do Yahoo!. -- 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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Analizar a memoria usada pelo executavel
Pessoal saiu numa lista um tempo atras um programa que executa um executavel e analiza os arquivos que ele abre e mapeia a memória que o pragrama usa acho que era memprof estou prcurando uma versão for windows e não estou encontrando eu sei que deram até o link para baixar o programa se alguem puder me dizer onde consigo agradeço pois no site de busca achei 490.000 possibilidade mas sempre olhei é para linux se alguem conhecer algum programa que faça a mesma coisa tbm serve. Grato a todos , se a resposta puder ser no meu email agradeço pois não estou conceguindo ler as mensagens do grupo. Fabiano [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] ACHAR CARACTERES na SEQUENCIA
Acredito que se você trabalhar com chr(ord(myStr[i])+1) dê certo... Tipo: Function Tform1.VerificaSequencia( str : String ) : Boolean; var Temp : String; Begin Result := True; Temp := Copy( str, 1, 1 ); If ( str = Temp + String( Char( Ord( Temp[1] ) + 1 ) ) + String( Char( Ord( Temp[1] ) + 2 ) ) ) Then Result := False; End; Você não pode voltar atrás e fazer um novo começo, mas você pode começar agora e fazer um novo fim. Chico Xavier -- Filipe Pereira Colaneri mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] Cel: (11)96956409 _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rogério Enviada em: quinta-feira, 1 de setembro de 2005 12:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ACHAR CARACTERES na SEQUENCIA Bom, em resumo, simplificando: Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação, pode ser 4, 5, 6, caracteres, etc...) AAA - Retorna: ( Sequencia Inválida ) ABC - Retorna: ( Sequencia Inválida ) CDE - Retorna: ( Sequencia Inválida ) HIJ - Retorna: ( Sequencia Inválida ) 123 - Retorna: ( Sequencia Inválida ) 456 - Retorna: ( Sequencia Inválida ) 789 - Retorna: ( Sequencia Inválida ) 468 - Retorna: ( Sequencia Válida ) XHT - Retorna: ( Sequencia Válida ) Etc... - Original Message - From: Rogério [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, September 03, 2005 10:25 AM Subject: [delphi-br] ACHAR CARACTERES na SEQUENCIA Amigos, bom dia. Estou tentando desenvolver uma função para achar string de caracteres digitados em sequencia... A Mesma servirá para invalidar números ou letras em sequencia, repetidos ou letras em ordem alfabébica, ou repetidas... Alguém já viu algo parecido ?? Pensei em utilizar a tabela ASCII para resolver tal problema, de maneira mais prática, sem colocar as ocorrências uma à uma no próprio código. Mas estou tendo problemas/dificuldades na resolução... Ex: Entro como parametro o número 3 (Apenas 3 Caracteres para a verificação) AAA - Retorna: (Sequencia Inválida) ABC - Retorna:(Sequencia Inválida) CDE - Retorna:(Sequencia Inválida) HIJ - Retorna:(Sequencia Inválida) 123 - Retorna:(Sequencia Inválida) 456 - Retorna:(Sequencia Inválida) 789 - Retorna:(Sequencia Inválida) 468 - Retorna:(Sequencia Válida ) XHT - Retorna:(Sequencia Válida ) Etc... Alguém tem alguma idéia... [ ]'s [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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12ftrluhu/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126202297/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http:/br.movies.yahoo.com/ http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [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
RES: [delphi-br] OFF - SQL SERVER
Gratúito você pode baixar o SQL 2005 beta no site da Microsoft tem o link. Baixar a versão final já é pirataria. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Isaque Lisboa Enviada em: quarta-feira, 7 de setembro de 2005 13:54 Para: Fórum - Delphi Assunto: [delphi-br] OFF - SQL SERVER Ola d novugostaria d saber onde eu posso baixar o SQL Server 2005...ja saiu ele completo ??? serm ser Beta ou Demo ??? Se tiver completo eu gostaria d baixa-loeu uso o 2000...se tiver algum entre o 2000 e o 2005, q seja completo...eu tbm agradeço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Número Serial Físico do HD
No Delphi3000 tem esta função que eu pus lá a uns tempos atrás: http://www.delphi3000.com/articles/article_4207.asp Mas ela requer o S.M.A.R.T ativado []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Alan Silveira Enviada em: terça-feira, 6 de setembro de 2005 20:11 Para: delphi-br Assunto: [delphi-br] Número Serial Físico do HD Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] RES: Número Serial Físico do HD
da maneira facil: vai no Torry's, pega o componente da MiTEC que dá TODAS as info do hardware e pronto :-)) obs: o MiTEC é free na versao compilada (cheque no site deles) e tem um custo razoavel pra fonte. Carlos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro ADO
Boa tarde, Cristina! 1 - Atualiza o MDAC para versão 2.7 ou superior; 2 - Baixa a Atualização do Delphi 5 Boa sorte. Ulisses - Original Message - From: Cristina [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 08, 2005 1:42 PM Subject: [delphi-br] Erro ADO Oi Pessoal, Alguém sabe me informar onde posso baixar o service pack que corrige um bug do ADO, já fiz isto há um tempo atrás, mas formatei a minha máquina e o arquivo se foi... e não lembro onde eu baixei este arquivo. Ao executar uma consulta que retorna vazia sempre aparece a mensagem ...BOF e EOF são verdadeiros, ou registro atual foi excluído -- Atenciosamente Cristina Orthmann da Silva HACON Automação e Tecnologia Ltda Rua Lauro Linhares 589 - Bairro Trindade Florianópolis - SC - Brasil CEP 88036-001 Fone/Fax: 55 48 333-0699 Site: http://www.hacon.com.br/ Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBF entre Datas
Alguem ja manipulou tabelas DBF, fazer um select ex; select * from cadorc where orcmov = 30/04/2005 eu faco isso no database explorer, so que nao tras o resultado esperado Obs. parece que ele ignora o where, estou utilizando o dabase explorer No aguardo Evandro [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
RES: [delphi-br] DBF entre Datas
Coloca a data no formato mm/dd/. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Evandro Araujo de Abreu Enviada em: quinta-feira, 8 de setembro de 2005 16:20 Para: lista-delphi; zeoslib-br; Delphi-Total; Delphi-br; Delphi-ib Assunto: [delphi-br] DBF entre Datas Alguem ja manipulou tabelas DBF, fazer um select ex; select * from cadorc where orcmov = 30/04/2005 eu faco isso no database explorer, so que nao tras o resultado esperado Obs. parece que ele ignora o where, estou utilizando o dabase explorer No aguardo Evandro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12foai2qf/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1126214225/A=2950750/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.yahoo.com/ _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ordenar numeros.
Pessoal, tenho 6 numeros e preciso ordenar do maior para o menor, como poderia fazer? Estou tentando usar a função MaxIntValue só que ele me retorna só o maior, eu tenho que excluir e fazer tudo novamente com os 5 restantes, existe algo mais facil? tentei o ListBox só que Numeros ele ordena na forma de Strings... Alguem tem alguma solução para o caso? Thiago de Castro X. da Silveira Pré-Vestibular Pitágoras Unidades Centro, Savassi e Belvedere. Setor TI telefone: +55 (31) 3274-1088 e-mails: [EMAIL PROTECTED] [EMAIL PROTECTED] - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! [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] Interbase Generator x Trigger
Oi Jenifer, já queimei as pestanas com isto e resolvi o problema com a seguinte definição do generator e do trigger, tudo rodando dentro do delphi em uma rotina de Instalação da Tabela, é importante que o campo Chave seja definido como NOT NULL na criação da tabela, talvez aí esteja o teu problema. SQL.Text := 'CREATE GENERATOR Chv_Numer;'; ExecQuery; SQL.Text := 'CREATE TRIGGER Auto_Table1 FOR Table1 ACTIVE BEFORE INSERT POSITION 0 ' + 'AS BEGIN IF (Table1.Chave = 0) THEN NEW.Chave = GEN_ID(Chv_Numer, 1); END'; ExecQuery; Quanto a tua dúvida se funciona em rede, sim funciona, pois os números serão controlados pelo servidor e trigger será disparado no banco e não na aplicação. Bjs. ;) Antonio Oi Antonio,,, Perdoa se abri um novo tópico. Grata pela explicação. Mas continuo com um problema que não consigo resolver. Eu estou usando o interbase com IBX e no IBdataset eu configuro o generatorfield para new record, incrementar 1 ao generetor criado no banco. O problema é que se desisto da inclusão o numero se perde. Então tentei usar a trigger para resolver esse problema mas não tive êxito, pois se coloco como no exemplo abaixo não consigo gravar pois retorna um erro de valor nulo. Estou aprendendo e na maioria das vezes recorro ao help do interbase e do próprio Delphi 7 mas, ou eu não entendi ou estou fazendo algo errado. agradeço por alguém que possa me aludir. beijos {{}} Jenifer Olá! O position informa ao interbase a ordem de execução do trigger, caso você tenha mais de um trigger sendo disparado para o mesmo evento. Oi Alisson Sua sugestão me trouxe uma luz a uma questão de como eliminar a criação de generators de forma controlada. Pelo que percebi a trigger seria para incrementar apos o insert da tabela... então caso desista ele não incrementa. Neste caso fiquei em duvida quanto a esse POSITION 0 no help não ficou muito claro. Também tenho duvidas se funcionaria bem numa rede... vários pessoas acionando o insert ao mesmo tempo ou coisa assim. Grata por qualquer sugestão. Beijos {{}} Jenifer -Mensagem original- O primeiro comando cria um generator... CREATE GENERATOR GENERATOR1 depois vc cria um trigger para ser 'disparado' toda vez que vc criar um registro na tabela CREATE TRIGGER TRG_TESTE FOR TABELA1 ACTIVE BEFORE INSERT POSITION 0 AS begin new.CAMPODESEJADO'=GEN_ID(GENERATOR1,1) end Espero que ajude Alisson Ricardo Viol Gazda Colégio Platão de Apucarana -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda Urgente
Pessoal, Alguém conhece algum programa de OCR que eu possa trabalhar no delphi que passe o OCR em imagens... mas pelo proprio programa ? EStou precisando colocar isso no DElphiugente Aguardo uma resposta ou ajuda... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Converte arquivo PDF em texto
Olá, Estou precisando, via DELPHI, trabalhar com um arquivo .PDF: basicamente, exportá-lo para um arquivo TEXTO. Qualquer sugestão será bem-vinda. Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ambiguous overloaded call to 'ToString'
é possivel sim. - Original Message - From: Erick Sasse [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 06, 2005 8:05 PM Subject: RES: [delphi-br] Ambiguous overloaded call to 'ToString' Estas funções fazem parte de uma classe? Acredito que não seja possível usar overload fora de uma classe. -- Erick Sasse www.ericksasse.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de rbriguetto Enviada em: terça-feira, 6 de setembro de 2005 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ambiguous overloaded call to 'ToString' Amados ... Eu criei uma unit de rotinas pra facilitar minha vida e uma dessas rotinas é a função ToString: function ToString(Value: Integer): String ; overload; function ToString(Value: Real): String; overload; function ToString(Value: TDateTime): String; overload; então teoricamente ela teria que funcionar quando eu passar qualquer parâmetro do tipo Integer, Real ou DateTime. O problema é que em algumas units essa rotina funciona blz e em outras dá o erro Ambiguous overloaded call to 'ToString' Se alguém souber me explicar o pq disso .. Muito obrigado e bom trabalho a todos -- 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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Interbase Generator x Trigger
Eu utilizo para gravar no banco edit's com sql puro, utilizando parâmetros e tudo mais. Ex. Insert into Tabela1(Campo1, Campo2) Values (:Campo1, :Campo2) caso o registro já exista, eu utilizo: UPDATE Tabela1 Set Campo1=:Campo1, Campo2=:Campo2 Where Cláusula Utilizo isso em um componente IBSql encontrada da paleta do Interbase mesmo. Alisson Ricardo Viol Gazda Colégio Platão de Apucarana - Original Message - From: Jenifer Arosa To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 08, 2005 10:40 AM Subject: [delphi-br] Interbase Generator x Trigger Oi Antonio,,, Perdoa se abri um novo tópico. Grata pela explicação. Mas continuo com um problema que não consigo resolver. Eu estou usando o interbase com IBX e no IBdataset eu configuro o generatorfield para new record, incrementar 1 ao generetor criado no banco. O problema é que se desisto da inclusão o numero se perde. Então tentei usar a trigger para resolver esse problema mas não tive êxito, pois se coloco como no exemplo abaixo não consigo gravar pois retorna um erro de valor nulo. Estou aprendendo e na maioria das vezes recorro ao help do interbase e do próprio Delphi 7 mas, ou eu não entendi ou estou fazendo algo errado. agradeço por alguém que possa me aludir. beijos {{}} Jenifer -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Antonio Sérgio P. Santin Enviada em: quarta-feira, 7 de setembro de 2005 17:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Interbase Olá! O position informa ao interbase a ordem de execução do trigger, caso você tenha mais de um trigger sendo disparado para o mesmo evento. Oi Alisson Sua sugestão me trouxe uma luz a uma questão de como eliminar a criação de generators de forma controlada. Pelo que percebi a trigger seria para incrementar apos o insert da tabela... então caso desista ele não incrementa. Neste caso fiquei em duvida quanto a esse POSITION 0 no help não ficou muito claro. Também tenho duvidas se funcionaria bem numa rede... vários pessoas acionando o insert ao mesmo tempo ou coisa assim. Grata por qualquer sugestão. Beijos {{}} Jenifer -Mensagem original- O primeiro comando cria um generator... CREATE GENERATOR GENERATOR1 depois vc cria um trigger para ser 'disparado' toda vez que vc criar um registro na tabela CREATE TRIGGER TRG_TESTE FOR TABELA1 ACTIVE BEFORE INSERT POSITION 0 AS begin new.CAMPODESEJADO'=GEN_ID(GENERATOR1,1) end Espero que ajude Alisson Ricardo Viol Gazda Colégio Platão de Apucarana [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Verificar se aplicaão é executada em outra estação
Preciso criar uma rotina em meu sistema que verifique se uma determinada aplicação está sendo executada em uma outra estação. Como posso fazer isso? Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Tamara O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! -- 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: Número Serial Físico d o HD
É, realmente parece que único jeito é com o SMART habilitado, o que pode complicar a utilização no meu caso, queria usar para gerar números de série, eu já tenho o sistema completo, só preciso mesmo de uma ID de hardware, isso seria útil também pro caso de uma auditoria de hardware pra monitorar o hardware da máquina e não permitir que o usuário troque(roube) peças. Se alguém tiver mais alguma idéia será bem vinda, vou olhar o jedi e o MiTEC obrigado a todos pelas respostas. --- Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: - Essa dica é boa, mas o recurso de S.M.A.R.T. tem que estar habilitado no setup da máquina pra poder funcionar. Estou trabalhando em pelo menos duas funções pra retornar informãções únicas do computador, e uma delas é uma função melhor que essa mencionada nesse link, só que pra recuperar o serial de fábrica do HD sem necessitar habilitar S.M.A.R.T. no setup do micro. []s From: ricknetbr [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: Número Serial Físico do HD Date: Thu, 08 Sep 2005 02:51:04 - Amigo, veja essa dica,que é muito boa, do Boletim Pascal http://latiumsoftware.com/br/pascal/0044.php#4 --- Em delphi-br@yahoogrupos.com.br, Alan Silveira [EMAIL PROTECTED] escreveu Alguém conheçe alguma maneira de retornar o número de série físico do HD, porque aquela rotina conhecida só retorna o número serial gerado na instalação no windows, este número pode inclusive ser alterado via regedit O que eu realmente queria era uma hardware id, alguns jogos online registram essa id como uma GUID de hardware quando você é banido por ela só consegue voltar a entrar online trocando o HD, não adianta nem reinstalar o windows, era este tipo de id que gostaria de gerar pelo delphi, se alguém souber de alguma alternativa, obrigado. ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ambiguous overloaded call to 'ToString'
Sim, foi um chute muito fora meu. :) -- Erick Sasse www.ericksasse.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de FILIPE - GURU Enviada em: quinta-feira, 8 de setembro de 2005 10:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ambiguous overloaded call to 'ToString' é possivel sim. - Original Message - From: Erick Sasse [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 06, 2005 8:05 PM Subject: RES: [delphi-br] Ambiguous overloaded call to 'ToString' Estas funções fazem parte de uma classe? Acredito que não seja possível usar overload fora de uma classe. -- Erick Sasse www.ericksasse.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de rbriguetto Enviada em: terça-feira, 6 de setembro de 2005 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ambiguous overloaded call to 'ToString' Amados ... Eu criei uma unit de rotinas pra facilitar minha vida e uma dessas rotinas é a função ToString: function ToString(Value: Integer): String ; overload; function ToString(Value: Real): String; overload; function ToString(Value: TDateTime): String; overload; então teoricamente ela teria que funcionar quando eu passar qualquer parâmetro do tipo Integer, Real ou DateTime. O problema é que em algumas units essa rotina funciona blz e em outras dá o erro Ambiguous overloaded call to 'ToString' Se alguém souber me explicar o pq disso .. Muito obrigado e bom trabalho a todos -- 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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] OFF - SQL SERVER
Gratúito você pode baixar o SQL 2005 beta no site da Microsoft tem o link. Baixar a versão final já é pirataria. Não se for o SQL Server 2005 Express. -- Erick Sasse www.ericksasse.com.br ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ordenar numeros.
Você tem que usar um TList. Se for apenas inteiros você usaria: procedure Foo; var Lista: TList; I: Integer; function CompararNumeros(Numero1, Numero2: Pointer): Integer; begin Result := Integer(Numero2) - Integer(Numero1); end; begin Lista := TList.Create; try for I := 1 to 10 do Lista.Add(Pointer(I)); Lista.Sort(@CompararNumeros); for I := 0 to Lista.Count - 1 do ShowMessage(IntToStr(Integer(Lista[I]))); finally Lista.Free; end; end; -- Erick Sasse www.ericksasse.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de thiago castro Enviada em: quinta-feira, 8 de setembro de 2005 16:45 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ordenar numeros. Pessoal, tenho 6 numeros e preciso ordenar do maior para o menor, como poderia fazer? Estou tentando usar a função MaxIntValue só que ele me retorna só o maior, eu tenho que excluir e fazer tudo novamente com os 5 restantes, existe algo mais facil? tentei o ListBox só que Numeros ele ordena na forma de Strings... Alguem tem alguma solução para o caso? Thiago de Castro X. da Silveira Pré-Vestibular Pitágoras Unidades Centro, Savassi e Belvedere. Setor TI telefone: +55 (31) 3274-1088 e-mails: [EMAIL PROTECTED] [EMAIL PROTECTED] - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! [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 ___ Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. Participe! www.yahoo.com.br/messenger/promocao -- 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