<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,
Mais uma vez com a ajuda e atenção dos colegas de lista consegui solucionar meu
problema.
Um colega me passou uma função q fazia a leitura cotrária, porem ainda ñ
resolvia o meu problema, o q me fez achar ser um problema com limite no
stringlist. Porém, outro colega me esclareceu q o problema ñ seria no
stringlist mas sim no TIniFile, q tem um limite de 64Kb de arquivo e me
aconselhou a passar a usar o TMenIniFile q não tem limite. Esta mudança
encaixou-se perfeitamente com a função passado, resolvendo 100% o meu problema.
Abaixo repasso a função que chegou até minhas mão, já com a mudança... notem q
ñ mudou nd em usar TiniFile e TMenIniFile a não ser o resultado....rs..
Function AchaDiretiva(MyIni,MyIndice,MyStr: String): String;
Var
AppIni : TMemIniFile;
Items : TStringList;
I : INteger;
SStr : String;
SChave : String;
Begin
Result := '';
Items := TStringList.Create;
AppIni := TMemIniFile.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;
Muito obrigada a tds pela ajuda e atenção...
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 >>>>>
<*> 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
