本站首页    管理页面    写新日志    退出


«August 2025»
12
3456789
10111213141516
17181920212223
24252627282930
31


公告
================

注会练习软件
http://www.cpasoft.com.cn
我的注会软件官网

http://blog.163.com/abc7105@126/

 

 


哈哈,热爱快“过气”的DELPHI


我的分类(专题)

日志更新

最新评论

留言板

链接

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




[delpih编程]delphi中pagecontrol隐藏其中某一页
软件技术

吕向阳 发表于 2010/6/1 12:38:03

PageControl1.Pages[0].TabVisible := true;
PageControl1.Pages[1].TabVisible := false;

注意到这里是 tabvisible而不是visible


阅读全文(2022) | 回复(0) | 编辑 | 精华 | 删除
 


[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格式


阅读全文(1135) | 回复(0) | 编辑 | 精华 | 删除
 


[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;

阅读全文(1033) | 回复(0) | 编辑 | 精华 | 删除
 


[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;

阅读全文(1213) | 回复(0) | 编辑 | 精华 | 删除
 


[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

阅读全文(1378) | 回复(0) | 编辑 | 精华 | 删除
 


[delpih编程]DELPHI中测试你按下键盘的键值 ASCII
软件技术

吕向阳 发表于 2010/4/9 16:14:01

在某控件的KEYPRESSG事件中加入

ShowMessage(IntToStr(Ord(Key)));

编译后运行,在相应控件上按下键盘得到键值,免得到处查书。

阅读全文(1025) | 回复(0) | 编辑 | 精华 | 删除
 


« 1 2 3 4 5 6 7 8 9 10 »



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.332 second(s), page refreshed 144753575 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号