Discussion :

[winow]

Bonjour
SVP,
qui saurais comment convertir cet AnsiString en TColor

Code :

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

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++

[pottiez]

Bonjour
SVP,
qui saurais comment convertir cet AnsiString en TColor

Code :

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

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 :

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

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

[winow]

Bonsoir et Merci pour ton aide Pottiez

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

Merci et A++

[Kerod]

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 :

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

(TColor) StrToInt(Edit1->Text)

[henderson]

Salut !

Code :

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

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 !

[winow]

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 :

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

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++

[winow]

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++