Delphi文件流导出EXCEL的一段简单代码, 效率非常高啊，抛弃oleObject

unit Unit1;


interface


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


type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  CXlsBof: Array[0..5] Of Word = ($809, 8, 0, $10, 0, 0); 
  CXlsEof: Array[0..1] Of Word = ($0A, 00);
  CXlsLabel: Array[0..5] Of Word = ($204, 0, 0, 0, 0, 0);
  CXlsNumber: Array[0..4] Of Word = ($203, 14, 0, 0, 0);
  CXlsRk: Array[0..4] Of Word = ($27E, 10, 0, 0, 0);
implementation


{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var
  I, N, Count: integer;
  FileStream: TFileStream;
  FRow, FCol: Integer;


  Procedure WriteFloat(Const AValue: String);
  Var
    V: Double;
  Begin
    If AValue = &