Leer un edit

[[egostar]]

Empezado por JoseFco

Hola amigos.

Le cambie algunas cosas a mi codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
3,4: Shape1.Brush.Color := clRed;
5,6: Shape1.Brush.Color := clYellow;
7,8,9,10,11,12: Shape1.Brush.Color :=clGreen;
else Showmessage('Este programa no soporta ese valor');
end;
end;

Copila bien (no da error) pero no funciona como esperaba. En el evento del boton solo hace Showmessage.
Algo anda mal aqui jajajajaja no se rian recuerden que son novato.
Me hace falta una ayudadita con esto.
PD: si seleciono el 3,4 o el 5 me da Showmessage. Si seleciono 6 o el 7 el shape se pone color rojo. Si seleciono 8 o 9 el shape se pone amarillo y si seleciono 10,11 o el 12 me da verde.

Un Saludo.

Pues si, es lógico que te pase eso ya que estas usando el ItemIndex el cual comienza en cero

ItemImdex -> Valor
0 -> 3
1 -> 4
2 -> 5
3 -> 6
4 -> 7
Etc,etc.

Salud OS

[JoseFco]

Hola egostar.

Tienes mucha razon, ahora si me trabaja bien. agregando el 0,1 y el 2 al combobox aunque no lo lea en mi rutina.
Pero me hace falta encontrar la forma de que esos tres numeros no salgan en el combobox, ya que no son una cosntante valida en mi programita.Solo a partir del 4 (4 mhz)

Alguna otra forma de trabajar el combobox?

Un saludo y gracias por la ayuda.

[[egostar]]

Código Delphi [-]
var
  Form1: TForm1;
  Valor:Integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Valor of
    3,4: Shape1.Brush.Color := clRed;
    5,6: Shape1.Brush.Color := clYellow;
    7,8,9,10,11,12: Shape1.Brush.Color :=clGreen;
    else Showmessage('Este programa no soporta ese valor');
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Valor := StrtoInt(ComboBox1.Text);
end;

end.

Salud OS

Edito:

En el ComboBox solo pones los valores que quieras comparar

[JoseFco]

Gracias carnal.
Cuando sea grande quiero ser asi como tu.

jejejeje Un Saludo y problema resuelto.