Conversion String To Color

**ddubois** · 23/06/2008, 19h28

J'utilise cette fonction qui permet de récuperer le nom d'une couleur à partir de sa valeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function ColorToString(Color: TColor): string;
begin
 for I := Low(Colors) to High(Colors) do
   With Colors[i] do
   if Value = Color then
   Begin
     Result := Name;
     Exit;
   End;
 //Pas dans la liste, retourne valeur hexa :
 Result := '$'+IntToHex(Color, 8);
end;

mais j'ai maintenant besoin de la routine inverse pour récupérer la valeur à partir du nom de la couleur :

Code :

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

1
2
3
4
5
 
function StringToColor(const S: string): TColor;
begin
...
end;

Merci beaucoup.

**ShaiLeTroll** · 23/06/2008, 19h34

C'est la réciproque, c'est pas non plus compliqué que ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function StringToColor(const S: string): TColor;
begin
 for I := Low(Colors) to High(Colors) do
   With Colors[i] do
   if S = Name then
   Begin
     Result := Color;
     Exit;
   End;
  ...
end;

ou encore, puisque c'est la suite de message des couleurs en français

faut utiliser IntToIdent et IdentToInt, c'est fait pour !

Code :

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

1
2
3
4
5
6
7
8
9
function StringToColor(const S: string): TColor;
var
  I: Longint;
begin
  if IdentToInt(S, I, Colors) then
    Result := I
  else
  ...
end;