XLSReadWriteII控件来完成10×10的乘法表

Delphi编程保存数据到Excel文件(3)：使用XLSReadWriteII控件

今天采用XLSReadWriteII控件来完成10×10的乘法表，发现它很灵活，实现的功能比较多，基本能满足所以的需求。

代码片断如下：
procedure TForm1.Button1Click(Sender: TObject); Var i,j:Integer; begin XLS.Sheets[0].Name:= 'Ten times table(乘法表)'; //给工作表命名

//General settings 常规的格式设置 With XLS.Sheet[0].Range.ItemsRef['B2:M14'] do begin FontSize := 12; FontStyle:= [xfsBold];

FillPatternForeColor := TExcelColor(45); HorizAlignment:=chaCenter; end;

//Title 标题 With XLS.Sheet[0].Range.ItemsRef['B2:M2'] do begin Merged:=true; HorizAlignment:=chaCenter; FontSize := 14; end; XLS.Sheet[0].AsStringRef['B2'] := 'Ten Times Table(乘法表)';

//columns header 列头 With XLS.Sheet[0].Range.ItemsRef['C3:M3'] do begin FillPatternForeColor := TExcelColor(53); //Interior.ColorIndex := 53; FontColor := xcWhite; end;

//rows header 行头 With XLS.Sheet[0].Range.ItemsRef['B4:B14'] do begin FillPatternForeColor := TExcelColor(53); FontColor := xcWhite; end;

//Table values 表内值 for j := 0 to 10 do begin //循环各列 //column header 列头 (先列后行 基于0开始) XLS.Sheets[0].AsInteger[2+j, 2] := j; //row header 行头 (先列后行 基于0开始) XLS.Sheets[0].AsInteger[1,3+j]:= j; //time table 表内值 for i := 0 to 10 do begin //循环各行 XLS.Sheets[0].AsInteger[2+j,3+i]:= i * j; end; end;

XLS.Filename := 'TenTimesTable.xls'; //保存到文件 XLS.Write; MessageDlg('TenTimesTable.xls is created', mtInformation, [mbOk], 0);

end;