|
||
|
摘要：
调试程序，总是报出---------------------------Debugger Exception Notification---------------------------Project raised exception class EConvertError with message ''1/50' 是无效的浮点指针值。'. Process stopped. Use Step or Run to continue.---------------------------OK Help ---------------------------查找原因 阅读全文
posted @ 2013-05-31 13:20 ╰★张志峰★╮ 阅读(1403) 评论(0) 推荐(0) 编辑
摘要：
cxTreeList添加行号(2011-11-17 15:59:38)转载与cxGrid添加行号类似： 1.将TcxTreeList的OptionsView --> Indicator设置为true，另也可在这将indicatorWidth根据自己需要设置 2.添加OnCustomDrawIndic 阅读全文
posted @ 2013-05-28 10:38 ╰★张志峰★╮ 阅读(615) 评论(0) 推荐(0) 编辑
摘要：
1.TcxTreeList添加Bands；2.对TcxTreeList中的Column所属band进行修改，通过属性Position --> BandIndex 进行修改3.对Band的FixedKind属性进行修改4.对分割线颜色和宽度的控制：TcxTreeList属性OptionView --> FixedSeparatorColor 以及 FixedSeparatorWidth 属性进行设置Dev控件memo中有例子：BandedDemo 阅读全文
posted @ 2013-05-28 10:37 ╰★张志峰★╮ 阅读(410) 评论(0) 推荐(0) 编辑
摘要：
1.添加TcxStyleRepository控件，在该控件中添加一个样式，如QdStyle2.对QdStyle样式设置字体、颜色等3.对TcxTreeList添加事件：OnGetContentStyle事件4.在该事件中添加相应的函数： 如：我将level=0的node的样式设为QdStyle if (ANode <> nil) and (ANode.Level =0) then AStyle := QdStyle; 阅读全文
posted @ 2013-05-28 10:36 ╰★张志峰★╮ 阅读(662) 评论(0) 推荐(0) 编辑
摘要：
这个问题折腾了我好久，一开始我想通过函数来实现，可是怎么写都没有办法实现编辑和选中的改变，后来已经没啥想法了，才转回来想会不会有这么一个属性可以改变，结果找了找属性，还真让我找着了，就是不知道该高兴呢，还是气自己笨呢，心情好生复杂啊，再此记录，以防以后忘掉修改属性设置：TcxTreeList的OptionBehavior --> ImmediateEditor 设为false若想点击一单元格时选中整个node，属性设置为：TcxTreeList的OptionSelection --> InvertSelect设为True也许其他控件也有类似属性，若有该功能需求，可先查看一下是否可通 阅读全文
posted @ 2013-05-28 10:34 ╰★张志峰★╮ 阅读(654) 评论(0) 推荐(0) 编辑
摘要：
Delphi Excel导入 的通用程序 .分类： delphi 2012-09-24 18:20 257人阅读 评论(0) 收藏 举报 exceldelphiinteger数据库c步骤:1 连excel(自己知道其格式,最好是没个字段在数据一一对应)2 读excel数据,填入到数据库我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复),你可以参考下procedure TForm_qyxxcx.BitBtn2Click(Sender: TObject);VAR I,J:INTEGER; col,row:intege 阅读全文
posted @ 2013-05-24 13:54 ╰★张志峰★╮ 阅读(5257) 评论(0) 推荐(0) 编辑
摘要：
Delphi Excel导入 的通用程序 .分类： delphi 2012-09-24 18:19 127人阅读 评论(0) 收藏 举报 exceldelphiintegerprocedure TForm1.btnClick(Sender: TObject);begin OpenDialog1.Title := '请选择正确的excel文件'; OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; if OpenDialog1.Execute then edit1.Text := OpenDialog1.FileName;end 阅读全文
posted @ 2013-05-24 13:52 ╰★张志峰★╮ 阅读(2850) 评论(0) 推荐(0) 编辑
摘要：
delphi程序只允许运行一个实例的三种方法：一、 创建互斥对象 在工程project1.dpr中创建互斥对象Program project1UsesWindows,Form,FrmMain in 'FrmMain.pas' {MainForm}; {$R *.res} var hAppMutex: THandle; //声明互斥变量 begin hAppMutex := CreateMutex(nil, false,’projectname’); //创建互斥对象projectname工程名称 if ( (hAppMutex <> 0) and (GetLastE 阅读全文
posted @ 2013-05-24 13:50 ╰★张志峰★╮ 阅读(847) 评论(0) 推荐(1) 编辑
摘要：
2011-08-30 18:28 85人阅读 评论(0) 收藏 举报string测试c代码从csdn复制，未做测试view sourceprint?public static class ChineseNumberUtil { /// <summary> /// 将中文数字转换成阿拉伯数字 /// </summary> /// <param name="cnNumber"></param> /// <returns></returns> static int ConverToDigit(string c 阅读全文
posted @ 2013-05-24 13:47 ╰★张志峰★╮ 阅读(1845) 评论(0) 推荐(0) 编辑
摘要：
WebService常用功能讲解（原创：灰灰虫的家http://hi.baidu.com/grayworm）一、WebService中常用的属性（Attributes）1. Web Service（Web服务）提供以下三个属性。 Namespace：此属性的值包含 XML Web Service的默认命名空间。XML命名空间提供了一种在XML文档中创建名称的方法，该名称可由统一资源标识符（URI）标识。如果不指定命名空间，则使用默认命名空间 http://tempuri.org/。 Name：此属性的值包含XML Web Service的名称。在默认情况下，该值是实现XML Web Serv. 阅读全文
posted @ 2013-05-24 13:44 ╰★张志峰★╮ 阅读(803) 评论(0) 推荐(0) 编辑 |
||