Come posso convertire una stringa in un valore TColor?

Question

Sto creando una forma Delphi e desidera assegnare il colore di sfondo ad esso sul tempo di esecuzione. Questo codice:

Form1.Color := clSkyBlue; 

funziona bene. Il mio problema è che ho memorizzato il nome del colore in una tabella come una stringa. Così, quando vado a prendere il nome del colore dal tavolo e assegnarlo a Form1.Color, la dichiarazione di cui sopra diventa:

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

e questo si traduce in un errore di compilazione.

Come posso convertire una stringa in un valore TColor?

Answer 1

È possibile utilizzare le seguenti funzioni di conversione (entrambe le opere con costanti di colore):

• l'uso StringToColor funzione di tradurre una rappresentazione di stringa di un colore per TColor valore
• l'uso ColorToString funzione quando è necessario di tradurre TColor valore ad una rappresentazione di stringa

Nel tuo caso è necessario utilizzare la funzione StringToColor:

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