2012 年 12月 4 日随笔档案 - 为人民服务

2012年12月4日

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

摘要：这个控件非常好，非常的简捷，尤其是Range对象操作使用起来非常方便，值得推荐。代码片断如下：procedure TForm1.Button1Click(Sender: TObject); Var Book: IXLSWorkbook; //申明工作薄 ws: IXLSWorksheet; //申明工作表 i, j: integer; begin //Create workbook 创建工作薄 Book := TXLSWorkbook.Create; //Add new sheet 在工作薄中加一个新的工作表 ws := Book.Sheets.Add; ws.Name :=... 阅读全文

posted @ 2012-12-04 20:23 为人民服务阅读(1833) 评论(0) 推荐(0)

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. 阅读全文

posted @ 2012-12-04 20:14 为人民服务阅读(618) 评论(0) 推荐(0)

Delphi中取得汉字的首字母

摘要： function Tdm.GetHzPy(const AHzStr: string): string;const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000), (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (37 阅读全文

posted @ 2012-12-04 19:45 为人民服务阅读(369) 评论(0) 推荐(0)