摘要：
progressbar1.Max:=myzip.ZipSize;procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer);beginprogressbar1.Position:=percent;end;procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer);beginprogressbar2.Position:=percent;end; 阅读全文
摘要：
有的时候，我们会碰到一些比较烦人的东西，打开某个继承的窗体，会提示说基类窗体找不到，并且找不开这个窗体，必须先打开基类窗体，然后再打开此窗体，才可以进行设计模式。其实出现这种情况的原因，就是因为工程dpr文件中，没有添加此基类的Form文件造成的，多是由于系统移植造成的，你也可以自己来玩一下。 解决办法：可以在View菜单中选择Project Manager或者Ctrl+Alt+F11来查看，基类中一定只有pas文件，如果继承的窗体少，你可以直接将继承的窗体去掉，然后将基类的单元文件先移除工程，然后再添加进去就可以了，或者你直接在dpr文件中添加此窗体的声明，形如{XXForm}之类的内容。下 阅读全文
摘要：
delphi 2010中有时继承窗体会提示类似“frmBase 1 is not a valid identfier”的提示，经过反复研究发现问题出在delphi2010自带的源码格式化工具上，在工程文件的源码中，有类似如下的窗体列表代码：Base in 'Form\Base\Base.pas' {frmBase} ,启用自带的源码格式化后会在{}注释中产生两个空格，如下：Base in 'Form\Base\Base.pas' { frmBase }问题就出在这里，删除frmBase两侧的空格就可以了。但是这个不是长久之计，又来研究下这个源码格式化功能，发现自 阅读全文
摘要：
delphi的示例程序从这里下载：http://www.progdigy.com/files/sevenzip.zipThis API use the 7-zip dll (7z.dll) to read and write all 7-zip supported archive formats.- Autor: Henri Gourvest <hgourvest@progdigy.com>- Licence: MPL1.1- Date: 15/04/2009- Version: 1.1Reading archive:Extract to path:with CreateInArc 阅读全文
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTMemo = class(stdctrls.TMemo)private procedure WMPaint(var Message: TWMPaint); message WM_PAINT; procedure WMSize(var Message: TWMSize); message WM_SIZE; procedure WMMove(var Messa 阅读全文
摘要：
SELECT TOP 100 PERCENT --a.id,CASE WHEN b.keyno = 1 THEN c.name ELSE '' END AS 表名,CASE WHEN b.keyno = 1 THEN a.name ELSE '' END AS 索引名称, d.name AS 列名, b.keyno AS 索引顺序, CASE indexkey_property(c.id, b.indid, b.keyno, 'isdescending')WHEN 1 THEN '降序' WHEN 0 THEN '升序&# 阅读全文
摘要：
SELECT DISTINCTTOP 100 PERCENT isnull(p.name,'') AS 父对象, o.xtype,CASE o.xtype WHEN 'C' THEN 'CHECK 约束' WHEN 'D' THEN '默认值或DEFAULT约束'WHEN 'F' THEN 'FOREIGNKEY约束' WHEN 'L' THEN '日志' WHEN 'FN' THEN '标量函数'WHEN 'I 阅读全文
摘要：
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 1、CommaText 2、Delimiter &DelimitedText 3、Names &Values &ValueFromIndex 先看第一个：CommaText。怎么用呢？ const constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrings; i :Integer; begin strs := TStringList.Create; strs.CommaTex 阅读全文
摘要：
unit Unit1;interface{接口部分开始}uses{引用单元列表,这是可选的,如果包含必须紧跟interface关键字}{接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样}{在接口部分声明的过程和函数,就像使用了forward关键字}{接口部分结束}implementation{实现部分}uses{如果包含uses字句,必须紧跟关键字implementation}{在这里实现interface中定义的过程和函数,可以任意顺序的定义和调用.}{在这里可以省略过程和函数的列表,如果包括,必须一样.}{可以定义单元私有的常量/类型(包括类)/变量/过程和函 阅读全文
摘要：
varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3'); {插入}i := List.IndexOf('Strings1'); {第一次出现的位置}List.Sort; {排序}List.Sorted := True; {指定排序}List.Count; {总数}Lis 阅读全文