Res: Re: [delphi-br] Formas de Consulta
Amigos, Eu acho que esse SQL funcionaria assim tb: select produtos.codigo,produtos.nome from produtos where nome like '%DVD%Philips%DSC2000%' Testei aqui com o PostGre e funcionou Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Vanderson de Almeida Correa de Sá Data: 10/25/05 15:29:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Formas de Consulta Tente!! select produtos.codigo,produtos.nome from produtos where nome like '%DVD%' or nome like '%Philips%' or nome like '%DSC2000%' Vanderson Sá. HNS Informática [EMAIL PROTECTED] escreveu: No caso, se eu digitar select produtos.codigo,produtos.nome from produtos where nome like '%DVD Philips DSC2000%' e na tabela só tem DVD Philips, ele acha igual? ou seja, se eu digitar varias palavras no campo consulta, e na tabela só tem uma palavra - Original Message - From: Wilton Moreira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 25, 2005 11:05 AM Subject: Re: [delphi-br] Formas de Consulta Neste caso, LIKE testa se DSC2000 esta contido em produtos.nome. Para enteder bem o uso de LIKE, visite: http://dev.mysql.com/doc/refman/4.1/pt/string-comparison-functions.html Wilton WGO Telecom HNS Informática wrote: o que a função like faz? busca por palavras? - Original Message - From: Wilton Moreira To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 25, 2005 10:15 AM Subject: Re: [delphi-br] Formas de Consulta select produtos.codigo,produtos.nome from produtos where nome like '%DSC2000%' Wilton WGO Telecom HNS Informática wrote: Pessoal, tenho uma tabela de produtos, preciso fazer uma pesquisa como no Google, buscando por uma das palavras informadas, o banco é MySQL, alguém sabe qual a melhor forma de fazer isso? por ex. Nome do Produto DVD Philips DSC2000 se o usuario digitar DSC2000 retorna o DVD na pesquisa, como no gooble e yahoo busca.. Att. Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: - 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 Yahoo! Grupos, um serviço oferecido por: - 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 Yahoo! Grupos, um serviço oferecido por: - 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!. Vanderson de Sá Programador Tel.: (21) 9243-7035 [EMAIL PROTECTED] - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] 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 TOPIC - BANCO DE DADOS POSTGRE
Nesse site, http://www.postgresql.org/docs/ tem a documentação completa do PostGreSQL. Tem um site em português, com essa mesma documentação traduzida, mas não lembro onde Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] Em 23 de outubro, VOTE NÃO AO DESARMAMENTO! http://www.midiasemmascara.org/artigo.php?sid=3922 ---Mensagem original--- De: Sérgio Data: 09/20/05 08:08:18 Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF TOPIC - BANCO DE DADOS POSTGRE Galera, bom dia... Primeiramente, me desculpem pelo OFF...mais resolvi postar esta msg mesmo assim pois com certeza alguem já viu, ou já trabalhou com este banco de dados, o Postgre... Eu estou precisando de alguma apostila ou um tutorial com os comandos SQL permitidos pelo mesmo...suas sintaxes, etc, etc... Se alguém puder ajudar, eu agradeço... E + uma vez, me desculpem pelo OFF... Até mais, Sérgio [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] Re: Laço com uppercase e lowercase
- teria como arrumar esse código de modo que ele executasse a rotina mais devagar independente do número de letras? Chará, faça assim (gambiarra, mas funciona): 1 - Crie uma variável chamada iPosicao : integer na sessão private; 2 - No FormShow da tela, coloque ela como iPosicao := 1; 3 - No Evento OnTimer , coloque a código abaixo: var iTamanho : integer; begin iTamanho := length(edit1.text); label1.Caption := copy(edit1.Text,1,iPosicao-1) + uppercase(copy(edit1.text,iPosicao,1)) + copy(edit1.text,iPosicao+1,length(edit1 text)-(iPosicao-1)); if iPosicao iTamanho then inc(iPosicao) else iPosicao := 1; application.ProcessMessages; end; O Problema estava que a rotina era executada dentro do comando for, e não no OnTimer somente. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Eduardo Silva ® Data: 08/31/05 14:31:53 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Laço com uppercase e lowercase Cara, vc explica e entende os problemas muito bem. Parabéns pela sua lógica e pelas explicações. Só que eu to com dois problemas: - teria como arrumar esse código de modo que ele executasse a rotina mais devagar independente do número de letras? - não to conseguindo fechar a aplicação clicando no x do form... Como resolver esses dois problemas? -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 Stock Enviada em: quarta-feira, 31 de agosto de 2005 13:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Laço com uppercase e lowercase Segundo o seu codigo: a rotina sera executada a cada 2 segundo... certo? para que nao houvesse parada no final da palavra vc teria que ter 20 letras nao palavra que ta sofrendo a mudança, haja visto que: ele muda a letra a cada decimo de segundo, por isso ta rapido; ele executa a rotina a cada 2 segundo... uma palavra com 10 letras ocasionaria um tempo de 1 segundo para ser percorrida o que faria esperar um outro segundo para uma nova execução... acho que seu problema esta por ai[EMAIL PROTECTED] 600 modelos de sites profissionais - Imperdivel tp://www.kitsites.com/index.php?ref=50 ---Original Message--- From: Eduardo Silva ® Date: 08/31/05 13:37:35 To: Grupo Delphi-br Subject: Laço com uppercase e lowercase Galera, com a rotina abaixo eu quase conegui chegar no que eu quero. Coloquei um timer, interval = 2000. O problema é que ele ta muito rápido e fica parado muito tempo no final da ultima letra. Algupém tem uma saída mais elegante? Obs: testei várias configurações e não cheguei num número ideal.por isso, não sei se a solução seria via programação ou ajuste de números mesmo. procedure TForm1.Timer1Timer(Sender: TObject); vari, a : integer; begin application.ProcessMessages;for a := 1 to length(edit1.text) dobegin label1.Caption := copy(edit1.Text,1,a-1) + uppercase(copy(edit1.text,a,1)) + copy(edit1.text,a+1,length(edit1.text)-(a-1)); application.ProcessMessages; sleep(100);end; end; ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o | | | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | | | |.oooO Oooo. | ---( )---( )---o \ ( ) / \_) (_/ -- 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 __ NOD32 1.1206 (20050831) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com -- 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
Res: [delphi-br] (unknown)
BOm dia. Pressione o F8 ao invéz do F7. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] SKYPE: dida_ercn ---Mensagem original--- De: Higor Granzoto Data: 08/29/05 11:47:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] (unknown) Bom dia a todos Como faço para que ao pressionar F7 debugando o Delphi não entre nas units de um componente de terceiro que tenho? -- 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: Pros Feras!!! - Drag n' drop da aplicação para o exp lorer...
Filipe, Fiz um aplicação no Delphi 5, com componentes free de terceiros. Mas o problema é que mudei de empresa, e não tenho mais esses componentes... Funcionava perfeitamente Se algum companheiro souber o nome desses componentes, poderia repassar para a lista. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] SKYPE: dida_ercn ---Mensagem original--- De: FILIPE - GURU Data: 08/25/05 09:21:57 Para: delphi-br@yahoogrupos.com.br Assunto: Pros Feras!!! - Drag n' drop da aplicação para o explorer... Olá, será que alguém sabe como fazer um Drag n' drop da aplicação para o explorer? Como posso capturar este evento? qqr dica será muuito bem vinda... Valeu!!! Filipe Geyer. [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] Diminuir o tamanho do exe
E a estória (chata) continua Vão voltar a chegar mais de 30 e-mails com essa discussão, que somente em um ano de lista que sou associado, já teve esse tópico umas 4 vezes Quem tem a HP do Walter (ou ele mesmo), com o link sobre isso poderia passar para o companheiro. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Áureo Data: 08/18/05 08:51:29 Para: Delphi BR Assunto: [delphi-br] Diminuir o tamanho do exe Sei que existem alguns programas disponíveis gratuitamente que compactam o tamanho do arquivo gerado pelo Delphi. Alguém poderia me fornecer o nome de algum? Obrigado, Áureo No iBest, suas horas navegadas valem pontos que podem ser trocados por prêmios. Sem sorteio! Inscreva-se já! www.navegueeganhe.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 [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: Função Mod
Existe uma coisa muito interessante no Delphi chamada Help. Aperte F1 em cima do comando que vc quer procurar, que irá irá aparecer:: The mod operator returns the remainder obtained by dividing its operands. In other words, x mod y = x - (x div y) * y. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Cleiton Data: 08/18/05 13:47:21 Para: Delhpi Assunto: Função Mod Função Mod Utilizo em meu sistema uma função pra validar cpf que utiliza um comando chamado MOD. No entanto eu não entendi muito bem qual a finalidade desse comando 'mod'. Alguém poderia me auxiliar no entendimento desse comando por mim descohecido? Abaixo segue na integra a função que utilizao pra validar cpf. numero:= DBcpf.text; n1:=StrToInt(numero[1]); n2:=StrToInt(numero[2]); n3:=StrToInt(numero[3]); n4:=StrToInt(numero[5]); n5:=StrToInt(numero[6]); n6:=StrToInt(numero[7]); n7:=StrToInt(numero[9]); n8:=StrToInt(numero[10]); n9:=StrToInt(numero[11]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=numero[13]+numero[14]; if calculado digitado then begin MessageBox (Application.Handle, pchar ('O CPF Digitado Está Incorreto'), 'ATENÇÃO', MB_DEFBUTTON1); DBcpf.setfocus; exit; end; -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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] Validar Campo Data
Vamos colocar que o componente edtDatNas e seu edit de Data de Nascimento Perguntas: P: data de nascimento que seja maior que a data atual R: if StrToDate(edtDatNas.Text) now then now = Data e Hora do computador P:campo data puxe automaticamente a data que está no sistema? R: edtDatNas.TExt := FormatDateTime('dd/mm/',now); Desse modo puxa a data do computador, o ideal seria puxar a data do servidor P: onde conseguiria esse componente de data R: Na internet, vc achará 500 tipos diferentes, mas pode usar o que já vem instalado junto com o Delphi, na palheta WIN32, componente DateTimePicker Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Cleiton Data: 08/18/05 13:48:05 Para: Delhpi Assunto: [delphi-br] Validar Campo Data Estou com um pequeno problema com o campo 'data' que utilizo em meu sistema. Primeiro: em alguns formulários como cadastro de cliente o campo data de nascimento não é obrigatorio. Se o usário náo colocar data nascimento fica certo, mas no entanto, quando o cliente clica no campo de data aí aparece a mascara da data e aí sim, caso ele não coloque mesmo a data dá um erro no sistema dizendo que a data não é válida. Segundo: como faço pra validar a data impedido o usuário coloque uma data de nascimento que seja maior que a data atual? Tipo assi, o usuário não poderá digitar uma data maior que a data de hoje? Terceiro: como faço pra que o campo data puxe automaticamente a data que está no sistema? Isso serviria pra facilitar o uso do formuláio de compra e venda. O seria melhor utiliar um componente que exiba um calendário pro usuário escolher a data? Quarto: onde conseguiria esse componente de data? Se alguem me ajudar com algum dos intens relacionados já ficaria muito agradecido. -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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] Res: Função Que Valida E-mail
o Companheiro Alexandre Oliveira, enviou dia 03/16/05 10:05:45, não testei: function ValidaEmail(sEmail: string): boolean; const // Caracteres válidos em um átomo ATOM_CHARS = [#33..#255] - ['(', ')', '', '', '@', ',', ';', ':', '\', '/', '', '.', '[', ']', #127]; // Caracteres válidos em uma cadeia QUOTED_STRING_CHARS = [#0..#255] - ['', #13, '\']; // Caracteres válidos em um subdominio LETTERS = ['A'..'Z', 'a'..'z']; LETTERS_DIGITS = ['0'..'9', 'A'..'Z', 'a'..'z']; SUBDOMAIN_CHARS = ['-', '0'..'9', 'A'..'Z', 'a'..'z']; type States = (STATE_BEGIN, STATE_ATOM, STATE_QTEXT, STATE_QCHAR, STATE_QUOTE, STATE_LOCAL_PERIOD, STATE_EXPECTING_SUBDOMAIN, STATE_SUBDOMAIN, STATE_HYPHEN); var State: States; i, n, iSubdomains: integer; c: char; begin State := STATE_BEGIN; n := Length(sEmail); i := 1; iSubdomains := 1; while (i = n) do begin c := sEmail[i]; case State of STATE_BEGIN: if c in atom_chars then State := STATE_ATOM else if c = '' then State := STATE_QTEXT else break; STATE_ATOM: if c = '@' then State := STATE_EXPECTING_SUBDOMAIN else if c = '.' then State := STATE_LOCAL_PERIOD else if not (c in atom_chars) then break; STATE_QTEXT: if c = '\' then State := STATE_QCHAR else if c = '' then State := STATE_QUOTE else if not (c in quoted_string_chars) then break; STATE_QCHAR: State := STATE_QTEXT; STATE_QUOTE: if c = '@' then State := STATE_EXPECTING_SUBDOMAIN else if c = '.' then State := STATE_LOCAL_PERIOD else break; STATE_LOCAL_PERIOD: if c in atom_chars then State := STATE_ATOM else if c = '' then State := STATE_QTEXT else break; STATE_EXPECTING_SUBDOMAIN: if c in letters then State := STATE_SUBDOMAIN else break; STATE_SUBDOMAIN: if c = '.' then begin Inc(iSubdomains); State := STATE_EXPECTING_SUBDOMAIN end else if c = '-' then State := STATE_HYPHEN else if not (c in letters_digits) then break; STATE_HYPHEN: if c in letters_digits then State := STATE_SUBDOMAIN else if c '-' then break; end; Inc(i); end; if i = n then Result := False else Result := (State = STATE_SUBDOMAIN) and (iSubdomains = 2); //se sEmail esta vazio retorna true if sEmail = '' then Result := true; end; ---Mensagem original--- De: Cleiton Data: 08/18/05 13:49:25 Para: Delhpi Assunto: Função Que Valida E-mail Alguém conhece alguma função que valide e-mail? -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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] Onde será que estou errando???????????
Gente, uma simples olhada no Help do Delphi, resolverá essa questão interminavel... function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer; const Text = O Texto que aparecerá na caixa; Caption: PChar = O Caption (Título) da janelinha que vai aparecer; Flags = Quais botões vc quer que apareça. No mesmo HELP, tem o que vc pode usar de Flags: Value Meaning MB_ABORTRETRYIGNORE The message box contains three push buttons: Abort, Retry, and Ignore. MB_OK The message box contains one push button: OK. This is the default. MB_OKCANCEL The message box contains two push buttons: OK and Cancel. MB_RETRYCANCEL The message box contains two push buttons: Retry and Cancel. MB_YESNO The message box contains two push buttons: Yes and No. MB_YESNOCANCEL The message box contains three push buttons: Yes, No, and Cancel. No mesmo HELP, diz que é uma função, se é uma função, ele devolve valores, Value Numeric value Meaning IDOK 1The user chose the OK button. IDCANCEL 2The user chose the Cancel button. IDABORT 3The user chose the Abort button. IDRETRY 4 The user chose the Retry button. IDIGNORE 5 The user chose the Ignore button. IDYES 6 The user chose the Yes button. IDNO7 The user chose the No button. O '36' do exemplo passado pelo nosso amigo, em if Application.MessageBox('Deseja excluir esse registro?','Confirmação de Exclusão',36)=6 then begin deve ser a constante utilizada para os FLAGS, mas não sem quais são os números Uso direto a constante, para falar a verdade,uso a constante nos dois locais que tem os números, assim: if Application.MessageBox('Deseja excluir esse registro?','Confirmação de Exclusão',MB_YESNO + MB_ICONQUESTION) = IdYes then begin //rotina de exclusao ONDE: 'Deseja excluir esse registro?' === TEXTO DA JANELINHA 'Confirmação de Exclusão' === CAPTION DA JANELINHA MB_YESNO + MB_ICONQUESTION === Coloca botões de SIM e NÃO + o ìcone de Interrogação IdYes === SE O USUÁRIO CLICOU NO BOTÃO SIM Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] SKYPE: dida_ercn [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] Caracter
Enviei a resposta dessa sua dúvida ontem, como pode ver na msg copiada. De: Eduardo RC Neto Data: 07/11/05 13:28:20 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Dividir caracter Faz assim: var iTamanho : integer sUltimoCaracter : string; Begin iTamanho := Length(trim(edit1.text); SUltimoCaracter := copy(edit1.text,iTamanho,1); if sUltimoCaracter = '%' then begin // FAZ A PORCENTEAGEM end else begin // FAZ A SUBTRAÇÃO end; end; Fora outros colegas que também mandaram Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Hudson Data: 07/12/05 10:06:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Caracter Ola!!! gente estou levando um coro.. tenho um editso q tenho q pegar a ultima letra digitada... ?? [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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: Gráficos - Duvida
Procure na pasta Demos do Delphi, que tem tudo que você precisa saber para montar um gráfico.. C:\Arquivos de programas\Borland\Delphi7\Demos\TeeChart Aliás, nessa pasta, tem bastante coisa interessante. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] SKYPE: dida_ercn ---Mensagem original--- De: Guilherme E. Erzinger Data: 07/12/05 12:01:41 Para: delphi-br@yahoogrupos.com.br Assunto: Gráficos - Duvida Bom Dia Senhores. Estou com uma duvida em como montar um gráfico. Preciso montar um Relatorio com Gráfico e não sei por onde começar, qual componente que deve usar. se alguem puder me ajudar eu ficarei grato. Uso o Delphi 6 Guilherme [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 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
Res: [delphi-br] Dividir caracter
Faz assim: var iTamanho : integer sUltimoCaracter : string; Begin iTamanho := Length(trim(edit1.text); SUltimoCaracter := copy(edit1.text,iTamanho,1); if sUltimoCaracter = '%' then begin // FAZ A PORCENTEAGEM end else begin // FAZ A SUBTRAÇÃO end; end; Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Hudson Data: 07/11/05 10:34:03 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dividir caracter Estou precisando de criar em um edit, algum q o usuario apos digitar e sair do mesmo (onexit) ele fara uma soma da seguinte forma. se o cliente digitou no final do numero %ele ira fazer uma porcetagem. .. senão ele fara uma subtração. para isso vou ter q separa o fina do numerocomo faço isso? [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 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
Res: Re: [delphi-br] Dividir caracter
Desculpe a correção, mas do jeito passado no mail anterior, edit2.text := copy(edit1.text,length(edit1.text),length(edit1.text)); a função copy irá devolver o mesmo valor passado no Edit1. O Certo seria: edit2.text := copy(edit1.text,length(edit1.text),1); Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Anderson Data: 07/11/05 14:43:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dividir caracter Para saber o ultimo caracter digitado: edit2.text := copy(edit1.text,length(edit1.text),length(edit1.text)); Anderson - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Monday, July 11, 2005 9:41 AM Subject: [delphi-br] Dividir caracter Estou precisando de criar em um edit, algum q o usuario apos digitar e sair do mesmo (onexit) ele fara uma soma da seguinte forma. se o cliente digitou no final do numero %ele ira fazer uma porcetagem senão ele fara uma subtração. para isso vou ter q separa o fina do numerocomo faço isso? [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 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 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] TClientSocket - D7
Bom dia a todos da comunidade. Amigos, estou com um probleminha: Preciso disparar uma mensagem pelo meu sistema, para outro usuário que estiver conectado no mesmo sistema. Exemplificando melhor: O Setor de produção, irá fazer pedidos de material pelo sistema. Caso o material que foi pedido não exista no estoque, gostaria de disparar uma mensagem para o usuário do setor de estoque, para efetuar a devida compra desse material. Em um livro chamado DELPHI API´S Sockets, ele tem um exemplo do componente TClientSocket, e acho que dava para fazer isso (bastava gravar o IP do grupo de usuários na entrada do sistema, e mandar uma mensagem para esses IP's) Mas acho que p TClientSocket só existiu até o D5. Tem algum componente no D7 que posso utilizar essa facilidade Acho que deve ter algum da paleta Indy, mas, tem tantos componentes que fica difícil verificar qual é. Se alguém pudesse me dar uma dica, ficaria agradecido Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.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
Res: [delphi-br] TClientSocket - D7
Amigos, já resolvi o problema. Basta instalar o package dclsockets70.bpl, que os componentes vão para a palheta Internet. Ele está na pasta Bin da instalação do D7. Tinha procurado errado no Google... Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Eduardo RC Neto Data: 07/05/05 11:30:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TClientSocket - D7 Bom dia a todos da comunidade. Amigos, estou com um probleminha: Preciso disparar uma mensagem pelo meu sistema, para outro usuário que estiver conectado no mesmo sistema. Exemplificando melhor: O Setor de produção, irá fazer pedidos de material pelo sistema. Caso o material que foi pedido não exista no estoque, gostaria de disparar uma mensagem para o usuário do setor de estoque, para efetuar a devida compra desse material. Em um livro chamado DELPHI API´S Sockets, ele tem um exemplo do componente TClientSocket, e acho que dava para fazer isso (bastava gravar o IP do grupo de usuários na entrada do sistema, e mandar uma mensagem para esses IP's) Mas acho que p TClientSocket só existiu até o D5. Tem algum componente no D7 que posso utilizar essa facilidade Acho que deve ter algum da paleta Indy, mas, tem tantos componentes que fica difícil verificar qual é. Se alguém pudesse me dar uma dica, ficaria agradecido Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.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 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
RES: [delphi-br] Re: Quebrar linha de texto do Caption
Para quebrar linhas em botões, faço da seguinte forma: 1 - No Form que está o botão, clique com o botão direito e em View as Text 2 - Vai aparecer o Form em modo texto. Procure o botão que vc quer trocar o caption, e coloque a propriedade Caption = 'Primeira Linha'#13'Segunda Linha' (DO MODO QUE ESTÁ AQUI) 3 - Clique com o botão direito e em View as Form. Pronto, ai está o botão com duas linhas. Pelo menos, assim que eu faço. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Eduardo Silva ® Data: 06/29/05 13:45:38 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Quebrar linha de texto do Caption É claro que funciona, vc deve colocar esse código do oncreate do form... Eu testei e funcionou. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Romario (Listas) Enviada em: quarta-feira, 29 de junho de 2005 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Quebrar linha de texto do Caption Obrigado pela resposta, mas com certeza não é dessa forma que eles fazem, porque isso eu já havia testado e não funciona. Sds, Romario Osmar de Souza Júnior escreveu: Sim, como você acha que os terceiros fazem os componentes ?? SpeedButton1.Caption := 'Primeira linha' + #13 + 'Segunda linha'; []s. Osmar. --- Em delphi-br@yahoogrupos.com.br, Romario (Listas) [EMAIL PROTECTED] escreveu Senhores(as), Tenho duas palavras escritas no Caption de um TSpeedButton e gostaria que uma aparecesse na parte de cima e a outra logo abaixo da primeira. Isso é possível sem utilizar componentes de terceiros? Obrigado! Sds, Romario ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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 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!. __ NOD32 1.1157 (20050628) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.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 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
Res: [delphi-br] relatorio em ordem alfabetica no qreport
Bom Dia, Para fazer esse relatório, basta vc colocar um TQRGroup, e na propriedade expression dele com o campo do banco de dados que vc quer fazer o agrupamento, somente pela primeira letra. Ex.: Se o campo do nome se chama CLINOM, o expression ficaria: Copy(QryRelCLINOM,1,1); ==onde qryRel seria o TDataSet com os dados do relatório. Para fazer cada nova letra aparecer em páginas diferentes, basta colocar a propriedade ForceNewPage do TQRGroup como TRUE; Claro, os outros dados como Nome completo, telefone, endereço, etc, apareceriam na band Detail. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] SKYPE: dida_ercn ---Mensagem original--- De: bene20032004 Data: 06/10/05 21:37:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] relatorio em ordem alfabetica no qreport Ola, pessoal ! Quero imprimir um relatorio de clientes em ordem alfabetica, ate ai tudo bem é fácil. Mas o relatorio teria que ser visualizado na tela dando um espaço em três linhas de uma letra para outra e na impressão mudar de página quando mudar de letra. Ex: A A PAG 1 na impressão A B B PAG 2 e assim por diante B B Alguém teria idéia de como fazer isso ? Obrigado por enquanto ! -- 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 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] TBCDField + ADO + PostGree
Meus caros, bom dia a todos Estou com o seguinte problema: Tenho um campo no banco de dados PostGres, do tipo Numeric(20,10). Quando adiciono esse campo no TADOQuery, ele vem como o tipo TBCDField. Lendo no help do Delphi, vi que esse campo só aceita até 4 casas decimais, e preciso mostrar todas as casas decimais que estão gravadas no banco, isto é, 10 casas decimais. O Help ainda fala que tenho que utilizar o campo tipo TFMTBCDField, só que ai vai a pergunta: Como faço para o Delphi utilizar esse campo TFMTBCDField ao invez do TBCDField. Já criei ele no New field, só que não sei como fazer para ele utilizar o dado que está gravado no banco Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn [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: Re: [delphi-br] TBCDField + ADO + PostGree
Macfly, O problema que ele aparece em um TDBGrid.. Gravar no banco, ele grava sem problemas, porque uso do modo que vc falou... Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn ---Mensagem original--- De: Macfly Data: 06/07/05 10:40:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] TBCDField + ADO + PostGree Olá... E se você simplesmente não criar o campo e acessar diretamente não funciona?? Valor := MinhaQuery.FieldByName('nome_do_campo').asInteger; //asFloat , etc. . []'s Macfly Eduardo RC Neto [EMAIL PROTECTED] wrote: Meus caros, bom dia a todos Estou com o seguinte problema: Tenho um campo no banco de dados PostGres, do tipo Numeric(20,10). Quando adiciono esse campo no TADOQuery, ele vem como o tipo TBCDField. Lendo no help do Delphi, vi que esse campo só aceita até 4 casas decimais, e preciso mostrar todas as casas decimais que estão gravadas no banco, isto é, 10 casas decimais. O Help ainda fala que tenho que utilizar o campo tipo TFMTBCDField, só que ai vai a pergunta: Como faço para o Delphi utilizar esse campo TFMTBCDField ao invez do TBCDField. Já criei ele no New field, só que não sei como fazer para ele utilizar o dado que está gravado no banco Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn [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 Termos do Serviço do Yahoo!. - Discover Yahoo! Get on-the-go sports scores, stock quotes, news more. Check it out! [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 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
Res: Re: Res: Re: [delphi-br] TBCDField + ADO + PostGree
Valeu Macfly, Fiz o seguinte: Na 4º página de busca do santo Google, li para colocar a propriedade da TADOQuery EnableBCD para false, assim ele trabalha com FloatField ao invez de TFMTBCDField No momento, está funcionando. Obrigado Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn ---Mensagem original--- De: Macfly Data: 06/07/05 10:59:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: Re: [delphi-br] TBCDField + ADO + PostGree Ok... Mas mesmo que você esteja mostrando o campo em um Grid não precisa incluí-lo a não ser que precise alterar alguma propriedade de exibição como fornatação ou alinhamento... Só que para que funcione você precisará remover todos os campos e não só ele se incluir um terá de incluir todos... Tente fazer o seguinte, mudar o tipo do campo na declaração gerada pelo Delphi quando ele foi criado... Deve existir uma declaração semelhante no início do codigo da unit: MinhaQueryMeuCampo : TBCDField; Tente Alterar para: MinhaQueryMeuCampo : TFMTBCDField; []'s Macfly Eduardo RC Neto [EMAIL PROTECTED] wrote: Macfly, O problema que ele aparece em um TDBGrid.. Gravar no banco, ele grava sem problemas, porque uso do modo que vc falou... Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn ---Mensagem original--- De: Macfly Data: 06/07/05 10:40:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] TBCDField + ADO + PostGree Olá... E se você simplesmente não criar o campo e acessar diretamente não funciona?? Valor := MinhaQuery.FieldByName('nome_do_campo').asInteger; //asFloat , etc. . []'s Macfly Eduardo RC Neto [EMAIL PROTECTED] wrote: Meus caros, bom dia a todos Estou com o seguinte problema: Tenho um campo no banco de dados PostGres, do tipo Numeric(20,10). Quando adiciono esse campo no TADOQuery, ele vem como o tipo TBCDField. Lendo no help do Delphi, vi que esse campo só aceita até 4 casas decimais, e preciso mostrar todas as casas decimais que estão gravadas no banco, isto é, 10 casas decimais. O Help ainda fala que tenho que utilizar o campo tipo TFMTBCDField, só que ai vai a pergunta: Como faço para o Delphi utilizar esse campo TFMTBCDField ao invez do TBCDField. Já criei ele no New field, só que não sei como fazer para ele utilizar o dado que está gravado no banco Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 SKYPE: dida_ercn [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 Termos do Serviço do Yahoo!. - Discover Yahoo! Get on-the-go sports scores, stock quotes, news more. Check it out! [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 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 Termos do Serviço do Yahoo
[delphi-br] Res: Relatório no qreport
Rodrigo, faz o seguinte: Na instrução SQL de sua ADO Query, faça o join entre as duas tabelas: Select pessoal.nome, funcionario.dataadminssao, funcionario.valor, funcionario.VR from pessoal, funcionario where pessoal.codp = funcionario.codp order by pessoal.nome No seu Quick Report: 1 - Coloque um TQRGroup, e na propriedade expression coloque o campo que vc quer agrupar os dados, no caso o campo nome. 2 - Coloque um TQRBand e sete a propriedade Band Style para bsDetail, e coloque os componentes QRDBText para aparecerem os dados da Admissão, Salario e VR, setando as propriedades dataset e datafield corretamente. Se eu não esqueci de nada, isso deve funcionar. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Rodrigo Brito Data: 06/02/05 15:22:04 Para: delphi-br@yahoogrupos.com.br Assunto: Relatório no qreport Bom Dia, estou com uma dúvida para criar um relatório no quickreport tenho uma tabela que cadastra informações de funcionários tabela Pessoal ( codp, nome, etc...) e na outra tabela cadastro informações dos registros do funcionário ( codr, codp, tipo, valor ,data, etc...) Gostaria de criar um relatório como exemplo abaixo Rodrigo Brito Admissão 11/05/2005 Salário 2500,00 VR 150,00 Felipe Moreira Admissão 05/02/2003 Salário 600 e etc... Utilizo o Delphi 6.0 e o sql server.. para o relatório estou utilizando o componente adoquery. Agradeço atenção Rodrigo Brito -- 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 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
RES: RES: [delphi-br] SQL usando ParamByname
Rodrigo, Coloque ao invés de AsInteger, asString, etc, Value. Ficaria assim: dtm.tb_print_os.Parameters.ParamByName('CODIGO').VALUE := COD_OS; Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Rodrigo Mota Data: 05/30/05 12:37:19 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] SQL usando ParamByname Não funcionou estou fazendo algo errado com certeza Meu banco eh Acess e estou usando o ADOQUERY Tem alguma opção que se configura na ADOQUERY...para fazer consultas com parâmetros Pois o .AsIntegernao nem a pau. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andre Colanzi Enviada em: segunda-feira, 30 de maio de 2005 12:18 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] SQL usando ParamByname Voce definiu o parametro na query? Quando compila ele funciona? Andre R. C. Santos [EMAIL PROTECTED] __ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html 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 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
Res: [delphi-br] Manual qreport
Rodrigo, Tenho um FAQ do Quick Report (96 páginas em inglês, 693 Kb, não sei de onde baixei) e um Help (347 Kb, que baixei da página do fabricante). . Se quiser, me contacte em pvt que te mando. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Rodrigo Brito Data: 05/30/05 13:18:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Manual qreport Alguem sabe onde posso encontrar algum material do qreport? att, Rodrigo Brito -- 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 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
Res: [delphi-br] Manual qreport
Rodrigo, um adendo: na página do fabricante tb tem muita coisa, de uma olhada em http://www.qusoft.com/ Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Eduardo RC Neto Data: 05/30/05 14:29:22 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Manual qreport Rodrigo, Tenho um FAQ do Quick Report (96 páginas em inglês, 693 Kb, não sei de onde baixei) e um Help (347 Kb, que baixei da página do fabricante). . Se quiser, me contacte em pvt que te mando. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Rodrigo Brito Data: 05/30/05 13:18:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Manual qreport Alguem sabe onde posso encontrar algum material do qreport? att, Rodrigo Brito -- 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 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 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
Res: [delphi-br] :: Base de dados CEP em FireBird ::
CARAMBA!! ISSO É UMA HISTÒRIA SEM FIM Procure na lista, que semana passada ou retrasada tiveram respostas para sua questão. Eduardo RC Neto ---Mensagem original--- De: Carlos Alberto Phelippe Data: 05/17/05 09:50:38 Para: Delphi-BR; Delphi Lista MPS Assunto: [delphi-br] :: Base de dados CEP em FireBird :: Olá Pessoal, onde posso encontrar a base de dados dos correios em FireBird? Obrigado. [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 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
Res: [delphi-br] Data + dias
Faz assim: case radiogroup1.itemindex of 0 : edit1.text := FormatDateTime('dd/mm/' ,now + 7); 1 : edit1.text := FormatDateTime('dd/mm/' ,now + 15); 2 : edit1.text := FormatDateTime('dd/mm/' ,now + 30); 3 : edit1.text := FormatDateTime('dd/mm/' ,now + 90); 4 : edit1.text := FormatDateTime('dd/mm/' ,now + 180); 5 : edit1.text := FormatDateTime('dd/mm/' ,now + 365); end; Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 ---Mensagem original--- De: Info Desenvolvimento Data: 05/02/05 15:05:58 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Data + dias Possuo uma tabela no paradox7 com os seguintes campos: DTINICIOEDIT1.TEXTRECEBE A DATA DO DIA DTFIM EDIT2.TEXT* DTINI_VALID EDIT3.TEXTRECEBE A DATA DO DIA DTFIM_VALID EDIT4.TEXT* Gostaria de saber como eu faço para que esse edit2 e 3 recebam datas abaixo relacionadas: CRIEI UM RADIOGROUP COM AS SEGUINTES OPÇÕES: EDIT:= Data de Hoje mais 7 dias (Semanal) EDIT:= Data de Hoje mais 15 dias (Quinzenal) EDIT:= Data de Hoje mais 30 dias (Mensal) EDIT:= Data de Hoje mais 90 dias (Trimestral) EDIT:= Data de Hoje mais 180 dias (Semestral) EDIT:= Data de Hoje mais 365 dias (Anual) PAULO FERNANDES PORTO ALEGRE- RS [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 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!. [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] Como manter o ponteiro do DataSet na mesma posicao depois de salvar
Depois desse código, de um Free no BookMark. Var dbPonteiro:TBookMark; Begin (...) dbPonteiro:=Tabela.GetBookMark; //faça sua rotina de gravação //Commit as alterações Tabela.GotoBookMark(dbPonteiro); Tabela.FreeBookMark(dbPonteiro); // -- ESSE CODIGO AQUI (..) End; Eduardo ---Mensagem original--- De: Rafael Franco Carvalho Data: 04/28/05 14:27:57 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar Não, não, não. Nada disso. A solução do Marcelo resolve mas é muito lenta. Use o recurso de BookMark. Assim: Var dbPonteiro:TBookMark; Begin (...) dbPonteiro:=Tabela.GetBookMark; //faça sua rotina de gravação //Commit as alterações Tabela.GotoBookMark(dbPonteiro); (..) End; Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 28 de abril de 2005 11:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar podes pegar o codigo dele e salvar em uma variavel. ai fazes um loop até o cursor chegar no registro desejado. Abraços, Marcelo - Original Message - From: acolombobermudez [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 28, 2005 10:51 AM Subject: [delphi-br] Como manter o ponteiro do DataSet na mesma posicao depois de salvar Alguem sabe como manter o ponteiro do DataSet na mesma posicao depois de salvar as alteracoes no banco? éo seguinte , faco um select que me retorna varios registros, posiciono o ponteiro do dataset no vigesimo registro , altero ele e salvo dando um commit, com isso o dataset volta na primeira posicao, mas gostaria que continuasse na vigesima. alguem sabe como fazer isso? ou se é possivel fazer isso? utilizo delphi7, paleta ibx, com firebird 1.0 -- 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 __ NOD32 1.1081 (20050428) Information __ This message was checked by NOD32 Antivirus System. http://www.nod32.com -- 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 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!. [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] MaskEdit IntraWeb
Um bom começo seria comprar o Livro do FACUNTE. Abraços, DIDA ---Mensagem original--- De: Cícero Data: 03/30/05 08:43:26 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] MaskEdit IntraWeb Nossa como eu gostaria de tentar alguma coisa no intraweb (nao sei nem como começar)desabafo. -Mensagem original- De: CPD (Borborema-Imperial Transportes Ltda) [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 29 de março de 2005 18:01 Para: Grupo do Delphi Assunto: [delphi-br] MaskEdit IntraWeb Pessoal, Estou precisando em um IWEdit colocar uma mascara para Fone e Data, como eu posso fazer isso no IW ? Alexandre C Souza -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/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 -- 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: 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!. [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: Re: [delphi-br] IB6 + IBX + D7
Kleverson, Não tentei não... Nunca usei o firebird, sei que é irmão gêmeo do Interbase 6, mas a pergunta é: Vou precisar fazer alguma mudança no meu programa Delphi, utilizando os componentes IBX??? Ou o firebird aceita eles sem problemas??? Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ Tel.: 2567-1842 ramal: 134 [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] (bloqueado no trabalho) ICQ: 64-674-105 ---Mensagem original--- De: Kleverson Data: 03/29/05 15:34:16 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: [delphi-br] IB6 + IBX + D7 Já tentou o firebird? [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 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!. [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: Relatório a partir de TXT.
Bom dia Rodrigo!! Carrega o .txt em um Tmemo e depois carrega um TQRMemo com os dados desse TMemo. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ Tel.: 2567-1842 ramal: 134 [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ICQ: 64-674-105 ---Mensagem original--- De: Rodrigo de Moura Data: 03/23/05 10:26:12 Para: delphi-br@yahoogrupos.com.br Assunto: Relatório a partir de TXT. Bom dia Senhores, Preciso gerar um relatório em QuickReport a partir de um arquivo TXT diretamente, ou seja, os dados desse TXT não terão vínculo com nenhuma tabela. Seria uma visualização direta dos dados pelo QuickReport. Alguém sabe se tem como fazer esse tipo de relatório?? Utilizo Delphi 7. Qualquer ajuda será bem vinda e obrigado a todos. Atenciosamente, Rodrigo de Moura [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] Yahoo! Grupos, um serviço oferecido por: 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!. [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] IB6 + IBX + D7
Colegas da lista, boa tarde. Tenho um cliente, que estava rodando um sistema em rede, feito em D7 com IB6 utilizando os componentes IBX, em uma máquina AMD 950, 256 Mb de memória com Win 98, e rodava sem problemas até relativamente rápido. Agora ele comprou uma máquina nova, Pentiun 4 - 3.5, bi-processada, 1 Gb de memória, com Windows XP. Nessa máquina, o IBConsole demora quase 2 minutos para fazer a conexão com o banco, e, logicamente, na hora que coloco o TIBDataBase para conectar o banco, por dentro da minha aplicação, ocorre o mesmo problema... Depois de feita a conexão, o sistema roda normalmente E o Interbase e o executável estão na mesma máquina. Todos os outros programas rodam sem problemas, chegando até a voar... Será que é algum problema com o Firewall do Windows XP Liberei a porta e continua tendo o mesmo problema... Alguém tem alguma dica ou já passou por esse problema??? Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ICQ: 64-674-105 [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] QR na Vertical
Usa o TQRAngled Label 1.1a para fazer isso. Ele é free e com fontes. Procura na internet que vc acha, pq não lembro de onde baixei DIDA ---Mensagem original--- De: Vladmir Data: 02/28/05 15:02:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] QR na Vertical Buenasss Alguem sabe me informar se existe imprimir com um Qrdbtext na vertical, se existe essa propriedade ára esse componente. Valew... Vladmir -- 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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília 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!. [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: inválida
Não sabia que o pessoal da lista agora era obrigado a responder em um tempo determinado... Sem noção Eduardo ---Mensagem original--- De: Cristina Orthmann Data: 02/23/05 15:58:42 Para: Lista Delphi Assunto: inválida Vocês estão recebendo as minhas mensagens, não tive resposta em nenhuma dúvida postada até agora. Olá pessoal, Por favor respondam. Em minha aplicação há um dbGrid onde o usuário poderá alterar o quadro de horários, fiz o seguinte tratamento caso o usuário digite uma hora inválida ou uma hora final menor que a inicial. Acontece que este código só funciona quando mudo de campo com a tecla seta para baixo. Quando digito enter ou tab aparece a mensagem de hora inválida quando tento converter StrToDateTime(Text) para verificar se a hora é menor que a anterior. No campo text aparece um caracter estranho, acredito que este caracter represena o enter ou o tab. procedure frmQuadro.qryQuadroHora2SetText(Sender: TField;const Text: String); begin if Text = ' : ' then (Sender as TField).AsString := '' else try (Sender as TField).AsString := Text; except MessageDlg('Hora Inválida!',mtError,[mbOk],0); end; if StrToDateTime(Text) StrToDateTime(qryQuadroHora1.Text) then begin MessageDlg('Hora de saída deve ser maior que a entrada.',mtWarning,[mbOk],0); qryQuadroHora2.Clear; end; end; -- 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] - [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: 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!. [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] DBGrid
Boa Tarde Adenes, Coloca o código abaixo no evento OnDrawColumnCell do seu TDBGrid. with DBGRID1 do begin canvas.lock; if (gdselected in state) or (gdfocused in state) then begin canvas.brush.color := clGray; // MUDA A COR DA BARRA, QUE É AZUL; canvas.font.color := clYellow; // MUDA A COR DA FONTE canvas.Font.Style := [fsBold] // SE QUIZER COLOCAR EM NEGRITO end; defaultdrawcolumncell(rect,datacol,column,state); canvas.unlock; end; Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Adenes I. Freire Junior Data: 02/18/05 10:23:25 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBGrid Tem como alterar a cor do fundo do DBgrid quando o registro estiver selecionado? Como padrão ele fica azul marinho. Como faço iss? Adenes I. Freire Junior [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: 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!. [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: Re: [delphi-br] Informar a impressora na hora de imprimir
Marcelo, Boa tarde: Eu tenho isso em um sistema que fiz. Vc escolhe anteriormente as impressoras para determinado tipo de papel a ser impresso. Ex.: Impressora de Boletos (vai ser impressa em uma matricial com papel contínuo) Impressora Normal (para papel A4 em uma jato de tinta). Gravo isso no regedit ou no banco de dados ou em um arquivo .ini (não lembro). Ao clicar imprimir, busco qual a impressora que deverá ser a padrão no momento(dependendo do tipo de impressão), coloco ela como a padrão, depois de imprimir, volto a que estava como padrão anteriormente. Amanhã pela manhã, te mando a rotina se vc quiser. Hoje não dá porque estou saindo para um cliente. Me contacte em pvt que te dou mais detalhes (endereços na assinatura). Abraços, Eduardo RC Neto Desenvolvimento de Sistemas --- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br MSN: [EMAIL PROTECTED] ---Mensagem original--- De: Marcelo A. Souza Data: 01/27/05 13:24:19 Para: Delphi-br Assunto: Re: [delphi-br] Informar a impressora na hora de imprimir mas a idéia é que o programa gerencie isso, eu queria evitar de ter que fazer o cara toda hora ir lá e escolher a impressora, entendeu??? Trata-se de uma transportadora onde o fluxo de processos é grande, então é preciso agilizar ao máximo a rotina, assim o usuário nunca vai ter que se preocupar se ele está mandando na impressora correta. - Original Message - From: Rildecy de Queiroz Borba [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 27, 2005 10:26 AM Subject: RES: [delphi-br] Informar a impressora na hora de imprimir Me desculpe a inocencia da resposta mas voce não poderia dar um preview antes de mandar imprimir, la existe um botao para selecionar a impressora. Rildecy de Queiroz Borba. -Mensagem original- De: Marcelo A. Souza [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 27 de janeiro de 2005 10:38 Para: Delphi-br Assunto: [delphi-br] Informar a impressora na hora de imprimir pessoal, estou com o seguinte problema, no meu sistema tenho vários documentos que são impressos em impressoras diferentes na rede que estão previamente cadastradas da seguinte forma: \\servidor1\epson01 Gostaria de informar ao quickreport essa impressora na hora de imprimir meu documento, mas como faço isso? [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 -- 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: 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!. [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: Dúvidas de relatório QReport
1- tenho um relatorio pronto, queria inserir a banda Title, só que eu queria que ela ficasse no topo, mas ela fica entre Page Header e QrGroup. Como eu faço para que ela fica no topo? Pelos testes que fiz, o Title fica sempre abaixo do Page Header. 2- Este título (Title) que quero inserir, gostaria que ele aparecesse apenas na 1a página, como faço? A Banda Título só aparece na primeira página, não precisa setar nenhuma propriedade para isso. 3- E por fim, gostaria de saber a PageHeader aparecesse em todas as páginas ou apenas na 1a? O Page Header sempre aparece em todas as páginas Abraços Eduardo ---Mensagem original--- De: Erika Data: 01/24/05 12:03:07 Para: delphi-br@yahoogrupos.com.br Assunto: Dúvidas de relatório QReport Bom dia pessoal Estou com as seguintes dúvidas: 1- tenho um relatorio pronto, queria inserir a banda Title, só que eu queria que ela ficasse no topo, mas ela fica entre Page Header e QrGroup. Como eu faço para que ela fica no topo? 2- Este título (Title) que quero inserir, gostaria que ele aparecesse apenas na 1a página, como faço? 3- E por fim, gostaria de saber a PageHeader aparecesse em todas as páginas ou apenas na 1a? Obrigado pessoal! Abraço -- 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: 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!. [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] SENHA
Isso deve estar acontecendo porque a tela de usuário/senha, deve ser a principal do sistema. Para tela de usuário e senha, eu coloco ela sendo chamada no FormShow da tela Principal e depois de autenticar o usuário e a senha, fecho essa tela de usuário/senha, ficando a tela principal do sistema aberta. Quando minimizo, a tela principal minimiza normalmente, sem ficar nada atrás dela. Eduardo ---Mensagem original--- De: info.Desenvolvimento Data: 12/10/04 16:21:29 Para: [EMAIL PROTECTED] Assunto: [delphi-br] SENHA Como eu faço para ao minimizar o programa a tela de usuário/Senha minimize junto ou suma? PAULO FERNANDES [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 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!. [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] d6 / Usar FOR com nomes de objetos
Claro que existe, inclusive um colega da lista acabou de responder... for Contador := 0 to ComponentCount - 1 do if Components[ Contador ] is TEdit then with TEdit( Components[ Contador ] ) do begin ReadOnly := True; Font.Style := [bsBold]; Color := clBtnFace; end; ---Mensagem original--- De: Rubem Rocha Data: 11/29/04 14:49:54 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] d6 / Usar FOR com nomes de objetos Isso que vc quer fazer existe no VB. No Delphi isso não existe. Sugiro que vc reveja seus conhecimentos em Object Pascal. []s -Mensagem original- De: Rodrigo Americo [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 29 de novembro de 2004 08:17 Para: [Delphi-Br] Assunto: [delphi-br] d6 / Usar FOR com nomes de objetos Pessoal, A dúvida é a seguinte: Tenho vários TEdit cujos nomes são EditData1, EditData2, EditData3, EditData4... Gostaria de fazer modificações gerais, em run-time, neste conjunto de objetos, por exemplo: with EditData1 do begin ReadOnly := True; Font.Style := [bsBold]; Color := clBtnFace; end; Gostaria de fazer algo do tipo (é só a idéia!): for I := 1 to 4 do begin with EditData[I] do begin ReadOnly := True; Font.Style := [bsBold]; Color := clBtnFace; end; end; Alguém sabe como fazer? Obrigado, Rodrigo Américo -- 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 --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- 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: 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!. [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: Re: [delphi-br] Qual editor de relatórios é melhor que o Quick Repor t ?
Concordo plenamente com o Sedinei, quando fala que venho trabalhando com ele(com o Quick Report) há alguns anos e tenho satisfação quase completa. Só tenho problema com impressoras matriciais, mas, de resto, dá para fazer tudo que precisei até agora, sem ter que ter uma máquina parruda para rodar(caso do Rave Reports). Quanto a fazer relátorio com muita quebra, o Quick Report tb faz sem problema nenhum, bastando setar as propriedades corretas nos TQRGroup que ele se encarrega do resto. Os outros, Cristal Reports, Report Buider, etc..., não conheço, mas são todos pagos. Falam muito bem tb do Fortes Reports, que é free, só que não conheço. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Alisson Data: 11/17/04 11:50:36 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Qual editor de relatórios é melhor que o Quick Repor t ? Acho que não existe nenhum pior que ele. Editor de relatório bom é aquele que te permite escrever linha a linha. Quando você tem que fazer um relatório com muita quebra no Quick Report é terrível. Um bom que eu conheço é o RDPrint, mas pena que é pago. - Original Message - From: Sedinei Oliveira [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, November 17, 2004 7:59 AM Subject: Re: [delphi-br] Qual editor de relatórios é melhor que o Quick Repor t ? Não quero defender a idéia de que o QR é ótimo... mas venho trabalhando com ele há alguns anos e tenho satisfação quase completa... Acho que ele é falho na questão de precisão de posicionamento para impressão de Notas Fiscais, por exemplo, onde uso o ZReport. Mas qual qual o recurso que desejas? Caso realmente esteja interessado em mudar, existem outros que são muito falados no mercado, como o Rave Reports, Report Builder... On Sun, 14 Nov 2004 10:52:52 -0300, Florentino - Agrosoft [EMAIL PROTECTED] wrote: Amigos, Trabalho com o QR para edição de relatórios, contudo tenho percebido que ele é um tanto pobre em recursos. Quem conhece outro editor melhor? Desde já 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 -- Sedinei K. Oliveira -- 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: 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!. -- 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: 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!. [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] {OFF-TOPIC} Executar como serviço
Caros Colegas, boa tarde: Gostaria de saber se tem como eu colocar a minha aplicação para rodar com um serviço do Windows XP, e que ela não apareça na barra de tarefas nem no Tray Icon. Achei uma dica para fazer esconder o programa do CTRL + ALT + DEL, mas não seu como colocar ele como um serviço... Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.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 * 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: Re: [delphi-br] Duvida simples, acredito!
Será porque o comando edit.text := copy(Slinha,1,10); está dentro do LOOP. Ele vai pegar somente a última linha(como nosso amigo Sedinei falou anteriormente). Se vc quer colocar tipo o compiler do Delphi não seria melhor ao invéz de usar o TEDit não usar um TMemo e ir adicionando as linhas dentro do LOOP?? Memo1.Lines.Add(copy(Slinha,1,10)); Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Sedinei Oliveira Data: 11/16/04 16:44:41 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Duvida simples, acredito! Olá! Talvez tua última linha esteja em branco... por isso não aparece nada. Pode também tentar o seguinte: coloca um application.processmessages após setar o valor do edit. Abraços. On Tue, 16 Nov 2004 16:29:51 +, Fabiano Arndt [EMAIL PROTECTED] wrote: experimenta colocar um edit.Refresh após passar o texto pro edit. isso deve resolver. Fabiano. AssignFile (TarqtblPr, edtArquivo.text); Reset (TarqtblPr); while not Eof (TarqtblPr) do begin ReadLn (TarqtblPr,Slinha); edit.text := copy(Slinha,1,10); edit.Refresh; end; From: mds_rs [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: [delphi-br] Duvida simples, acredito! Date: Tue, 16 Nov 2004 16:02:58 - Olá, Estou tentando mostrar em um Tedit o resultado de um processamento (LOOP), porem nao estou conseguindo. O processo eh leitura de um arquivo texto AssignFile (TarqtblPr, edtArquivo.text); Reset (TarqtblPr); while not Eof (TarqtblPr) do begin ReadLn (TarqtblPr,Slinha); edit.text := copy(Slinha,1,10); end; Porém ele nao mostra no tEdit este conteudo, mas se eu debugar a aplicacao o text do TEdit tem o conteudo correto! Na verdade, oq eu gostaria de fazer era a mesma coisa que o compiler do delphi faz, onde mostra o programa que esta compilando, linhas, warnings etc... Grato, Márcio _ 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 -- Sedinei K. Oliveira -- 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: 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!. [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] Onde sera' esse evento, em Sao Paulo
Se vc passar o ponteiro do mouse em cima do mapa do Brasil, no estado que vc se inscreveu, aparece o local do evento Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: Paulo Sérgio Dias Data: 11/12/04 17:42:50 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Onde sera' esse evento, em Sao Paulo Pessoal: No site abaixo, inscrevi-me para o evento de apresentacao do Delphi 2005, em Sao Paulo, dia 17/11/2004, mas nao consegui encontrar o local em que o evento ocorrera'. Alguem sabe informar mais detalhes ? http://info.borland.com.br/delphi/ Grato pela atencao de todos Paulo [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 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!. [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: Duvida esqueci Codigo SQL e não acho....
Update Empregados set SalarioEmpregado = SalarioEmpregado + (SalarioEmpregado * 0,10) Onde: Empregados = Nome da Tabela SalarioEmpregado = Campo que vc quer alterar Esse SQL vai alterar TODOS os registros da tabela!!! Se quiser alterar apenas um, coloque a instrução WHERE depois de tudo: Where CodEmpregado = 10 Onde CodEmpregado é o código do empregado(Chave primária) Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: \[ Mutuka \] Data: 11/10/04 16:11:14 Para: [EMAIL PROTECTED] Assunto: Duvida esqueci Codigo SQL e não acho pessoa esqueci qual eh a funcao (e nao consegui achar) para multiplicar todos os registros de um campo X por um valor Y ex: para somar 10% no valor de todos os preços dos produtos cadastrados agradeço a ajuda... = Leandro... [ Mutuka ] ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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: 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!. [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] QR + Matricial, a luta continua
Eu uso o TPrinterMatrix, muito bom e free. Procure na net que vc acha. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 10/28/04 10:55:23 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] QR + Matricial, a luta continua sem quere fazer propaganda, mas, meu amigo gaste R$ 80 ou R$ 90,00 (quantas horas tecnicas ???) e compre o componente rdprint da deltress. Nao he uma super brastemp (mas he quase uma brastemp), he economizado tempo paca...he simples de utilizar e tem praticamente todo o que vc necesita para matricial. Claro , pode e deve haber componente free, mais eu nao perderia temp em buscar. (opinao pessoal). [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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília 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!. [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]
Valor inteiro não é, porque o numero é fracionado. Para vc atribuir esse valor do edit para algum campo da tabela que seja float por exemplo, vc terá que retirar o ponto do separador de milhar. Ex.: Query1Preço.AsFloat := StrToFloat(StringReplace(Edit1.Text,'.', '' [rfReplaceAll])); Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 10/22/04 11:51:22 Para: Delphi-Br Assunto: [delphi-br] Pessoal, estou querendo formatar a exebição numa edit, os numeros, como abaixo 1230,25 == 1.230,25 Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas não esta adiantando, sempre da uma mensagem de que o valor não é um valor inteiro. Como posso trabalhar com isto? Abrações a turma. Charlles Ferdinand Analista Contábil Tel.: (22) 2622-9739 [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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília 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!. [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: Edit ou DBEdit
O uso do TDBEdit ou outro componente Data Ware, facilita muito a programação Só tem um problema com ele: Quando vc entra na tela que tem esse TDBEdit, vc terá que abrir a tabela a qual esse TDBEdit está ligado. Agora imagine um sistema, rodando Clinet/Server, uma central de atendimento, por exemplo. 300 usuários trabalhando o dia inteiro, na mesma tela, com 300 conexões simuntâneas com o banco de dados!!! Se vc usar o TEdit, irá somente fazer a conexão quando der o INSERT, UPDATE ou DELETE, sem precisar da tabela ficar aberta o tempo todo, acarretando trafego desnecessário na rede, etc... Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/23/04 10:32:19 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Re: Edit ou DBEdit Olá, Eu uso os dois mas prefiro o DBEdit pois facilita muito o meu trabalho. Todos os dois são bons. Vê qual irá facilitar p/ vc. Abraços, Cristiano do Amaral Oliveira. BAMPETRO/ON - Tecnologia da Informação Site: http://www.bampetro.org --- Em [EMAIL PROTECTED], Marcelo Silva [EMAIL PROTECTED] escreveu Os componentes estão aí para facilitar nossa vida ... o DBEdit ajuda muito por você não precisar fazer um Insert não mão. Faça um exemplo e compare é a melhor coisa. Se colocar um DBEdit e utilizar o componente Actions você vai economizar trocentas linhas de código e seu fonte poderá ficar menor. Mas é claro que é opção de cada um... Eu utilizo IBDataSet (que já faz todo o Insert, Update, Delete, Refresh atravéz do Select), junto com o DataSource e os DBEdits Nunca precisei fazer um Insert na mão... (somente Selects personalizados para relatório, mesmo assim quando posso eu uso o IBQuery) Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Cícerot To: [EMAIL PROTECTED] Sent: Thursday, September 23, 2004 9:40 AM Subject: RES: [delphi-br] Edit ou DBEdit Eu sempre prefiro fazer tudo na mão (tedit). Me sinto mais seguro. Quanto tenho que mostrar o registro mando para tedit, se quero salvar busco no tedit e assim vai. -Mensagem original- De: Leonardo Moraes [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 23 de setembro de 2004 08:58 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Edit ou DBEdit Pessoal, Qual a melhor opção a ser utilizada? Usar um Edit e fazer a operacao de incluir via SQL INSERT ou usar DBEdit e fazer a operacao via POST? Obrigado, Leonardo. ___ Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão. Instale agora! http://br.download.yahoo.com/messenger/ -- 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 --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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: -- 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] Yahoo! Grupos, um serviço oferecido por: 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!. [As partes desta mensagem que não continham texto
Res: Re: Meio OFF - [delphi-br] Duvida - SQL Dinamico
Engraçado, que para essa dúvida de nosso colega, não eh necessário saber NADA disso. É totalmente indiferente, de banco, conexão que ele usa, etc... Para formatar o valor, basta adicionar os TFields na TQuery, e ir no campo perc_receita, na propriedade DisplayFormat, colocar #,##0.00 Assim , irá formatar o campo assim: 1.000,00 , com duas casas decimais. Para formatar com mais casas decimais, 4 por exemplo, coloque DisplayFormat = #,##0. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/22/04 08:48:59 Para: [EMAIL PROTECTED] Assunto: Re: Meio OFF - [delphi-br] Duvida - SQL Dinamico Eu fico tão feliz quando as pessoas não dizem se usam BDE, MySQL, InterBase, Informix, Oracle, DB2, PervasiveSQL, arquivo TXT... e pedem ajuda... será que terei que adivinhar e sugerir para ele várias soluções diferentes ??? = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Gustavo Valente To: [EMAIL PROTECTED] Sent: Tuesday, September 21, 2004 5:40 PM Subject: Meio OFF - [delphi-br] Duvida - SQL Dinamico Ola, Pessoal, Estou com dificuldades em uma funcao de SQL dinamico. E o seguinte: Preciso dividir um determinado valor por 100, para obter uma porcentagem especifica. Como esse campo calculado e criado em tempo de execucao, como eu poderei formata-lo para que o mesmo mostre apenas 2 casas decimais? Abaixo, um trecho do select: select C.nome, M.nome_modalidade, Cm.Num_Alunos, M.valor_mensalidade, R.valor_receita, Cc.Total_Salarios_Docentes, Cc.Num_Docentes,(Cc.total_salarios_docentes * 100 / R.valor_receita) as perc_receita, Cm.Perc_Inadimplencia, Cm.Quant_Bolsas, Cm.Valor_Total_Bolsas, Cm Perc_Bolsas, ((Cc.total_salarios_docentes * 100 / R.valor_receita)+Cm.Perc_Bolsas+Cm.Perc_Inadimplencia) as perc_comprometido Preciso formatar o valor de perc_receita. Alguem pode me ajudar? Obrigado, Gustavo -- 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: - 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] Yahoo! Grupos, um serviço oferecido por: 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!. [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] Ajuda quase fácil
Veja onde executável está sendo gerado em: Menu Projects - Options - Palheta Directories/Conditionals em Output Directory, veja se está apontado para algum lugar. Caso afirmativo, o seu exe estará lá. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/15/04 16:09:42 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Ajuda quase fácil Agora eu ví um buchicho legal... Depois de vários sistemas prontos, agora estou com um buchicho que não entendi.. Compilo a aplicação = Zero erros Depois de correr a compilação, correu o link com zero erros zero warning. Mas cade o .exe ??? Não gerou Quem pode me ajudar (delphi 6) (componentes externos.. soh o rx) --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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: 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!. [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] DBGrid mais avançado--- Free Onde acho ?
Não conheço o QuantumGrid, mas uso um muito bom, SMDBGrid Baixe em: http://www.scalabium.com Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/15/04 17:10:57 Para: [EMAIL PROTECTED] Assunto: [delphi-br] DBGrid mais avançado--- Free Onde acho ? Onde acho um componente DBGrid mais avançado sem ser o QuantumGrid ? Ou seja Free... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 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] Yahoo! Grupos, um serviço oferecido por: 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!. [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] Folder
Filipe, Use a API do Windows que abre a árvore de diretórios No OnClick do botão, faça: procedure TForm1.Button1Click(Sender: TObject); var lpItemID : PItemIDList; // uses ShlObj; BrowseInfo : TBrowseInfo; DisplayName : array[0..MAX_PATH] of char; TempPath: array[0..MAX_PATH] of char; begin FillChar(BrowseInfo, SizeOf(TBrowseInfo), #0); BrowseInfo.pszDisplayName := @DisplayName; BrowseInfo.lpszTitle := PChar('Diretorio de Origem'); BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder(BrowseInfo); if lpItemID nil then begin // se escolheu a pasta SHGetPathFromIDList(lpItemID,TempPath); edtOrigemFontes.Text := TempPath; GlobalFreePtr(lpItemID); end else edtOrigemFontes.Text := ''; // caso tenha clicado em cancelar end; Coloque na Uses, a unit ShlObj O diretório escolhido vai para o text do edit(edtOrigemFontes). (Dica retirada do Livro Delphi, API's e Sockets(acho que é isso)) Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/09/04 15:53:27 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Folder Olá... mmm... Como vou explicar... Tp, Se quero q no meio da minha aplicação o usuário possa abrir um arquivo (ou especificar seu caminho), coloco um opendialog, certo? Mas e se eu quiser abrir um diálogo para expecificar um caminho de pasta, faço como??? Valeu! - Yahoo! Acesso Grátis - navegue de graça com conexão de qualidade! [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: 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!. [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: Re: Re: [delphi-br] QuickReport para PDF
Blz Walter, muito bom esses componentes. Em .rtf ele perde as linhas de divisão do relatório(pelo menos aqui), mas em .pdf, fica perfeito Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/09/04 16:22:59 Para: [EMAIL PROTECTED] Assunto: Re: Re: [delphi-br] QuickReport para PDF hehehehe, descobri a parada aqui Eduardo. Era uns componentes que tavam escondidos no final dela. Dá pra gerar inclusive HTML e RTF além do PDF. Valeu aí. Já inmplementei tudo aqui :) []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas CABTEC - Soluções em Código de Barras Belo Horizonte - MG Fone: (31) 2125-9019 - Fax: (31) 2125-9030 http://www.cabtec.com.br [EMAIL PROTECTED] - Original Message - From: Walter Chagas (Desenvolvimento) [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, September 09, 2004 10:16 AM Subject: Re: Re: [delphi-br] QuickReport para PDF Vou até dar uma olhada direito, mas eu nunca vi este recurso nele. Talvez porque nunca tive tempo de dar uma estudada no mesmo por completo. Nós compramos ele aqui tem um ano e a única coisa que fizemos foi atualizar ele no Delphi e só :) Nem nos fontes nunca mexemos. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas CABTEC - Soluções em Código de Barras Belo Horizonte - MG Fone: (31) 2125-9019 - Fax: (31) 2125-9030 http://www.cabtec.com.br [EMAIL PROTECTED] - Original Message - From: Eduardo RC Neto [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, September 09, 2004 9:48 AM Subject: Res: Re: [delphi-br] QuickReport para PDF Engraçado, tenho o Quick Report 4.04 instalado em meu Delphi, estou vendo esse recurso, como uso o mesmo em meus relatórios. Basta colar um componente QRPDFFilter1 no relatório e na hora de salvar no preview do relatorio, escolher em Tipo de Arquivo, PDF Document. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/09/04 10:07:31 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] QuickReport para PDF Nos temos ela aqui mas eu nunca vi esse recurso. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas CABTEC - Soluções em Código de Barras Belo Horizonte - MG Fone: (31) 2125-9019 - Fax: (31) 2125-9030 http://www.cabtec.com.br [EMAIL PROTECTED] - Original Message - From: Eduardo RC Neto [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, September 09, 2004 9:26 AM Subject: Res: [delphi-br] QuickReport para PDF A Versão 4 do Quick Report Professional faz isso. Mas ela é paga. Abraços, Eduardo RC Neto Desenvolvimento de Sistemas -- Archive ISP - Rio de Janeiro - RJ (21) 2567-1842 ramal:119 [EMAIL PROTECTED] www.archive.com.br ---Mensagem original--- De: [EMAIL PROTECTED] Data: 09/09/04 09:15:40 Para: [EMAIL PROTECTED] Assunto: [delphi-br] QuickReport para PDF Bom Dia Amigos... Sou novo na lista... Gostaria de saber se alguém tem um componente (ou uma maneira) que me permita exportar os relatórios feitos no QuickReport para um aquivo PDF ??? Uso Delphi 5 + Interbase e pra fazer os relatórios uso o QuickReport. Desde já agradeço. Richard Wagner [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 171647537 ...E se a música parar, só restará o som da chuva, toda a esperança e glória, todo o sacrifício em vão. E se o amor remanescer, mesmo tudo estando perdido, nós pagaremos o preço e não contaremos o custo... Neil Peart -- 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: 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!. [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