Convertir AnsiString en TColor

Bonjour
SVP,
qui saurais comment convertir cet AnsiString en TColor

Code:

---

1 2	Shape1->Brush->Color = registre->ReadString("clé1");

---

ceci donne l'erreur suivante
imposible de convertir AnsiString en TColor.

j'ai trifouiller un peut tout ca dans tous les sens mais je trouve pas.
Merci et A++

Citation:

---

Envoyé par Nul+

Bonjour
SVP,
qui saurais comment convertir cet AnsiString en TColor

Code:

---

1 2	Shape1->Brush->Color = registre->ReadString("clé1");

---

ceci donne l'erreur suivante
imposible de convertir AnsiString en TColor.

j'ai trifouiller un peut tout ca dans tous les sens mais je trouve pas.
Merci et A++

---

Avec un cast ca ne fonctionne pas ?

Code:

---

1 2	Shape1->Brush->Color = (TColor)registre->ReadString("clé1");

---

Bonsoir et Merci pour ton aide Pottiez

non, ca marche pas, voici l'erreur:
cannot cast from 'AnsiString' to 'TColor'

Merci et A++

J'ai vu dans la FAQ que un TColor était pris pour un int...

Donc si c'est le cas pourquoi ne pas faire ainsi :
-> conversion StrToInt
-> puis casting TColor

J'ai testé et j'obtiens aucune erreur avec ce code :

Code:

---

(TColor) StrToInt(Edit1->Text)

---

Salut !

Code:

---

Shape1->Brush->Color = (TColor)registre->ReadString("clé1").ToInt();

---

C'est viable si le contenu de l'AnsiString représente un nombre (ici un COLORREF) sous sa forme littérale.

A plus !

Bonjour a tous
Merci beaucoup Kerod et a Henderson

J'ai patiner dans le semoule car j'avait oublier de declarer
registre->RooKey et aussi registre->OpenKey, defois j'oublie ?

Je m'en suis appercu grace a ton code Kerod car persuadé que celui ci marchais, j'ai chercher ailleur.

Code:

---

1 2 3 4 5 6

TRegistry *RegCleColor = new TRegistry(); RegCleColor->RootKey = HKEY_LOCAL_MACHINE; RegCleColor->OpenKey("SOFTWARE\\wSearch", false); Shape1->Brush->Color = (TColor)StrToInt(RegCleColor->ReadString("TabInternetColorVR1")); delete RegCleColor;

---

Un Grand MERCI Kerod et a Henderson et A++

Bonsoir
Excuse Henderson, j'ai rater ton code de 12H53, Il m'a echapper, le lien ma conduit directement a celui du bas, celui de Kerod.

Je te remerci pour ton aide, je vais quand meme tester ton code,
Toujours bon a avoir du code qui marche.

Un Tres Grand MERCI et A++