Tema: Leer un edit
Ver Mensaje Individual
  #3  
Antiguo 17-03-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
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?.
Código Delphi [-]
const
 Col : array[1..4] of string = ('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
  edit2.Text:= (''+Col[i]);
 // aqui es donde no me sale, pues por supuesto no reconoce el array en el Color.
  Shape1.Brush.Color := (''+Col[i]);
end;
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
Responder Con Cita