EListError com Combobox

Delphi

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

Dbergkamps10

Curtidas 0

Respostas

Marco Salles

Marco Salles

15/10/2007

é possivel que voce resolva trocando a instrução

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



GOSTEI 0
Dbergkamps10

Dbergkamps10

15/10/2007

Vlw...
Funcionou blz...


GOSTEI 0
Marco Salles

Marco Salles

15/10/2007

beleza :P


GOSTEI 0
POSTAR