Conversion String To Color
J'utilise cette fonction qui permet de récuperer le nom d'une couleur à partir de sa valeur :
Code:
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:
1
2
3
4
5
|
function StringToColor(const S: string): TColor;
begin
...
end; |
Merci beaucoup.
