Boa tarde amigos da Lista,
Estou inserindo o conteúdo de um memo num stringlist e o mesmo
apresenta erro toda vez que vou fazer a inserção. Agradeço a ajuda de
todos desde já pois não estou identificando de onde vem esta mensagem de
erro.
Eu apago tudo o que estiver dentro do stringlist desde que esteja dentro
desta faixa, que estará sempre na ultima linha.
for x := 0 to lista.Count - 1 do
begin
if (pos('*' , (lowercase(before(lista.Strings[x], '='))))>0) or
(pos('.' , (lowercase(before(lista.Strings[x], '='))))>0) then
begin
lista.Delete(x);
end;
end;
Quando saio do FOR vejo se o que existe dentro do MEMO está dentro da
regra que necessito e peço para inserir todo o seu conteúdo na lista.
if (pos('*' ,
(lowercase(before(memMorePrefixInbox.Lines.Strings[i], '='))))>0) or
(pos('.' ,
(lowercase(before(memMorePrefixInbox.Lines.Strings[i], '='))))>0) then
begin
lista.Insert(x,memMorePrefixInbox.Text);
end;//if
Ele está apresentando erros de List index Out Of Bounds (numero da linha).
O engraçado é que o resultado que espero está saindo corretamente, só
que quando altero o arquivo ele apresenta este erro quando vai inserir
no stringlist.
Obrigado desde já,
--
Leandro Ferreira
Desenvolvedor - Tecnologia
NEXXERA Tecnologia e Serviços S.A.
--
<<<<< 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] ou [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
