F�rum EListError com Combobox #347371

15/10/2007

Ola.
Boa noite a todos.
Estou com o seguinte problema. Toda vez q abro um form de pesquisa, temos o seguinte msg: �EListError - Index out of bound (4)�. No onshow do form, tenho o seguinte:

var
num, count : integer;
begin
count:=0;
dbGrid1.DataSource.DataSet.GetFieldNames(ComboBox1.Items);
num:=ComboBox1.Items.Count;
comboBox1.Items.Clear;
 while num >= count do
 begin
 if DBGrid1.DataSource.DataSet.Fields.Fields[count].Tag = 0 then
 begin
 combobox1.items.add(DBGrid1.DataSource.DataSet.Fields.Fields[count].DisplayLabel);
 end;
 inc(count);
 end;
Edit1.Clear;
ComboBox1.SetFocus;

Acredito q o erro esteja no trecho acima, mas n�o descobri onde.
Quem puder ajudar agrade�o...
Att
Dalton

Dbergkamps10

Curtir t�pico

+ 0

Responder

Posts

16/10/2007

Marco Salles

� possivel que voce resolva trocando a instru��o

num:=ComboBox1.Items.Count; por num:=ComboBox1.Items.Count - 1;

Responder

Gostei + 0

16/10/2007

Dbergkamps10

Vlw...
Funcionou blz...

Responder

Gostei + 0

16/10/2007

Marco Salles

beleza :P

Responder

Gostei + 0