Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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;
|Performance of SQL statement||37||128|
|Moving (cutting/pasting) controls in a TTabbedNotebook...||7||44|
|MS Access from Delphi||31||61|
|Problem working with dynamic array - help||2||7|