List index out...

[TheMaker 0]

Olá...

Estou usando um Grid derivado da classe TStringGrid.

Defino fixamente a quantidade de colunas (ColCount) e defino dinamicamente

a quantidade de linhas EX :

 

MeuGrid.RowCount := Query1.RecordCount + 1; (+1 por causa dos titulos do grid);

 

Aleatoriamente venho tendo a seguinte mensagem de erro

(List index out of bounds(Quantidade Variavel))...

 

Poderia a propiedade RecordCount ou RowCount Falhar?

 

Já revisei todo o código e parece estar tudo ok...Se alguem aí já passou por essa, me dê uma força OK? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Barrakuda 0]

Tem como você postar o trecho de código que você está tendo problemas.Provavelmente o erro está na manipulação e não na declaração do objeto.Barrakuda.

[Hurrikan 0]

Sim ela pode falhar, pois se você estiver utlizando DataSet que Bufferiza as linhas o RecordCount estará errado. Isso que dizer: Se tiver utilizando uma tabela com 500 linhas em um DataSet Buferizado, normalmente ele retorna de 25 em 25.

 

Se tiver utilizando o TTable do Delphi isso não ocorre.

você pode fazer um SQL que retorne a qtd de linhas antes de preencher o Grid.

 

você deve se lembrar que qualquer lista é uma especie de array e arrays começam como 0. Se criar um TStringList com 10 linhas ele será da linha 0 à linha 9.

 

Verifique se você não está ultrapassando este limite.

 

Normalmente utilizo for para resolver:

 

for X:= 1 to DataSet.RecordCount - 1 do

begin

*

* Preenche o Grid

*

end;

 

O "X" começa do 1 pois desprezo a linha de cabeçalho e vai até a quantidade de reristos -1.

 

Rerifique e talvez terá o resultado encontrado.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif