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="background-color:' + s3 +
      '"></td><td>' + s2 + '</td><td>' + s3 + '</td></tr>';
  end;

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

end.