Tâmara, obrigado a vc tb, se eu soubesse que era tão fácil usar esse recurso, já teria utilizado muito antes.
----- Original Message ----- From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, June 13, 2006 2:24 PM Subject: RES: [delphi-br] Leitura contrária de INI - a solução!!! Boa Tarde Marcos, Finalmente consegui testar seu exemplo.... ñ sei se entendi direito, mas com ele eu teria q ter um loop certo? e ai então verificar se é o q desejo... Teve um colega de lista q passou uma solução simples, uma função q ja haviam me passado ainda estava com problemas q eu acreditava ser no stringlist, mas logo um colega disse q o problema era com o TIniFile q tem limite de 64Bk para arquivo, e me aconselhou a mudar para TMenIniFile, o q deu certinho... Obrigada e desculpe a demora, vc ñ esta com problema de envio...rs.. Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> www.moked.com.br <http://www.moked.com.br/> ________________________________ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos André Enviada em: terça-feira, 13 de junho de 2006 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Leitura contrária de INI - a solução!!! Olá Tâmara, tente isto deve resolver o seu problema: var a : TIniFile, str : TStrings; begin Str := TStringList.Create; a.ReadSectionValues('section'; str); Str1 := TStringList.Create; a.ReadSection('Section', Str1); depois basta vc relacionar no código, a linha 1 de Str será o valor do campo que está na linha 1 do Str1. Ok? Depois responde ae se resolveu... Um Abraço __ __ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ |"""""""""| |'. `\ | | Analista de Sistema ;"""/ / | | Easy Corporation ) /_/| |.-------.| <http://www.e-easy.com.br/> www.e-easy.com.br | <http://www.eassyxp.com.br/> www.eassyxp.com.br ' `-` ' " " msn: <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED] Desenvolvimento e hospedagem de sites apartir de R$ 4,00 Planos profissionais com qualidade. Consulte nossos planos: <http://www.e-easy.com.br/> www.e-easy.com.br Desenvolvimento de sistemas e sistemas prontos para comercializar, ferramentas para desenvolvedores e muito mais: <http://www.easyxp.com.br/> www.easyxp.com.br. _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rogério Enviada em: terça-feira, 13 de junho de 2006 09:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitura contrária de INI Fiquei curioso, Tamara, o que vc precisa solucionar? (pq procurar a diretiva à partir do valor?) Abraço, Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br Tel.:47 3221-4500/Fax:47 3221-4599 ----- Original Message ----- From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 13, 2006 9:03 AM Subject: RES: [delphi-br] Leitura contrária de INI Campus, Vc diz a partir deste stringlist gerado procurar a string desejada e atraves do copy pegar o q preciso? Uhm... se for isso, torna-se inviável... por meu INI tem uma unica [Section].... então o stringlist conteria td o meu INI e na maior parte das vezes o q eu preciso, se for procurado simplesmente como string dentro de um texto, acabará por gerar falhas... pode até ser q não, mas é muito apto a falhas... vou exemplificar melhor.... [Section do INI] cadastro=cadastrar usuario=usuário cadastrar usuario=Cadastrar usuário visitas=Visitantes Pq isso: este INI é utilizado para corrigir falhas na escrita, por ser um sistema muito grande era inviável corrigir manualmente, form a form... porém, me deparei com comparações mil dentro do sistema com strings exibidas ao usuário, como é o caso da palavra usuário, q estava sendo exibida sem o acento, o q ñ é o certo a ser exibido a um usuário do sistema, só q, esta palavra acaba por ser o nome da tabela, q apos sua escolha pelo usuário tem tarefas a serem executas. Por isso preciso fazer a reversão.... entendeu? E pq não posso utilizar sua ideia: procurar no arquivo td um string, alem de ser relativamente demorado, se eu procurar por usuário, terei como resposta, duas strings, só neste pequeno exemplo.... Obrigada pela atenção Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> www.moked.com.br <http://www.moked.com.br/> ________________________________ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Campus Enviada em: segunda-feira, 12 de junho de 2006 18:16 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitura contrária de INI No meu Delphi (5), não tem nenhuma função que faça isso. dá uma olhada no help do teu delphi no TIniFile, e ve se tem alguma coisa nos métodos. Se não tiver, tu pode contornar com o ReadSection, ele carrega todas as chaves do teu "indice" numa string list, daí fica fácil procurar. > ----- Original Message ----- > From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Monday, June 12, 2006 2:58 PM > Subject: [delphi-br] Leitura contrária de INI > > > > > <http://www.moked.com.br/> Tamara Clemente - Suporte Técnico > Moked do Brasil - Consultoria de Segurança Empresarial > Divisão MokInf de Informática > PABX: (55-11) 5071-2748 > [EMAIL PROTECTED] > www.moked.com.br <http://www.moked.com.br/> > > Grau de Sigilo: Confidencial Reservado Interno Amplo > Nível de Prioridade: Alto Médio Baixo > Destinatário/s: Lista de divulgação > ------------------------------------------------------------------------- > Boa Tarde, > > Pessoal, como faço para ler arquivo .INI ao contrario? > > Maiores explicações: > > Normalmente eu leio o Ini tendo como diretiva o q esta antes do sinal de > igual: > > [Indice] > diretiva=meu texto > > Sendo assim, quando eu utilizo o readstring('Indice', 'diretiva', '') meu > retorno será "meu texto". > > Agora o q eu estou precisando: > > Eu passando o "meu texto" q ele me retorne a diretiva.... > > Deu para entender???? > > Espero a ajuda de vcs... > > Obrigada, > > > > Tamara > A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 > > Serviços prestados no Brasil na área de segurança pessoal e empresarial: > Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | > Auditoria e Sindicância | Software de Gestão | Help-desk 24hs > > O emitente da mensagem é o responsável por seu conteúdo e divulgação, > proibindo sua reprodução sem a prévia autorização do mesmo. > Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o > comprometimento com os Custo envolvidos! > > > > [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] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> 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] 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
