一、Delphi自带的的Zip比较好用简单，但对于复杂的压缩，要通过编码实现。 二、第三方控件VCLZIP，上手比较快，很方便。集成了各种压缩解压方式。 如果压缩单一文件，使用Delphi自带的的Zip比较好。使用压缩量较大、目录多的使用第三方控件VCLZIP较好。 它有比较成熟的函数和属性。 ZipForge，有源码，你要求的功能都支持。 其实你把winrar（这个东西也是Delphi写的）里面

加入一句{$R WindowsXP}，控件具有系统主题风格。 implementation {$R *.dfm} {$R windowsXP} { TMyThread } ============================== procedure TForm1.Button1Click(Sender: TObject); const   {$I str.inc} begin    showm

看了delphi的论坛，感觉这几个观点还是比较好的，记录下来 1.开发语言和工具很多，但是不变的是业务逻辑和数据库技术。必须掌握一种主流的数据库技术和一些行业的业务逻辑 2.君子务本，本立而道生。 3.delphi做前端， webserveric做后端这种模式还是需要深入了解一下的。 4.delphi有很多知识点啊，可以学习一下。 5.java 语言也很强大的，但是从oracle收购后，也在走下坡

dbgrideh的使用。 平时在很多应用中，主表list与从表都具有联动的，鼠标在主表List滚动的时候，明细表中会加载明细数据 若有一种方法，可以在主表list的时候，只是浏览记录，不必每条记录都加载明细List,用户操作体验及数据库性能方面会有较大的提升。 具体的方法：可以考虑dbgrideh的memtable,  datadrives ，仔细拜读一下开发手册。

       “安装界面太丑了，不堪入目！”        “这界面应该属于20年代初的旧产物……”        “难看！”         每每听到设计师和产品经理这样的吐槽时，心中难免会有一点失落。细看一下，咱们软件的安装包界面的确还是比较古老，仍然带有xp系统自带的界面边框。于是趁着这次新版软件发布之际，专门花了时间去研究界面设计。         目标要求：         1、 界面b

  转自博客园http://www.cnblogs.com/jsrgren/archive/2011/10/31/2270353.html procedure New(var P: Pointer);  {为一个指针变量分配内存，会自动计算指针所指数据结构需要空的空间大小} procedure GetMem(var P: Pointer; Size: Integer); {分配一个指定大小的内存块

C++ 例： WIN32PROJECT1_API void test8(RECT &a) { a.left = 1; a.top = 2; a.right = 3; a.bottom = 4; } 此时参数为 RECT &a，在Delphi中有两种申明方式，各有不同 1、方式一var procedure test8(var a: TRect); cdec

unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls; const L_ARR_CHAR:array[0..77]of string=('A','B','C','D','E','F

1，将属性与事件绑定起来，控制了字段的可读可写属性，例如给控件的属性赋值的时候，这个主要在控件开发时候用到 Property是一个很有意思的语法特性，它使得方法具有了字段的调用特征，并赋予字段执行动作的能力。 如果你使用过C++ Builder来写基于VCL的程序，我想很多人都会注意到这样一点，比如： edt.Text = "test"; 这个时候edt文本框的内容会随之改变，但是“理论”上Tex

在自己的程序中将任务栏隐藏起来，并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键，也是很有趣的。要实现它们比较容易，但千万别忘了恢复正常，另外，本例中使用了3个API函数：FindWindow、ShowWindow和SystemParametersInfo，在使用它们之前一定要进行申明。 　　Implementation 　　var Hwnd:THandle; 　　Tmp:integer;

1.Label属性：字体一般用的属性。ANSI_CHARSET; 褐色的或者蓝色字体。verdada字符集（￥），用了verdata，就会显示2个杠杠。字体大小常用9,17,36；看上去舒服即可；加粗啥的。自己设； 2.DBSUMlist: 连接数据集，然后在sumcollection中设置字段跟统计类型，可以有3种，一种是平均数，一种是求和，一种是行数。然后设置dbsumlist.active

示例程序下载

调用宏语言；   excelapp := createoleobject('EXCEL.application');   ExBook := excelapp.WorkBooks.Add;   Sheet := ExBook.WorkSheets.Item[1];   sheet.rows['2:9'].Interior.ColorIndex := 36;   sheet.rows['2:9'].

Delphi XE5教程8：使用Delphi命名空间  // Project file declarations... //项目文件声明… program MyCompany.ProjectX.ProgramY; // Unit source file declaration... //单元源文件声明 unit MyCompany.ProjectX.ProgramY.MyUnit1

最后发现是因为，系统文件下有个class。pas.   而 ppclass里面也有一个class.pas. 导师文件版本重复。

Delphi : 使用ApplicationEvents来拦截窗体消息，阻止WebBrowser右键菜单 (2012-10-25 19:38:35) 标签：  it 分类： 软件_Software     项目需要一些全屏展示的web页面，结果碰到一个问题，当窗体上的webbrowse控件打开了网页之后，窗体就不响应键盘消息了~~~~郁闷了会儿，过后才研究出来用ApplicationEvents这

1，Clientsocket属性简介：address：主机IP地址；如果设置了HOST（主机名）;这优先会处理host；如果有host，将不会处理Address;                                                 serverice 与 port:  serverice 填写 http；ftp；Pope等协议。 port指定端口。如果知道了servic

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,zlib; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo

<strong><span style="font-size:18px;color:#ff0000;">下面的代码中包含了一个消息接收器，当消息接收器收到消息后，将socket，收到的消息，状态，封装成对象，保存到tstringlist中，stringlist.strings[0]里面保存了对象的ID（也就是命令的序号，从1..X）;然后放一个定时器，定时器1S中去查看命令列表；把第一条命令的st

这个时候去找下 delphi里的破解包，里面有个**.slip文件，复制到安装目录下 然后重启一下就好了。

我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子，希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。 代码的功能是使用指针和Tlist来生成一个牌串，并将牌串保存在t_CardInfo中。   procedure TForm1.Button1Click(Sender: TObject); const   //

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdHashMessageDigest,IdGlobal, IdHash,util_utf8; type   TForm1 = class(TForm

研究了1天。一直对不上。最后是字符集的问题。 给点分吧： 源代码下载地址： 点击打开链接

今天碰见了一个问题，update 一张表，  很慢，还容易卡死。看了下索引，有8个，我觉得应该是索引的问题，最后经过像别人咨询，可以通过数据库优化这个工具来优化数据库，但是呢。优化后还是不行。那问题就来了，是什么问题呢。  最后发现，这个表上有2个触发器。禁用这2个触发器就好了。

uses idhttp,IdHTTPServer; //idhttp组件提交下载请求 procedure TVodService.Button3Click(Sender: TObject);  var      h:TIdhttp;      MyStream:TMemoryStream;      url:string; begin      MyStream:=TMemoryStream.Cr

unit main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IdBaseComponent,IdContext ,IdComponent, IdCustomTCPServer, IdCustomHTTPServer,   IdHTT

Delphi 记录类型- 结构指针 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Bu

Delphi 快捷键(基于万一博客增加修改) 分类 快捷键 解释 备注 组 件 设 计 类 Escape 选择当前组件容器   Shift + Click 选择多个组件；选择窗体   Tab 选择下一个组件   Shift + Tab 选择上一个组件   方向键 选择此方向的下一个组件   Ctrl + 方向键 将所选组件的位置移动 1 个像素   Shift + 方向键 将所选组件的大小改变 1

synchronize方法，将与VCL交互的程序包含在一起。然后启动线程。 thread.resume;       terminate;  线程的终止方法。 很幽默的讲解六种Socket I/O模型 本文简单介绍了当前Windows支持的各种Socket I/O模型，如果你发现其中存在什么错误请务必赐教。 一：select模型 二：WSAAsyncSelect模型 三：WSAEventSelec

delphi的取整函数round、trunc、ceil和floor delphi的取整函数round、trunc、ceil和floor   1. Round（四舍六入五留双）   功能说明：对一个实数进行四舍五入。(按照银行家算法) 例： var      i, j: Integer ; begin      i := Round( 1.5 ); // i等于2      j := Round(