[delphi-br] Re: Localizar - O Retorno
Boa noite! Vamos por partes...por um acaso este projeto é aquele da pessoa jurídica e pessoa física que vc fez em duas tabelas e foi indicado para que tentasse normalizar e usar apenas uma tabela? estrutura do locate: dmBaseDados.T_Assessoria.open; dmBaseDados.T_Assessoria.Locate('NomeDoCampo', valorDoCampo, []); Na tabela T_Assessoria esta o campo que vc quer setar? Caso positivo esta estrutura não tem erro... Mas caso vc queira, informe a estrutura do banco (pelo menos das tabelas envolvidas nesta rotina), e informe o código completo que vc está usando para que possamos visualizar num contexto geral e caso possível, lhe ajudar. Qualquer coisa, poste ai! Fraterno abraço, Carlos
Re: [delphi-br] Re: Localizar
Sem desejar criar polemica, eu posso concordar para sistemas muito simples de uso generalizado. Para sistemas maiores há necessidade de mais elaboração. Vou somente lembrar dois atributos de entidade jurídica Inscrição Estadual e Inscrição Municipal' e dois atributos de entidade física 'Sexo e Identidade. Existem muitos outros mutuamente exclusivos. Entendo que a dificuldade é se achar o equilíbrio entre sistemas simples e sistemas maiores. Ai, é que esta o cerne do bom projeto. Boas Festas a todos. Roberto (RJ) - Original Message - From: Carlos To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 27, 2008 4:21 PM Subject: [delphi-br] Re: Localizar Eu não sei como é que funciona o sistema que vc está desenvolvendo, mas o que o colega informou sobre normalização é válido. Pois o que distingue uma pessoa física de jurídica é o CPF no caso de física e CNPJ no caso de jurídica. Seria muito mais simples vc colocar todos os dados em uma única tabela, e no campo cpf_cnpj deixar como 14 caracteres e um campo booleano para informar se é ou não física ou jurídica. Fazendo isto, fica muito mais fácil efetuar qualquer consulta. Caso vá tentar localizar o registro com a tabela já aberta e exibindo todos, poderá usar o locate, ou montar uma tela de consulta, usando diversos parâmetros a escolha para localizar o que se deseja, e quando a consulta mostrar o que se deseja, implementa um método que com um duplo clique abre o cadastro da pessoa. Mais ou menos isto...não sei se me fiz entender! Qualquer coisa...poste ai! Fraterno abraço, Carlos -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.176 / Virus Database: 270.10.0/1865 - Release Date: 12/26/ 13:01 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Localizar
Eu não sei como é que funciona o sistema que vc está desenvolvendo, mas o que o colega informou sobre normalização é válido. Pois o que distingue uma pessoa física de jurídica é o CPF no caso de física e CNPJ no caso de jurídica. Seria muito mais simples vc colocar todos os dados em uma única tabela, e no campo cpf_cnpj deixar como 14 caracteres e um campo booleano para informar se é ou não física ou jurídica. Fazendo isto, fica muito mais fácil efetuar qualquer consulta. Caso vá tentar localizar o registro com a tabela já aberta e exibindo todos, poderá usar o locate, ou montar uma tela de consulta, usando diversos parâmetros a escolha para localizar o que se deseja, e quando a consulta mostrar o que se deseja, implementa um método que com um duplo clique abre o cadastro da pessoa. Mais ou menos isto...não sei se me fiz entender! Qualquer coisa...poste ai! Fraterno abraço, Carlos
[delphi-br] Re: Localizar Comando SQL dentro de uma Query
Preciso procurar um Comando SQL (delete from clientes) que esta dentro de uma query. Eu nao sei em qual query esta isso, pode ser 1 ou varias. Gostaria de saber se consigo localizar uma palavra que esta dentro da Query dos formularios do meu sistema. Guilherme --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu Explica melhor a tua dúvida. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 2 Oct 2007 12:17:10 +Subject: [delphi-br] Localizar Comando SQL dentro de uma Query Como que eu faço para localizar um Comando SQL dentro de uma Query noDelhpi 7 sem entrar em query por query ?Guilherme _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Localizar Comando SQL dentro de uma Query
Alguem tem alguma dica ??? --- Em delphi-br@yahoogrupos.com.br, guierzinger2003 [EMAIL PROTECTED] escreveu Preciso procurar um Comando SQL (delete from clientes) que esta dentro de uma query. Eu nao sei em qual query esta isso, pode ser 1 ou varias. Gostaria de saber se consigo localizar uma palavra que esta dentro da Query dos formularios do meu sistema. Guilherme --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha djpardalrocha@ escreveu Explica melhor a tua dúvida. Sds. To: delphi-br@: guierzinger2003@: Tue, 2 Oct 2007 12:17:10 +Subject: [delphi-br] Localizar Comando SQL dentro de uma Query Como que eu faço para localizar um Comando SQL dentro de uma Query noDelhpi 7 sem entrar em query por query ?Guilherme _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: Localizar Comando SQL dentro de uma Query
instala o GExperts, nele tem uma busca por palavras que vc pode pesquisar nos formulários e componentes dentro deles, isso acho que resolve. - Mensagem original De: guierzinger2003 [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 2 de Outubro de 2007 10:59:21 Assunto: [delphi-br] Re: Localizar Comando SQL dentro de uma Query Alguem tem alguma dica ??? --- Em [EMAIL PROTECTED] os.com.br, guierzinger2003 guierzinger2003@ ... escreveu Preciso procurar um Comando SQL (delete from clientes) que esta dentro de uma query. Eu nao sei em qual query esta isso, pode ser 1 ou varias. Gostaria de saber se consigo localizar uma palavra que esta dentro da Query dos formularios do meu sistema. Guilherme --- Em [EMAIL PROTECTED] os.com.br, Rubem Nascimento da Rocha djpardalrocha@ escreveu Explica melhor a tua dúvida. Sds. To: delphi-br@: guierzinger2003@ : Tue, 2 Oct 2007 12:17:10 +Subject: [delphi-br] Localizar Comando SQL dentro de uma Query Como que eu faço para localizar um Comando SQL dentro de uma Query noDelhpi 7 sem entrar em query por query ?Guilherme _ _ _ _ _ _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps .com.br/index. aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Localizar Comando SQL dentro de uma Query
Vai no Search do Delphi. E manda procurar em *.DFM []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de guierzinger2003 Enviada em: terça-feira, 2 de outubro de 2007 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Localizar Comando SQL dentro de uma Query Alguem tem alguma dica ??? --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , guierzinger2003 [EMAIL PROTECTED] escreveu Preciso procurar um Comando SQL (delete from clientes) que esta dentro de uma query. Eu nao sei em qual query esta isso, pode ser 1 ou varias. Gostaria de saber se consigo localizar uma palavra que esta dentro da Query dos formularios do meu sistema. Guilherme --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Nascimento da Rocha djpardalrocha@ escreveu Explica melhor a tua dúvida. Sds. To: delphi-br@: guierzinger2003@: Tue, 2 Oct 2007 12:17:10 +Subject: [delphi-br] Localizar Comando SQL dentro de uma Query Como que eu faço para localizar um Comando SQL dentro de uma Query noDelhpi 7 sem entrar em query por query ?Guilherme __ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Localizar Comando SQL dentro de uma Query
Você quer uma dica dica mesmo ou serve uma gambi?? []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 Code Gear: http://cc.codegear.com/Author/46502 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de guierzinger2003 Enviada em: terça-feira, 2 de outubro de 2007 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Localizar Comando SQL dentro de uma Query Alguem tem alguma dica ??? --- Em delphi-br@yahoogrupos.com.br, guierzinger2003 [EMAIL PROTECTED] escreveu Preciso procurar um Comando SQL (delete from clientes) que esta dentro de uma query. Eu nao sei em qual query esta isso, pode ser 1 ou varias. Gostaria de saber se consigo localizar uma palavra que esta dentro da Query dos formularios do meu sistema. Guilherme --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha djpardalrocha@ escreveu Explica melhor a tua dúvida. Sds. To: delphi-br@: guierzinger2003@: Tue, 2 Oct 2007 12:17:10 +Subject: [delphi-br] Localizar Comando SQL dentro de uma Query Como que eu faço para localizar um Comando SQL dentro de uma Query noDelhpi 7 sem entrar em query por query ?Guilherme _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Re: Localizar Registros
--- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan [EMAIL PROTECTED] escreveu Consulte a classe TRegistry no help. Em 11/07/07, adriano_albuquerque [EMAIL PROTECTED] escreveu: Olá! pessoal, eu gostaria de saber como q eu posso fazer pra localizar registros do regedit ou algum valor de registro em delphi... desde já agradeçido! -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Re: Localizar Registros
É... até aí eu sei... mas depois disso é que fica difícil, os comandos... difícil não é, mas eu não sei o comando mas vlw por ter dado uma dica aew! --- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan [EMAIL PROTECTED] escreveu Consulte a classe TRegistry no help. Em 11/07/07, adriano_albuquerque [EMAIL PROTECTED] escreveu: Olá! pessoal, eu gostaria de saber como q eu posso fazer pra localizar registros do regedit ou algum valor de registro em delphi... desde já agradeçido! -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Re: Localizar Registros
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Entendi, vc quer fazer uma busca. Acho que só por força bruta mesmo. O regedit não demora daquele jeito à toa. Em 11/07/07, adriano_albuquerque escreveu: -BEGIN PGP SIGNATURE- Version: GnuPG v1.4.7 (MingW32) Comment: http://firegpg.tuxfamily.org iD8DBQFGlWi+mjtGnDKy7TkRAqAFAKC8oBQ3jNSKF8kP99ji2h2RuishNwCeNy3l gCyDqXLGpNgtGWq/+c1DARA= =NHaD -END PGP SIGNATURE- É... até aí eu sei... mas depois disso é que fica difícil, os comandos... difícil não é, mas eu não sei o comando mas vlw por ter dado uma dica aew! --- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan [EMAIL PROTECTED] escreveu Consulte a classe TRegistry no help. Em 11/07/07, adriano_albuquerque [EMAIL PROTECTED] escreveu: Olá! pessoal, eu gostaria de saber como q eu posso fazer pra localizar registros do regedit ou algum valor de registro em delphi... desde já agradeçido! -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Re: Localizar caracter !! AJUDE-ME PLZ !!!
Paulo, Acho que a função Pos pode te ajudar. -- Retirado do Help do Delphi - function Pos(Substr: string; S: string): Integer; Description Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions. Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero. -- Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br Mensagem: 8 Data: Wed, 19 Jan 2005 10:52:32 - De: paulovitormc [EMAIL PROTECTED] Assunto: Localizar caracter !! AJUDE-ME PLZ !!! Gostaria de saber como posso fazer uma pesquisa para localizar caracter dentro de um memo ou richedt, terei um edit no qual o usuario ira inserir o caracter a ser pesquisado e quando ele apertar enter o texto no memo sera selecionado e se apertar enter denovo ele parte para o proximo caracter ... Garto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Localizar linha em arquivos texto
Bom dia companheiro. Aqui tem um procedimento que lê o arquivo linha por linha e em cada linha verifica caracter por caracter. Se encontra o caracter procurado (no exemplo o '*') então faz o que for preciso. { Para ler o arquivo } procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i: integer begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin for i := 1 to Length(linha) do if Copy(linha,i,1) = '*' then // Faz o que for preciso ReadLn ( arq, linha ); end; CloseFile ( arq ); end; Espero que ajude e que você tenha um ótimo dia. --- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira [EMAIL PROTECTED] escreveu Boa Tarde Pessoal, Preciso da ajuda de vocês para descobrir como construo um if onde o parte do conteúdo contenha '*' ou '.'. Por exemplo: dentro do meu arquivo texto, possuo uma linha 'teste*.txt=teste*.txt.*.passou' e outra 'txt.teste=txt.*.teste.passou'. Estas duas linhas precisam ser inclusas num listbox ou memo desde que o conteúdo delas possua até chegar no símbolo de '=' os símbolos de '*' ou '.'. Agradeço a ajuda de todos, -- Leandro Ferreira Desenvolvedor - Tecnologia NEXXERA Tecnologia e Serviços S.A. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Localizar linha em arquivos texto
PARA AGILIZAR EM MUITO ESTE METODO UTILIZE O FUNCAO POS() que ao encontrar a primeira ocorrencia de busca descarta o resto da linha procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i: integer begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin if pos('*',linha) then //ALTERDO AQUI RETIRADO O FOR Begin // Faz o que for preciso End; ReadLn ( arq, linha ); end; CloseFile ( arq ); end; [EMAIL PROTECTED] Analista de Sistemas itamar roloff --- - Original Message - From: dom_rr2004 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 8:38 AM Subject: [delphi-br] Re: Localizar linha em arquivos texto Bom dia companheiro. Aqui tem um procedimento que lê o arquivo linha por linha e em cada linha verifica caracter por caracter. Se encontra o caracter procurado (no exemplo o '*') então faz o que for preciso. { Para ler o arquivo } procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i: integer begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin for i := 1 to Length(linha) do if Copy(linha,i,1) = '*' then // Faz o que for preciso ReadLn ( arq, linha ); end; CloseFile ( arq ); end; Espero que ajude e que você tenha um ótimo dia. --- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira [EMAIL PROTECTED] escreveu Boa Tarde Pessoal, Preciso da ajuda de vocês para descobrir como construo um if onde o parte do conteúdo contenha '*' ou '.'. Por exemplo: dentro do meu arquivo texto, possuo uma linha 'teste*.txt=teste*.txt.*.passou' e outra 'txt.teste=txt.*.teste.passou'. Estas duas linhas precisam ser inclusas num listbox ou memo desde que o conteúdo delas possua até chegar no símbolo de '=' os símbolos de '*' ou '.'. Agradeço a ajuda de todos, -- Leandro Ferreira Desenvolvedor - Tecnologia NEXXERA Tecnologia e Serviços S.A. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Localizar linha em arquivos texto
Eu estou utilizando o conteúdo do arquivo num stringlist e nele estou manipulando o arquivo. Adaptando a forma que você me passou num stringlist não estou conseguindo realizar o if, você poderia me dizer como: Leandro Ferreira Desenvolvedor - Tecnologia NEXXERA Tecnologia e Serviços itamar escreveu: PARA AGILIZAR EM MUITO ESTE METODO UTILIZE O FUNCAO POS() que ao encontrar a primeira ocorrencia de busca descarta o resto da linha procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i: integer begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin if pos('*',linha) then //ALTERDO AQUI RETIRADO O FOR Begin // Faz o que for preciso End; ReadLn ( arq, linha ); end; CloseFile ( arq ); end; [EMAIL PROTECTED] Analista de Sistemas itamar roloff --- - Original Message - From: dom_rr2004 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 8:38 AM Subject: [delphi-br] Re: Localizar linha em arquivos texto Bom dia companheiro. Aqui tem um procedimento que lê o arquivo linha por linha e em cada linha verifica caracter por caracter. Se encontra o caracter procurado (no exemplo o '*') então faz o que for preciso. { Para ler o arquivo } procedure percorreArquivoTexto ( nomeDoArquivo: String ); var arq: TextFile; linha: String; i: integer begin AssignFile ( arq, nomeDoArquivo ); Reset ( arq ); ReadLn ( arq, linha ); while not Eof ( arq ) do begin for i := 1 to Length(linha) do if Copy(linha,i,1) = '*' then // Faz o que for preciso ReadLn ( arq, linha ); end; CloseFile ( arq ); end; Espero que ajude e que você tenha um ótimo dia. --- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira [EMAIL PROTECTED] escreveu Boa Tarde Pessoal, Preciso da ajuda de vocês para descobrir como construo um if onde o parte do conteúdo contenha '*' ou '.'. Por exemplo: dentro do meu arquivo texto, possuo uma linha 'teste*.txt=teste*.txt.*.passou' e outra 'txt.teste=txt.*.teste.passou'. Estas duas linhas precisam ser inclusas num listbox ou memo desde que o conteúdo delas possua até chegar no símbolo de '=' os símbolos de '*' ou '.'. Agradeço a ajuda de todos, -- Leandro Ferreira Desenvolvedor - Tecnologia NEXXERA Tecnologia e Serviços S.A. -- 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