RES: [delphi-br] Leitura contrária de INI

2006-06-14 Por tôpico Moked - Tamara \(Brazil\)
A questão ñ é pura e simplesmente trocar letras... no caso de Usuário q foi um, 
assim como falei, um simples exemplo, eu teria: Controle de Usuários sendo 
exibido ao usuario e a tabela de nome ControleUsuario... entendeu?
 
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: quarta-feira, 14 de junho de 2006 09:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI


E tu não consegue trocar as letras ? "á" por "a" ?

algo tipo:

cNomeTabela := 'Usuário';

qry.Sql.Add('Select blablabla from ' + TrocaLebra(cNomeTabela));

//=
function TrocaLetra(cPalavra: String): String
begin
  for nCnt := 1 to length(cPalavra)
  begin
 if cPalavra[nCnt] = 'á' then cPalavra[nCnt] := 'a';
 if cPalavra[nCnt] = 'é' then cPalavra[nCnt] := 'e';
 if cPalavra[nCnt] = 'ç' then cPalavra[nCnt] := 'c';
 ...
  end;
  Result := cPalavra;
end;
//=




- Original Message ----- 
From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, June 13, 2006 10:24 AM
Subject: RES: [delphi-br] Leitura contrária de INI


Rogério,

É o caso q expliquei no e-mail q vc respondeu...rs...

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

Basicamente o usuário escolhe com qual tipo de cadastro ele quer lidar em um
Combobox antigamente exibia-se Usuario, o q é "feio", pois este é o nome
da tabela, então o usuário escolhendo a tabela usuário, era so montar o
select: select * from cmbtabela.text mas como o text passou a ser
Usuário com acento, gera o erro de sqlé isto q preciso reverter, de
Usuário, trazer Usuario

PS: usuário foi um exempli simplificado, o nome das tabelas é um pouco mais
complexo.rs...

Obrigada,

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 Rogério
Enviada em: terça-feira, 13 de junho de 2006 10:16
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
  [EM

RES: [delphi-br] Leitura contrária de INI - a solução!!!

2006-06-13 Por tôpico Moked - Tamara \(Brazil\)
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 c

RES: [delphi-br] Leitura contrária de INI

2006-06-13 Por tôpico Moked - Tamara \(Brazil\)
Rogério,
 
É o caso q expliquei no e-mail q vc respondeu...rs...
 
" 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"
 
Basicamente o usuário escolhe com qual tipo de cadastro ele quer lidar em um 
Combobox antigamente exibia-se Usuario, o q é "feio", pois este é o nome da 
tabela, então o usuário escolhendo a tabela usuário, era so montar o select: 
select * from cmbtabela.text mas como o text passou a ser Usuário com 
acento, gera o erro de sqlé isto q preciso reverter, de Usuário, trazer 
Usuario
 
PS: usuário foi um exempli simplificado, o nome das tabelas é um pouco mais 
complexo.rs...
 
Obrigada,
 
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 Rogério
Enviada em: terça-feira, 13 de junho de 2006 10:16
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: 
  > 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,
  >
  > P

RES: [delphi-br] Leitura contrária de INI - a solu ção!!!

2006-06-13 Por tôpico Marcos André
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: 
  > 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 

RES: [delphi-br] Leitura contrária de INI

2006-06-13 Por tôpico Moked - Tamara \(Brazil\)
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]  
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: 
> Sent: Monday, June 12, 2006 2:58 PM
> Subject: [delphi-br] Leitura contrária de INI
>
>
>
>
>    Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED]
> www.moked.com.br 
>
> Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo
> Nível de Prioridade:  Alto  Médio  Baixo
> Destinatário/s: Lista de divulgação
> -
> 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]



-- 
< 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] Leitura contrária de INI

2006-06-12 Por tôpico José Claudemir
  
Olá !!
 
Não seria isso o que VC está querendo .. !! 
Até mais !!!
 
Function AchaDiretiva(MyIni,MyIndice,MyStr: String): String;
Var
  AppIni  : TIniFile;
  Items   : TStringList;
  I : INteger;
  SStr : String;
  SChave : String;
Begin
  Result := '';
  Items := TStringList.Create;
  AppIni := TIniFile.Create(MyIni);
  AppIni.ReadSectionValues(MyIndice,Items);
  For I:=0 to Items.Count - 1 do begin
SChave := Copy(Items[I],1,Pos('=',Items[I])-1);
SStr := AppIni.ReadString(MyIndice,sChave,'');
If sStr = MyStr then begin
  Result := sChave;
  Exit;
End;
  End;
  AppIni.Free;
  Items.Free;
End;
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  ShowMessage(achaDiretiva('c:\arquivo.ini','indice','meu texto2'));
End;
 


 
 

CCNA / Certificado Borland Delphi / MCSA
---Mensagem original---
 
De: Moked - Tamara \(Brazil\)
Data: 06/12/06 17:29:28
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Leitura contrária de INI
 
Ulisses,

Não é bem isso q eu preciso o q eu preciso não é pegar o texto de dentro
dos colchetes[] e sim o q tem antes do sinal de igual até onde andei
pesquisando, eu conseguiria pegar o texto de dentro dos colchetes atraves de
uma função como o readstring mas antes do sinal de igual ñ encontrei nd.
.

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 Ulisses
Enviada em: segunda-feira, 12 de junho de 2006 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI


Boa tarde!

Tenta localizar o caractere "[", salva o texto que estiver antes do
caractere "]".

Só uma idéia. Se encontrar algo melhor, me avisa.

Boa sorte.

Ulisses
  - Original Message - 
  From: Moked - Tamara (Brazil) 
  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]

   

[As partes desta mensagem que não continham texto foram removidas]




[As partes desta mensagem que não continham texto foram removidas]

 

__ Informação do NOD32 IMON 1.1595 (20060612) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.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]
 
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] Leitura contrária de INI

2006-06-12 Por tôpico Moked - Tamara \(Brazil\)
Ulisses,
 
Não é bem isso q eu preciso o q eu preciso não é pegar o texto de dentro 
dos colchetes[] e sim o q tem antes do sinal de igual até onde andei 
pesquisando, eu conseguiria pegar o texto de dentro dos colchetes atraves de 
uma função como o readstring mas antes do sinal de igual ñ encontrei nd...
 
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]  
www.moked.com.br  




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ulisses
Enviada em: segunda-feira, 12 de junho de 2006 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Leitura contrária de INI


Boa tarde!

Tenta localizar o caractere "[", salva o texto que estiver antes do caractere 
"]".

Só uma idéia. Se encontrar algo melhor, me avisa.

Boa sorte.

Ulisses
  - Original Message - 
  From: Moked - Tamara (Brazil) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, June 12, 2006 2:58 PM
  Subject: [delphi-br] Leitura contrária de INI




   Tamara Clemente - Suporte Técnico
  Moked do Brasil - Consultoria de Segurança Empresarial
  Divisão MokInf de Informática
  PABX: (55-11) 5071-2748
  [EMAIL PROTECTED]
  www.moked.com.br  

  Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo 
  Nível de Prioridade:  Alto  Médio  Baixo
  Destinatário/s: Lista de divulgação 
  -
  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]

   

[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