Ajuda com comando CASE

Delphi

26/04/2005

Saudações a todos.

Preciso criar uma instrução que atribua a uma variável string um determinado valor de acordo com a opção que for selecionada em um ComboBox.

Por exemplo:
Se for selecionado o item 1 do combobox a variável x terá o valor ´verde´, se for selecionado o item 2 do combo a varíavel terá valor ´vermelho´ e assim por diante.

Penso que usar o if para isso é inviável pois são muitos itens.
Acho que se usar o CASE seria mais prático só que gostaria de ajuda com o código.

Desde já agradeço a colaboração de todos.


Horus

Horus

Curtidas 0

Respostas

Isabelct

Isabelct

26/04/2005

Seria isso?

case ComboBox1.ItemIndex of
  0: VariavelString := ´Amarelo´;
  1: VariavelString := ´Verde´;
  2: VariavelString := ´Vermelho´;
else
  VariavelString := ´Outra cor´;
end;



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

26/04/2005

ou também uma constante já que aparentemente são valores fixos;

const
  NumElementos = 3;
  Cores: array[-1..NumElementos - 1] of string = (´Nenhuma cor selecionada´, ´Amarelo´, ´Verde´, ´Vermelho´);
var
  NomeCor: string;
begin
  NomeCor := Cores[ComboBox.ItemIndex]);
end;



GOSTEI 0
POSTAR