摘要：
不加引号 错误提示：没有声明的变量 frxReport1.Variables['bt'] := QuotedStr(getyym + _('门诊挂号员日报')); frxReport1.Variables['czy'] := QuotedStr( dosql.fieldbyname('xingm') 阅读全文
摘要：
d7 >dxe6需要修改 1.PChar替换成PAnsiChar 2.Length(P1) 修改成 Length(P1)*SizeOf(Char) 或者 ByteLength函数计算 3.Key in ['a'..'z','B','C'] 这类代码最好替换成CharInSet(Key,['a'..' 阅读全文
摘要：
Windows将消息分成了几块，其中的一块是划分给程序自定义的消息使用的。自定义的消息其实于WM_APP。当然了，自定义的消息也可以不从WM_APP开始，但是那样的话，你定义的消息代码有可能和Windows的消息代码重复。所以，安全起见，自定义的消息，最好还是从WM_APP开始。 procedure 阅读全文
摘要：
转自于：http://www.cnblogs.com/findumars/p/3847804.html 有意思的RTL函数RegisterClass（在持久化中，你生成的一个新类的对象，系统并不知道他是如何来的，因此需要你注册）good 例子1：Delphi中使用纯正的面向对象方法（这个例子最直接） 阅读全文
摘要：
procedure TfrmBiaoBLBWH.Button1Click(Sender: TObject);var ABinary,AText:TMemoryStream;begin inherited; ABinary:=TMemoryStream.Create; ABinary.WriteCom 阅读全文
摘要：
转：http://ymg97526.blog.163.com/blog/static/17365816020101021703631/ //添加一个TApplicationEvents组件 //OnMessage:控制着整个应用程序的消息循环 //OnIdle:应用程序空闲时触发 procedure 阅读全文
摘要：
例子1 测试 时，CPU并没有占用100% 不知道是否Delphi高版本已优化。 声明：Property OnIdle：TIdleEvent；其中：TIdleEvent是这样声明的：TIdleEvent=Procedure(Sender：TObject；Var Done:Boolean) of Ob 阅读全文
摘要：
这个事件 对每个字段都处理，在窗体退出时，因关闭了数据集，所以这个事件也要执行一次。这样就会造成，内存地址错误。 procedure TFrmYaoKYPCKBL.DataSource1DataChange(Sender: TObject; Field: TField);begin inherite 阅读全文
摘要：
--禁用外键 alter table GONGHDW disable primary key cascade;--启用外键alter table GONGHDW enable primary key; 阅读全文