Como convertir un valor TColor en string para guardarlo en BD

[darkamerico]

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

[darkamerico]

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

[Casimiro Noteví]

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

[delphi.com.ar]

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


Enviado desde mi StarTAC 1300

[Casimiro Noteví]

Tanto tiempo

Empezado por delphi.com.ar

Sin dudas lo guardaría como un entero como dice Casimiro.
Enviado desde mi StarTAC 1300

[ecfisa]

Hola darkamerico.

Empezado por darkamerico

...
Ya que no existe la funcion ColorToStr() ni StrToColor().
...

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

• ColorToString
• StringToColor

Saludos