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:

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-String-Conversion-function-in-Delphi

[Casimiro Notevi]

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 Notevi]

||-|| Tanto tiempo :)
Sin dudas lo guardaría como un entero como dice Casimiro.
Enviado desde mi StarTAC 1300

[ecfisa]

Hola 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 (http://docwiki.embarcadero.com/Libraries/XE3/en/Vcl.Graphics.ColorToString)
StringToColor (http://docwiki.embarcadero.com/Libraries/XE3/en/Vcl.Graphics.StringToColor)

Saludos :)