Cita:
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