del88 - 博客园

2013年4月7日

摘要： //存储Grid格式ini function SaveGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean; var IniFileNameStr:string; begin IniFileNameStr := ExtractF 阅读全文

posted @ 2013-04-07 22:22 del88 阅读(13) 评论(0) 推荐(0) 编辑

DBGRIDEH 组件在Borland开发工具中应用全攻略有图(以后可以用这个图的思路来整理)

摘要： DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持B 阅读全文

posted @ 2013-04-07 22:05 del88 阅读(8) 评论(0) 推荐(0) 编辑

DBGridEh（增强型表格组件）功能详解

摘要： DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持阅读全文

posted @ 2013-04-07 22:04 del88 阅读(12) 评论(0) 推荐(0) 编辑

DBGRIDEH 组件在Borland开发工具中应用全攻略

摘要： DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持阅读全文

posted @ 2013-04-07 22:02 del88 阅读(2) 评论(0) 推荐(0) 编辑

DbgridEh列,字段过长的列省略号表示

摘要：阅读全文

posted @ 2013-04-07 18:45 del88 阅读(11) 评论(0) 推荐(0) 编辑

SuperObject Boolean类型区分大小写,不识别大写

摘要： SuperObject Boolean类型区分大小写,不识别大写当把false,变成False的时候就认为是True了,留意这里阅读全文

posted @ 2013-04-07 13:04 del88 阅读(5) 评论(0) 推荐(0) 编辑

2013年4月3日

superobject转移到delphi xe3中问题

摘要：报上面的错误,方法是去掉编译指令，猜想可能是XE3默认必须带,FormatSettions前缀了。 EurekaLog7支持XE3,现在还没有找到Crack版. 研究了一下,先安装上EurekaLog 6,我安装的是For Delphi 2010,然后在XE3中打开安装目录中的ExceptionEx 阅读全文

posted @ 2013-04-03 19:00 del88 阅读(4) 评论(0) 推荐(0) 编辑

2013年4月2日

panel 看似标准的样式--终于搞出来

摘要：阅读全文

posted @ 2013-04-02 13:19 del88 阅读(8) 评论(0) 推荐(0) 编辑

BringToFront、SendToBack - 控件置前与置后

摘要： IDE使用：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; 阅读全文

posted @ 2013-04-02 11:38 del88 阅读(2) 评论(0) 推荐(0) 编辑

快捷键设置控件: THotKey [1]

摘要：运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 阅读全文

posted @ 2013-04-02 11:25 del88 阅读(4) 评论(0) 推荐(0) 编辑

2013年3月28日

DBGrid-OnEditButtonClick 表格内部按钮

摘要： procedure TForm1.DBGrid1EditButtonClick(Sender: TObject); begin Showmessage(DBGrid1.SelectedField.AsString); end; procedure TForm1.FormCreate(Sender: 阅读全文

posted @ 2013-03-28 19:02 del88 阅读(11) 评论(0) 推荐(0) 编辑

汉化IndicatorTitle下拉式菜单

摘要：打开DBGridEh.pas[版本V5.2]单元文件，找到 EhlibConsts 单元文件名[第3029行]，然后按 Ctrl+Enter 打开相应单元文件，将文中的： SVisibleColumnsEh = 'Visible columns'; SCutEh = 'Cut'; SCopyEh = 阅读全文

posted @ 2013-03-28 18:58 del88 阅读(13) 评论(0) 推荐(0) 编辑

DBGridEh-SaveDBGridEhToExpotFile、LoadDBGridEhFromImportFile

摘要： {$R *.dfm} uses DBGridEhImpExp; //SaveDBGridEhToExportFile可以支持以下五种类型 //TDBGridEhExportAsText //TDBGridEhExportAsCSV //TDBGridEhExportAsHTML //TDBGridE 阅读全文

posted @ 2013-03-28 18:54 del88 阅读(15) 评论(0) 推荐(0) 编辑

DBGRIDEH 去掉网格渐变色

摘要：用一句命令即可： DBGrideh1.OptionsEh:=DBGrideh1.OptionsEh-[dghExtendVertLines]; //去掉网格渐变色去掉前效果：去掉后效果：阅读全文

posted @ 2013-03-28 17:34 del88 阅读(13) 评论(0) 推荐(0) 编辑

汉化DBGridEhFindDlg查找框

摘要：打开DBGridEh.pas[版本V5.2]单元文件，找到 EhlibConsts 单元文件名[第3029行]，然后按 Ctrl+Enter 打开相应单元文件，将文中的： SVisibleColumnsEh = 'Visible columns'; SCutEh = 'Cut'; SCopyEh = 阅读全文

posted @ 2013-03-28 17:32 del88 阅读(9) 评论(0) 推荐(0) 编辑

设置dbgrideh的footer

摘要： // // 取得FOOTER的合计值pDbGrid.Columns[1].Footer.SumValue // 比如要将金额转换成中文大写 // unit uFooter; interface uses SysUtils,Graphics,Classes,DBGridEh; // // AFlag= 阅读全文

posted @ 2013-03-28 16:33 del88 阅读(10) 评论(0) 推荐(0) 编辑

导出/导入Tdbgrideh数据

摘要： unit uExport; interface uses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait; procedure ExpDbgridEh(grid:TDBGridE 阅读全文

posted @ 2013-03-28 15:46 del88 阅读(12) 评论(0) 推荐(0) 编辑

dbgrideh设置可显示列

摘要： unit FormColSelect; interface uses SysUtils, Classes, Controls, Forms, Graphics,uCommFunc, StdCtrls, DBGridEh, CheckLst, Buttons, ComCtrls, ExtCtrls, 阅读全文

posted @ 2013-03-28 15:39 del88 阅读(12) 评论(0) 推荐(0) 编辑

2013年3月26日

我自己的用Json传输数据的例子

摘要： function TTopItemApi.GetJsonByTopNumIid(top_num_iid: string): string; var MyAdoq: TADOQuery; MySo: ISuperObject; begin MyAdoq := TADOQuery.Create(nil) 阅读全文

posted @ 2013-03-26 16:35 del88 阅读(8) 评论(0) 推荐(0) 编辑

2013年3月23日

TstringList 新发现 DelimitedText和CommaText

摘要： var MyList: TStringList; begin MyList := TStringList.Create; try MyList.Add('a'); MyList.Add('b'); MyList.Add('c'); ShowMessage(MyList.Text); ShowMess 阅读全文

posted @ 2013-03-23 22:34 del88 阅读(9) 评论(0) 推荐(0) 编辑

2013年3月22日

为什么开机时间（秒）要从1970年1月1日0时开始计算

摘要：最初计算机操作系统是32位，而时间也是用32位表示。 (Integer.MAX_VALUE);2147483647Integer用32位表示，因此32位能表示的最大值是2147483647。另外1年365天的总秒数是31536000，2147483647/31536000 = 68.1也就是说32位阅读全文

posted @ 2013-03-22 23:05 del88 阅读(7) 评论(0) 推荐(0) 编辑

2013年3月15日

DBGRIDEH 根据列名找一定要记住

摘要： PrintPurchaseOrderShow_dbgeh.FieldColumns['top_price'].Footer.ValueType := fvtSum; 阅读全文

posted @ 2013-03-15 16:31 del88 阅读(3) 评论(0) 推荐(0) 编辑

2013年3月13日

TDateTimePicker 的ShowCheckBox 属性

摘要：配合上方的可以设置默认选中或不选中需要注意当给datetimepicker赋值的时候，check会自动启用,如果不想让其启用,可以先赋值在设置下false： //有效期上下位置不要颠倒就不会自动启用了,这样 TopValidDate_dtp.Date := Date; TopValidDate 阅读全文

posted @ 2013-03-13 21:43 del88 阅读(6) 评论(0) 推荐(0) 编辑

2013年3月7日

JSON View – JSON格式化查看工具

摘要：一个JSON格式文件查看器，提供JSON可视化操作。带有代码格式化功能，效果嘛，谁用谁知道。官方站点 http://jsonviewer.codeplex.com/ 备用下载阅读全文

posted @ 2013-03-07 22:11 del88 阅读(5) 评论(0) 推荐(0) 编辑

2013年3月5日

SameText、CompareStr、CompareText - 字符串比较

摘要： CompareStr 区分大小写; CompareText 不区分大小写. 举例: var s1,s2: string; i: Integer; begin s1 := 'abc'; s2 := 'adc'; i := CompareStr(s1,s2); ShowMessage(IntToStr( 阅读全文

posted @ 2013-03-05 15:20 del88 阅读(235) 评论(0) 推荐(0) 编辑

FASTREPORT 动态创建动态增加函数(其它组建原理一样)

摘要：首先窗体类增加一个和这个事件一样参数的函数这个函数的实现代码如下： function TfrmFastPrint.MyMoneyToCnAddFrx(const MethodName: string; var Params: Variant): Variant;//这个函数的参数和要fr事件的参阅读全文

posted @ 2013-03-05 13:49 del88 阅读(29) 评论(0) 推荐(0) 编辑

2013年3月2日

循环一个组件上的组件

摘要： procedure TfrmTopItemLog.Button4Click(Sender: TObject); var top_canyu_col: string; I: Integer; begin // {获取参与聚合的列} for I := 0 to RuKuHuiZongGroupBy_pn 阅读全文

posted @ 2013-03-02 11:49 del88 阅读(5) 评论(0) 推荐(0) 编辑

2013年2月25日

FastReport 字符间距

摘要：阅读全文

posted @ 2013-02-25 17:02 del88 阅读(41) 评论(0) 推荐(0) 编辑

2013年2月20日

TImage 图片和自动大和自动小（自动适应）

摘要：开发中经常用到 image 实际开发中这两个属性结合着用阅读全文

posted @ 2013-02-20 17:21 del88 阅读(19) 评论(0) 推荐(0) 编辑

关于DELPHI的Tstringlist中Delimitedtext中的所谓Delimiter BUG 空格默认被当成换行的问题

摘要：这个问题网上都是说这个是delphi的bug 我靠，这个不但是 bug 而是升级后的更高级 var MyList: TStrings;begin MyList := TStringList.Create; try //ExtractStrings([]) MyList.Delimiter 阅读全文

posted @ 2013-02-20 00:00 del88 阅读(22) 评论(0) 推荐(0) 编辑

2013年2月19日

Delphi TStringList的用法

摘要： TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); 阅读全文

posted @ 2013-02-19 23:58 del88 阅读(11) 评论(0) 推荐(0) 编辑

2013年2月18日

内存流在循环使用的时候不要忘记清除原来的

摘要： MyPicUrlList.Delimiter := '/'; MyPicUrlList.DelimitedText := MySo['item_get_response']['item']['pic_url'].AsString; //清除内存流里的东西,否则会导致下载下来都是一个图片 MyMemo 阅读全文

posted @ 2013-02-18 20:33 del88 阅读(8) 评论(0) 推荐(0) 编辑

2013年1月29日

Adoquery 判断是否在编辑状态

摘要： if frmClientDm.TopAreaShow_adoq.State = dsEdit then begin //不管那列,只要是在编辑状态,退出这个dbgrideh的时候就提交,实在是太高,花费巨大脑汁,终于解决问题了 frmClientDm.TopAreaShow_adoq.Post; e 阅读全文

posted @ 2013-01-29 17:28 del88 阅读(12) 评论(0) 推荐(0) 编辑

2013年1月15日

MessageBox 和 messagedlg用法--我提示

摘要： MessageBox 弹出的窗口不能一直在主窗体上面尽量不用 messagedlg 和 application.MessageBox这两个可以阅读全文

posted @ 2013-01-15 23:07 del88 阅读(19) 评论(0) 推荐(0) 编辑

MessageBox 和 messagedlg用法

摘要：消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。 1.最简单用法,不带图形 MessageBox(0,'不同意','提示',MB_OK); MessageBox(0,'不同意','提示',MB_OKCANCEL ); 2.警告对话框: MessageBox( 阅读全文

posted @ 2013-01-15 23:06 del88 阅读(24) 评论(0) 推荐(0) 编辑

delphi弹出信息框大全

摘要： 1．警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION);3．错误提示框 MessageBox(Handle,'错误信息框阅读全文

posted @ 2013-01-15 23:05 del88 阅读(12) 评论(0) 推荐(0) 编辑

delphi MessageDlg 和 MessageBox的用法

摘要： procedure TForm1.Button1Click(Sender: TObject);varS:string;beginif MessageDlg('提示框',mtInformation,[mbok,mbyes],0)=mryes then messagebeep(MB_ICONEXCLAM 阅读全文

posted @ 2013-01-15 22:47 del88 阅读(22) 评论(0) 推荐(0) 编辑

Delphi中MessageBox使用详解

摘要：在delphi中经常要用到一个提示对话框，根据用户选择执行不同的命令，MessageBox就是常用的对话框，它不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、阅读全文

posted @ 2013-01-15 22:44 del88 阅读(22) 评论(0) 推荐(0) 编辑

Delphi中Messagedlg用法

摘要： if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; MessageDlg用法对话框类型：mtwar 阅读全文

posted @ 2013-01-15 22:38 del88 阅读(14) 评论(0) 推荐(0) 编辑

DELPHI InputBox、InputQuery

摘要：通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessa 阅读全文

posted @ 2013-01-15 22:36 del88 阅读(17) 评论(0) 推荐(0) 编辑