Tema: Leer un edit
Ver Mensaje Individual
  #2  
Antiguo 17-03-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Reputación: 25
egostar Va camino a la fama
Hola

Suponiendo que ya validaste que no hay errores de conversion en el edit1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  case strtoint(edit1.text) of 
     3,4: Shape1.Brush.Color := clRed;
     5,6: Shape1.Brush.Color := clYellow;
     7,8,9,10,11,12: Shape1.Brush.Color := clGreen;
     else Shape1.Brush.Color := clWhite; //En caso de que sea otro numero
  end;
end;

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 17-03-2008 a las 05:12:22.
Responder Con Cita