Comment puis-je convertir une chaîne en une valeur TColor?

Je suis entrain de créer un Delphi forme et que vous souhaitez affecter la couleur de fond sur le moment de l'exécution. Ce code:

Form1.Color := clSkyBlue;

fonctionne bien. Mon problème est que j'ai stocké le nom de la couleur dans un tableau comme une chaîne de caractères. Donc, quand j'ai récupérer le nom de la couleur de la table et de l'attribuer à Form1.Colorla déclaration ci-dessus devient:

var
  ColorName: string;
....
Form1.Color := ColorName;

et il en résulte une erreur de compilation.

Comment puis-je convertir une chaîne en un TColor valeur?

source d'informationauteur

  1. 21

    Vous pouvez utiliser les fonctions de conversion (les deux œuvres avec des constantes de couleur):

    • la StringToColor fonction utiliser pour traduire une représentation sous forme de chaîne d'une couleur à TColor valeur
    • la ColorToString fonction utiliser lorsque vous avez besoin de traduire TColor de la valeur à une représentation de chaîne

    Dans votre cas, vous devez utiliser le StringToColor fonction:

    Form1.Color := StringToColor('clSkyBlue');