delphi中XLSReadWrite控件的使用(3)---基本应用
2014-10-18 15:46
513 查看
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XLSReadWriteII4, XLSFonts4, CellFormats4, BIFFRecsII4; type TfrmMain = class(TForm) Label1: TLabel; Button1: TButton; edFilename: TEdit; Button2: TButton; Button3: TButton; dlgSave: TSaveDialog; XLS: TXLSReadWriteII4; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private procedure AddFormats; public { Public declarations } end; var frmMain: TfrmMain; implementation {$R *.dfm} procedure TfrmMain.AddFormats; begin (*Format a single cell*) (* 显示字符串 *) XLS.Sheets[0].AsString[0,1] := 'Cell 1'; (* 字符串颜色 *) XLS.Sheets[0].Cell[0,1].FillPatternForeColor := xcYellow; (* 字体 *) XLS.Sheets[0].Cell[0,1].FontStyle := [xfsBold,xfsItalic]; (*Format a number cell (3 decimals and thousand separator) (* 格式化字符串,显示小数点后三位,千位和百位之间加个空格 *) XLS.Sheets[0].AsFloat[0,0] := 12335985394.895634; XLS.Sheets[0].Cell[0,0].NumberFormat := '# ##0.000'; (* Write a string cell. *) XLS.Sheet[0].AsStringRef['C2'] := 'Hello'; (* 单元格赋值 *) (* Set the font size of the cells in the area. (* 改变区域内的字体大小 *) XLS.Sheet[0].Range.Items[1,0,3,3].FontSize := 14; (* Set the color of the cells. *) (* 设置区域的颜色 *) XLS.Sheet[0].Range.ItemsRef['B1:D4'].FillPatternForeColor := xcYellow; (* Set a outline border. *) (* 设置外框线的外形、颜色 *) XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineStyle := cbsThick; (* Set color of the outline border. *) XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineColor := xcRed; (* Make a copy of the cells. *) (* 区域复制 *) XLS.Sheet[0].Range.ItemsRef['B1:D4'].Copy(8,10); (* Move the cells. *) (* 区域移动 *) XLS.Sheet[0].Range.ItemsRef['B1:D4'].Move(8,2); end; procedure TfrmMain.Button1Click(Sender: TObject); begin AddFormats; XLS.Filename := edFilename.Text; (* 保存文件 *) XLS.Write; end; procedure TfrmMain.Button2Click(Sender: TObject); begin dlgSave.FileName := edFilename.Text; if dlgSave.Execute then edFilename.Text := dlgSave.FileName; end; procedure TfrmMain.Button3Click(Sender: TObject); begin Close; end; end.
相关文章推荐
- delphi中XLSReadWrite控件的使用(3)---基本应用
- 转 Delphi中XLSReadWrite控件的使用(2)---基本应用
- [转载]: delphi中XLSReadWrite控件的使用(3)---基本应用
- delphi中XLSReadWrite控件的使用(1)---简介
- 转Delphi中XLSReadWrite控件的使用(3) 读和写Excel
- [转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- 转Delphi中XLSReadWrite控件的使用(1)---简介
- delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- delphi中XLSReadWrite控件的使用(1)---简介
- [转载]: delphi中XLSReadWrite控件的使用(1)---简介
- delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
- 如何使用XlsReadWriteII在Delphi中读取Excel文件
- Delphi中使用XlsReadWriteII
- 【开源】QuickPager ASP.NET2.0分页控件——使用示例、基本应用和查询功能
- Excel读写方案XLSReadWriteII使用技巧总结
- 基本IO函数的使用(open,write,read)
- APUE之open,read,write,close函数应用,制作基本的makefile。
- XLSMini控件是XLSReadWriteII的简版可读写Excel单元格的值
- XLSReadWriteII 使用
- 基本IO函数的使用(open,write,read)