Blog信息 |
blog名称:注册会计师(注会)练习软件 日志总数:398 评论数量:116 留言数量:27 访问次数:3265621 建立时间:2005年6月6日 |

| |
[delpih编程]Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名1、文件名函数 软件技术
吕向阳 发表于 2010/5/27 14:03:37 |
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名1、文件名 函数 文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进 行操作。下表列出这些函数及其功能。 本文出处:南山古桃(nsgtao)的百度空间 函数 说明 ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名 ExtractFileDir() 从文件名中抽取目录名 ExtractFileDrive() 从文件名中抽取驱动器名 ChangeFileExt() 改变文件的扩展名 ExpandUNCFileName() 返回含有网络驱动器的文件全路径 ExtractRelativePath() 从文件名中抽取相对路径信息 ExtractShortPathName() 把文件名转化为DOS的8·3格式
|
|
[delpih编程]DELPHI对EXCEL表格中数据的行列全循环处理 软件技术
吕向阳 发表于 2010/5/22 17:12:30 |
var i, j: integer; begin for i := 1 to eclapp.activesheet.usedrange.rows.count do for j := 1 to eclapp.activesheet.usedrange.columns.count do begin showmessage(eclapp.activesheet.usedrange.rows[i].cells [j]) end;
end;
|
|
[delpih编程]delphi操作excel 自我心得 软件技术
吕向阳 发表于 2010/5/22 16:42:52 |
1、解除当前表格所有的合并单元格 eclapp.activesheet.usedrange.unmerge; 重点在UNmerge为取消合并单元格
2、从一个表格复制到另一个表格 sourceworkbook.activesheet.usedrange.copy (WorkBook.activesheet.range['a' + trim(inttostr(allrec))]);
sourceworkbook为源表格 workbook为目标表格
3、工作簿内表格数量 eclapp.worksheets.count
4、sourceworkbook.activesheet.usedrange.rows.count 已有数据区域的行数
将row 改为columns为列数
5、为表格着背景色 WorkBook.activesheet.range['a1'].Interior.ColorIndex := 3;
|
|
[delpih编程]自已编写的一段合并多个EXCEL文件到一个新EXCEL文件的程序 软件技术
吕向阳 发表于 2010/5/22 16:36:14 |
unit excel01; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj; {ComObj是操作OLE 对象的函数集} type TForm1 = class(TForm) Button1: TButton; Button2: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); priva |
|
|