delphi 颜色

第一步, 先从 Delphi 的源文件中提取并替换出下面的文本文件:
clBlack=$000000
clMaroon=$000080
clGreen=$008000
clOlive=$008080
clNavy=$800000
clPurple=$800080
clTeal=$808000
clGray=$808080
clSilver=$C0C0C0
clRed=$0000FF
clLime=$00FF00
clYellow=$00FFFF
clBlue=$FF0000
clFuchsia=$FF00FF
clAqua=$FFFF00
clLtGray=$C0C0C0
clDkGray=$808080
clWhite=$FFFFFF
clMoneyGreen=$C0DCC0
clSkyBlue=$F0CAA6
clCream=$F0FBFF
clMedGray=$A4A0A0
clWebSnow=$FAFAFF
clWebFloralWhite=$F0FAFF
clWebLavenderBlush=$F5F0FF
clWebOldLace=$E6F5FD
clWebIvory=$F0FFFF
clWebCornSilk=$DCF8FF
clWebBeige=$DCF5F5
clWebAntiqueWhite=$D7EBFA
clWebWheat=$B3DEF5
clWebAliceBlue=$FFF8F0
clWebGhostWhite=$FFF8F8
clWebLavender=$FAE6E6
clWebSeashell=$EEF5FF
clWebLightYellow=$E0FFFF
clWebPapayaWhip=$D5EFFF
clWebNavajoWhite=$ADDEFF
clWebMoccasin=$B5E4FF
clWebBurlywood=$87B8DE
clWebAzure=$FFFFF0
clWebMintcream=$FAFFF5
clWebHoneydew=$F0FFF0
clWebLinen=$E6F0FA
clWebLemonChiffon=$CDFAFF
clWebBlanchedAlmond=$CDEBFF
clWebBisque=$C4E4FF
clWebPeachPuff=$B9DAFF
clWebTan=$8CB4D2
clWebYellow=$00FFFF
clWebDarkOrange=$008CFF
clWebRed=$0000FF
clWebDarkRed=$00008B
clWebMaroon=$000080
clWebIndianRed=$5C5CCD
clWebSalmon=$7280FA
clWebCoral=$507FFF
clWebGold=$00D7FF
clWebTomato=$4763FF
clWebCrimson=$3C14DC
clWebBrown=$2A2AA5
clWebChocolate=$1E69D2
clWebSandyBrown=$60A4F4
clWebLightSalmon=$7AA0FF
clWebLightCoral=$8080F0
clWebOrange=$00A5FF
clWebOrangeRed=$0045FF
clWebFirebrick=$2222B2
clWebSaddleBrown=$13458B
clWebSienna=$2D52A0
clWebPeru=$3F85CD
clWebDarkSalmon=$7A96E9
clWebRosyBrown=$8F8FBC
clWebPaleGoldenrod=$AAE8EE
clWebLightGoldenrodYellow=$D2FAFA
clWebOlive=$008080
clWebForestGreen=$228B22
clWebGreenYellow=$2FFFAD
clWebChartreuse=$00FF7F
clWebLightGreen=$90EE90
clWebAquamarine=$D4FF7F
clWebSeaGreen=$578B2E
clWebGoldenRod=$20A5DA
clWebKhaki=$8CE6F0
clWebOliveDrab=$238E6B
clWebGreen=$008000
clWebYellowGreen=$32CD9A
clWebLawnGreen=$00FC7C
clWebPaleGreen=$98FB98
clWebMediumAquamarine=$AACD66
clWebMediumSeaGreen=$71B33C
clWebDarkGoldenRod=$0B86B8
clWebDarkKhaki=$6BB7BD
clWebDarkOliveGreen=$2F6B55
clWebDarkgreen=$006400
clWebLimeGreen=$32CD32
clWebLime=$00FF00
clWebSpringGreen=$7FFF00
clWebMediumSpringGreen=$9AFA00
clWebDarkSeaGreen=$8FBC8F
clWebLightSeaGreen=$AAB220
clWebPaleTurquoise=$EEEEAF
clWebLightCyan=$FFFFE0
clWebLightBlue=$E6D8AD
clWebLightSkyBlue=$FACE87
clWebCornFlowerBlue=$ED9564
clWebDarkBlue=$8B0000
clWebIndigo=$82004B
clWebMediumTurquoise=$CCD148
clWebTurquoise=$D0E040
clWebCyan=$FFFF00
clWebAqua=$FFFF00
clWebPowderBlue=$E6E0B0
clWebSkyBlue=$EBCE87
clWebRoyalBlue=$E16941
clWebMediumBlue=$CD0000
clWebMidnightBlue=$701919
clWebDarkTurquoise=$D1CE00
clWebCadetBlue=$A09E5F
clWebDarkCyan=$8B8B00
clWebTeal=$808000
clWebDeepskyBlue=$FFBF00
clWebDodgerBlue=$FF901E
clWebBlue=$FF0000
clWebNavy=$800000
clWebDarkViolet=$D30094
clWebDarkOrchid=$CC3299
clWebMagenta=$FF00FF
clWebFuchsia=$FF00FF
clWebDarkMagenta=$8B008B
clWebMediumVioletRed=$8515C7
clWebPaleVioletRed=$9370DB
clWebBlueViolet=$E22B8A
clWebMediumOrchid=$D355BA
clWebMediumPurple=$DB7093
clWebPurple=$800080
clWebDeepPink=$9314FF
clWebLightPink=$C1B6FF
clWebViolet=$EE82EE
clWebOrchid=$D670DA
clWebPlum=$DDA0DD
clWebThistle=$D8BFD8
clWebHotPink=$B469FF
clWebPink=$CBC0FF
clWebLightSteelBlue=$DEC4B0
clWebMediumSlateBlue=$EE687B
clWebLightSlateGray=$998877
clWebWhite=$FFFFFF
clWebLightgrey=$D3D3D3
clWebGray=$808080
clWebSteelBlue=$B48246
clWebSlateBlue=$CD5A6A
clWebSlateGray=$908070
clWebWhiteSmoke=$F5F5F5
clWebSilver=$C0C0C0
clWebDimGray=$696969
clWebMistyRose=$E1E4FF
clWebDarkSlateBlue=$8B3D48
clWebDarkSlategray=$4F4F2F
clWebGainsboro=$DCDCDC
clWebDarkGray=$A9A9A9
clWebBlack=$000000

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{这是专为这个表写的一个转换函数}
function HexColorToHtmlColor(s: string): string;
var
  i: Integer;
  R,G,B: Byte;
begin
  i := StrToInt(s);
  R := i and $FF;
  G := (i shr 8) and $FF;
  B := (i shr 16) and $FF;
  Result := #35 + Format(‘%.2x%.2x%.2x‘,[R,G,B]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  i: Integer;
  s1,s2,s3: string;
begin
  List := TStringList.Create;
  List.LoadFromFile(‘c:\temp\Delphi.txt‘);

  for i := 0 to List.Count - 1 do
  begin
    s1 := List.Names[i];
    s2 := List.ValueFromIndex[i];
    s3 := HexColorToHtmlColor(s2);
    List[i] := ‘<tr><td>‘ + s1 +
      ‘</td><td style=" "> + s3 +
      ‘"></td><td>‘ + s2 + ‘</td><td>‘ + s3 + ‘</td></tr>‘;
  end;

  List.SaveToFile(‘c:\temp\Html.txt‘);
  List.Free;
end;

end.

引自：http://www.cnblogs.com/del/archive/2008/02/19/1073568.html