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 >>>>>

<*> 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

 



Responder a