Olá Tamara !! Realizei um teste aqui , criei um arquivo com a estrutura de um ini que deu +- 1mega Varias Seções com vários valores tipo : [Indice1] Diretiva1=meu texto1 Diretiva2=meu texto2 Diretiva3=meu texto3 [Indice2] Diretiva1=meu texto1 Diretiva2=meu texto2 Diretiva3=meu texto3 [Indice3] Diretiva1=meu texto1 Diretiva2=meu texto2 Diretiva3=meu texto3 Pelo que pude observar deu problema na classe TIniFile por ela usar a API do Windows que impõe um limite de 64kb nos arquivos INI. Se você precisar armazenar mais de 64kb de dados, você precisará usar o TMemIniFile ao invés da TInifile, que não possui o limite de 64kb. No restante suto correu normalmente , so consumiu memória pra caramba, Então se quiser fazer um teste substitua TiniFile por TMemIniFile somente e faça um teste Um abraço !!
CCNA / Certificado Borland Delphi / MCSA -------Mensagem original------- De: Moked - Tamara \(Brazil\) Data: 06/13/06 09:41:53 Para: delphi-br@yahoogrupos.com.br Assunto: RES: Re: [delphi-br] Leitura contrária de INI Bom dia José, Seria exatamente isto o q eu preciso, porém, testando aqui a sua função, me deparei com um problema: não sei se o stringlist tem um limite a ser carregado nele, mas de acordo com o tamanho do meu arquivo INI, ele não chega até a metade do arquivo fazendo a verificação.... particionei meu arquivo e ele encontrou direitinho a minha string conforme eu precisava.... :( Existe alguma extensão do stringlist? Muito Obrigada pela ajuda 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 José Claudemir Enviada em: segunda-feira, 12 de junho de 2006 21:01 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: [delphi-br] Leitura contrária de INI 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; End; Procedure TForm1.Button1Click(Sender: TObject); Begin ShowMessage(achaDiretiva('c:\arquivo.ini','indice','meu texto2')); end; CCNA / Certificado Borland Delphi / MCSA -------Mensagem original------- De: Julio Cesar Data: 06/12/06 18:50:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Leitura contrária de INI Faz a leitura de linha a linha, dai da um pos() na string q vc quer, caso haja na linha entao vc faz a copia do inicio da string ate a pos() do sinal de igual... Julio Cesar [EMAIL PROTECTED] +353 (87) 2184139 +353 (091) 630317 ----- Original Message ----- From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Monday, June 12, 2006 9:22 PM Subject: 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] [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] [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 1.1596 (20060613) __________ 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
