String a TColor

[mr_pascale]

Hola!.

Les comento mi consulta.

Estoy trabajando con un calendario (mxCalendar), haciendo un pequeño sistema de inasistencias. Tengo una tabla con los motivos de la inasistencia donde almaceno el nombre y el color con el que la voy a mostrar en el calendario.
Cuando quiero mostrar la fecha con el color del motivo hago
Código Delphi [-]...
var AColor:TColor;
...
AColor:=dm.qryInasistencias.FieldByName('COLOR').asstring; //el datos es clGreen;



Y ahi me muestra error. No se como hacer la transformación del dato.


Alguna sugerencia?

Muchas Gracias!!

[[enecumene]]

Saludos y cual es el error que te da?.

Saludos.

[[enecumene]]

Bueno, puedes hacer algo asi, no se si te funcionara:

Código Delphi [-]
var
  Color: Integer;

begin
  IdentToColor(''+dm.qryInasistencias.Fields[0].asstring+'', Color);
  Self.Color := Color;
end;

Saludos.

[*Caro*]

Hola mr_pascale, puedes usar StringToColor para convertir de String a TColor.

Código Delphi [-]
var AColor:TColor;
...
AColor:=StringToColor(dm.qryInasistencias.FieldByName('COLOR').asstring);  //el datos es clGreen;

Saluditos

[mr_pascale]

Enecumene, Caro, Muchísimas gracias por sus sugerencias.

Probé ambas y funcionaron perfectamente, me quedé con la opción de la función StringToColor() ya que fue lo que intenté originalmente solo que probé con strtocolor() que no existe.

Excelentes respuestas las dos.

De nuevo, Muchísimas Gracias!