我在上面的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(

服务端关闭，客户端连接的时候，会报10061错误 这个时候，用try except end; 是捕获不到的。 因为这个socket是线程内的错误。无法捕获。 begin   if ErrorCode = 10061 then   begin     ShowApplicationMsg('用IPAD操作打印前请手动打开对应单据！',IWARNINGMSG);     tasklist.Delete

窗体布局，一般先放一个Panel上去，  bevelouter: 斜角外部： bvnone;  align : client;   panel color: $00E7E7E7,  ctl3D： true;  parentctl3D; parentshowhint : false;    蓝色： $00EC894F； 时钟用的是： rzclockstat 控件： 字体格式用：verdana; 11

http://379910987.blog.163.com/blog/static/33523797201111792121133/ 事件函数（1） Inno Setup支持以下函数和过程。 function InitializeSetup(): Boolean; 该函数在安装程序初始化时调用，返回False 将中断安装，True则继续安装，测试代码如下： function InitializeS

DDE可实现进程与进程之间的通讯 服务端需要放2个空间。 DDE conver 会话上下文。 还有一个DDEitem  ;; 将 ddeitem 志向 DDe conver; 然后运行程序； DDE服务器就启动了； 在 ddeitem 这个方法中就可以获取数据了 procedure TForm1.ddepxbitemPokeData(Sender: TObject); var   str: str

oldPoint,newPoint:TPOINT GetCursorPos(oldPoint); //保存当前鼠标位置。 newPoint.x = oldPoint.x+40; newPoint.y = oldPoint.y+10; SetCursorPos(newPoint.x,newPoint.y); //设置目的地位置。 mouse_event(MOUSEEVENTF_RIGHTDOWN,0

注意，需要注册类； 2.读入多个属性的时候，只会构造第一个控件； unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     mmo1: TMe