摘要： delphi中combobox键值对2010-09-13 10:46:51|分类： 默认分类 |标签： |字号大中小订阅 1.添加键值对： cbb1.Items.AddObject(‘显示的文字‘, TObject(NewStr(’作为值存在的字符串‘)));2.读取选中键的值 ShowMessage(PString(cbb1.Items.Objects[cbb1.ItemIndex])^);实例：从文件中读取cbbEffect的键值对IniPath := ExtractFilePath(Application.ExeName)+'./effect.ini'; //当前工程路径 阅读全文

摘要： 最为一个巩固之前有关窗体和对象的有关知识，下面就建立一个简单的MDI示范程序，这个程序的功能是打开和保存图形文件（包括位图、图标等），为了完成这个任务，我们有一个大概的计划，计划内容如下：（1）建立主窗体（一个MDI父窗体），包括菜单。（2）为【File | Open…】 和【File | Save…】菜单选项编写代码。（3）为Windows菜单上的Cascade、Tile和Arrange All选项编写代码。（4）建立MDI子窗体。（5）建立一个About对话框。（6）然后再回忆和欣赏一下这段工作。时间就是金钱，即刻就做吧 。一、创建主窗口窗体首先创建一个主窗口窗体，一个MDI应用程序的主. 阅读全文

摘要： Delphi 实现TreeView结点拖拽的实例(转)2010-09-16 21:03Delphi 实现TreeView结点拖拽的实例2010-06-04 11:15转载自 BD枫枫最终编辑 BD枫枫下面的程序片段演示了如何实现拖拽treeview构件结点的例子 {鼠标按下时执行的语句} procedure TForm1.Treeview1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin {判断左键按下并且鼠标点在一个结点上开始实现拖拽} if ( Button 阅读全文

摘要： 下面是单向拖拽，如果要互相拖拽，原理是相同的。 procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin {判断左键按下并且鼠标点在一个结点上开始实现拖拽} if ( Button = mbLeft ) and ( htOnItem in Treeview1.GetHitTestInfoAt( X, Y ) ) then begin Treeview1... 阅读全文

摘要： -- 作者：贾渊-- 发布时间：2010-4-24 7:46:08-- [原创]关于原版TreeView的使用D7中原版的TreeView就很好用，但是却没有一个属性可以直接设置节点的CheckBox，经过摸索，找到一个较好的解决方案。view plaincopy to clipboardprint?const TVS_CHECKBOXES = $00000100; procedure TForm1.SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean); var Style: Integer; be.. 阅读全文

摘要： Delphi操作XML(八) 4.1.3.TPersistentAccess类 TPersistentAccess =class(TPersistent)4.1.4.TReaderAccess类 TReaderAccess =class(TReader)4.1.5.TsdBufferedReadStream类 TsdBufferedReadStream =class(TStream) TsdBufferedReadStream是一个流的缓冲，它为另外的TStream建立读取缓冲区，并从流读取到缓冲区。此流类型只能支持读取。4.1.5.1.Create constructor Crea... 阅读全文

摘要： Delphi操作XML(九) 4.1.10.TsdSurplusReader类 TsdSurplusReader = class TsdSurplusReader是一个简单的类，它可以存储少许字符，并可以在读取基础流前，返回这些字符。4.1.10.1.Surplus property Surplus:UTF8String;4.1.10.2.Create constructor Create(AStream: TStream);4.1.10.3.ReadChar function ReadChar(var Ch:AnsiChar): integer;4.1.10.4.ReadCharS... 阅读全文

摘要： Delphi操作XML(六) 引自百度使用NativeXml的例子3.1.例子A:XML的装载、存储和导出 这个例子显示如何加载一个XML文档，然后以可读格式导出到一个TMemo领域。 拖放一个TEdit（Edit1），TButton（Button1）和一个TMemo到你的窗体，然后连接到下面的按钮的OnClick事件代码。填写文件名到Edit1，然后按一下按钮，您会看到在memo控件中列出XML文件的内容。procedure TForm1.Button1Click(Sender: TObject);var ADoc: TNativeXml;begin Memo1.Lines.Clear;.. 阅读全文

摘要： CPU卡M1操作系统带有COS系统无COS系统硬件加密模块硬件DES运算模块无实现算法的硬件加密模块算法支持标准DES算法厂家专用不公开算法密钥长度16字节DES12字节口令交易安全性钱包不可被非法访问；与PSAM之间严格双向认证流程；交易自动形成不可抵赖的TAC码口令保护钱包，不校验口令错误次数；口令更换是明文可被截获，卡片不能验证设备合法性终端安全性采用动态密钥，密钥存储、交易验证与加密计算都由SAM卡独立完成，安全有保障采用固定密钥，不支持SAM卡双向认证多应用支持多应用，应用之间独立；每个应用的COS、容量、功能可自行定义，可完全不同，支持多种认证方式简单支持多应用，应用数量与每个应用 阅读全文

摘要： 如果从来没有从事务日志中删除日志记录，逻辑日志就会一直增长，直到填满容纳物理日志文件的磁盘上的所有可用空间。在某个即时点，必须删除恢复或还原数据库时不再需要的旧日志记录，以便为新日志记录腾出空间。可通过以下语句解决： BACKUP LOG tablename WITH NO_LOG DBCC SHRINKFILE(Filename|FileID) 一、截断事务日志：BACKUP LOG tablename WITH NO_LOG 删除日志记录以减小逻辑日志的大小的过程称为截断日志。 1、永远不能截断事务日志的活动部分。 日志的活动部分是在任何时间恢复数据库所需的日志部分，因此必须有回滚所有.. 阅读全文