Discussion :

[Harry]

Bonjour,

Voici mon souci : j'aimerais sauvegarder des couleurs dans un champ de ma base de données.
J'aimerais pouvoir y mettre nimporte quel couleur (j'ai fait une palette) donc plutot que de faire un truc genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if color = clRed then coul.AsInteger := 2;

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if coul = 2 then color := clRed;
if coul = 3 then color := $004080FF

(ou coul serait le champ et color la propriété color d'un compo)
etc..
j'aimerais plustôt enregistrer directement la valeur $004080FF dans la base, en fesant un truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Coulcol6.AsString := Choisi.Brush.Color;

sauf que je me confronte a la différence de types entre le champ type 'String' de la bdd et le TColor auquel correspond la couleur.

Vous feriez comment pour stoquer vos couleurs?

[cmen76]

ColorToString et StringToColor devraient faire l'affaire...

[Harry]

Ahh, oui effectivement, c'est bon

Merci beaucoup