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