Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
function HexToTColor(sColor: string): TColor; begin // sColor begins with $00 so trim sColor to the last 6 chars if length(sColor) < 6 then sColor := 'FFFFFF' else sColor := rightStr(sColor, 6); Result := RGB(StrToInt('$'+Copy(sColor, 1, 2)), StrToInt('$'+Copy(sColor, 3, 2)), StrToInt('$'+Copy(sColor, 5, 2)) ); end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.