Como convertir un valor TColor en string para guardarlo en BD
 

Saludos amigos, estoy tomando un color desde un componente TcxColor que tiene elementos del tipo TColor: clYellow, clRed, etc...
deseo almacenar el color elegido en un campo string para luego reproducirlo. Ya que no existe la funcion ColorToStr() ni StrToColor().

Atte

Americo

Solucionado
 

La solucion era la siguiente:

Código Delphi [-]
function String2Color(s: string): TColor;
begin
  s := 'cl' + s;
  Result := StringToColor(s);
end;

function Color2String(Color: TColor): string;
begin
  Result := LowerCase(ColorToString(Color));
  if Copy(Result, 1, 2) = 'cl' then
    Delete(Result, 1, 2);
end;

Espero que sea de utilidad.

Fuente: http://www.everyething.com/Different...tion-in-Delphi

Color es un valor entero normal y corriente, puedes almacenarlo tal cual.
También puedes usar la función colortostring

Sin dudas lo guardaría como un entero como dice Casimiro.


Enviado desde mi StarTAC 1300

||-|| Tanto tiempo :)

Hola darkamerico.
Solo para aclarar que, si bién no se llaman de ese modo, las funciones si existen:

• ColorToString
• StringToColor

Saludos :)