Leer un edit

[[egostar]]

Empezado por Caral

Hola
Bueno estaba haciendo algo parecido a Egostar pero me puse a esperimentar y me tope con un asunto en cuanto al TColor.
Mis disculpas a JoseFco por meterme en su pregunta.
Como pasar un string a TColor?.

Lo trate de hacer directamente con un array de TColor, pero estoy en las mismas.
Me explicais?., tal vez a JoseFco le interesa tambien
Saludos

Y porque no de una vez como un arreglo de TColor en lugar de String

Código Delphi [-]
const
 Col : array[1..4] of TColor = (clRed,clYellow,clGreen,clBlue);

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin
   for i := 1 to 4 do
       if edit1.Text = IntToStr(i) then
         Shape1.Brush.Color := Col[i];
end;

Salud OS

[[Caral]]

Hola
Podéis creer que lo hice varias veces y me dio errores, bueno, algo estaba mal hecho eso seguro.
Gracias amigo, me parecia que con un array era mas interesante así que lo intente.
Esto de los arrays me tiene malo, algún día aprenderé.
Saludos

[JoseFco]

Gracias egostar, Caral y Delphius.

El codigo de egostar esta trabajando bien.

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 Showmessage('Este programa no soporta ese valor');  
end;
end;

Los colores y el shape solo son para poder entender mejor la idea, que es a partir de una costante que se tendra que poner en un edit o en un ComboBox poder selecionar que mandare a algun lugar ( por ejemplo serial port).Que mi programita tome en cuenta que parametros estoy poniendo para el determinar un camino.
Creo que un combobox es mas elegante y de una vez solo pondre los valores que quiro tener, o que soportara mi programita.

Un Saludo y mil gracias por la ayuda.

[JoseFco]

Hola amigos.

Googleando un poco encontre esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var dia:integer;
begin
  dia:=DayOfWeek(date);
case dia of
  1:Showmessage('Domingo');
  2:Showmessage('Lunes');
  3:Showmessage('Martes');
  4:Showmessage('Miércoles');
  5:Showmessage('Jueves');
  6:Showmessage('Viernes');
  7:Showmessage('Sábado');
  else
  Showmessage('Imposible');
  end;
end;

Esto me ayuda a entender algunas de las cosas que estoy estudiando.

Un Saludo.

[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.

[[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.