XLSReadWriteII5使用示例

之前一直是使用XLSReadWriteII4，今天更新到XLSReadWriteII5，测试了一下，发现一些操作变化比较大，现将XLSReadWriteII5的使用示例写一下，以下是代码和生成的excel表格的效果：

 procedure TForm1.Button1Click(Sender: TObject);
 var
   i, n: Integer;
   XLS: TXLSReadWriteII5; // 引用XLSReadWriteII5, Xc12DataStyleSheet5, ShellAPI
 begin
   XLS := TXLSReadWriteII5.Create(nil);
   try
     XLS.Clear;
     XLS.FileName := ExtractFilePath(paramstr()) + 'temp.xls';
     for i :=  to  do
       XLS.Sheets[].AsString[i, ] := '标题' + IntToStr(i + );
     for i :=  to  do
       for n :=  to  do
         XLS.Sheets[].AsString[i, n] := IntToStr(i + ) + ':' + IntToStr(n);

     for i :=  to  do // XLS.Sheets[0].LastCol do // 从第一列到最后一列
     begin
       for n :=  to  do // 从第一行到最后一行
       begin
         XLS.Sheets[].Range.Items[i, n, i, n].BorderOutlineStyle := cbsThin;
         XLS.Sheets[].Range.Items[i, n, i, n].BorderOutlineColor := ; // 黑色#0
         if n =  then
         begin
           XLS.Sheets[].Cell[i, n].CellColorRGB := ; // 橘黄#FF8000
           XLS.Sheets[].Cell[i, n].FontColor := ; // 白色#FFFFFF
         end
         else
           XLS.Sheets[].Cell[i, n].CellColorRGB := ; // 杏仁灰#FFFFCD
       end;
       XLS.Sheets[].AutoWidthCol(i); // 每列为自动宽度
     end;
     XLS.Write;
     ShellExecute(, 'Open', PChar(ExtractFilePath(paramstr()) + 'temp.xls')
       , nil, nil, SW_SHOW);
   finally
     XLS.Free;
   end;
 end;

转自：http://www.offeu.com/www/index_id_144.html