Percorrer um Objeto TComboBox

Delphi

13/12/2003

Boa tarde para todos,

Estou precisando percorrer o conteúdo de um Objeto TComboBox. Tentei usar:

[color=blue:860d019817]while not TabCombo.eof do
...
...
TabCombo.Next;[/color:860d019817]

Recebi as seguintes mensagens de erro:
[color=red:860d019817]Undeclared identifier: ´eof´
Undeclared identifier: ´Next´[/color:860d019817]
Quais comandos devo usar para percorrer esse objeto.

Desde já agradeço a todos pela atenção.

.com


.com

.com

Curtidas 0

Respostas

Adilsond

Adilsond

13/12/2003

Para percorrer todos os itens do combo utilize:

var
  I: Word;
begin
  for I := 0 to ComboBox1.Items.Count - 1 do
    ShowMessage(ComboBox1.Items[I]);
end;


Para localizar um item específico no combo, utilize:

begin
  ShowMessage(IntToStr(ComboBox1.Items.IndexOf(´xxxxxx´)));
end;



GOSTEI 0
POSTAR