摘要:
在windows中内存的分配一次是4个字节的。而packed按数据类型进行内存的申请和分配,读取时也是按照数据型的大小进行指针定位,这样速度要慢一些,因为需要额外的时间来进行指针的定位。因此如果不用packed的话,delphi将按一次4个字节的方式申请内存,因此如果一个变量没有4个字节宽的话也要占4个字节!这样就浪费了,你可以用packed关键字取消这种优化。例子:typemyrec = packed recordn1 : integer; 4个字节n2 : shortint; 1个字节end;sizeof(myrec)------ 5typemyrec = recordn1 : integ
阅读全文
posted @ 2011-09-07 16:34
DHT
阅读(392)
推荐(0)
编辑
摘要:
1.工程文件(Delphi Project File)工程文件是一个特殊的单元文件,是应用程序的主程序,它管理应用程序中的其他文件,该文件的拓展名是*.dpr,是一个文本文件2.窗体文件(Delphi Form)窗体文件存储有关窗体中对象的信息,它是一个二进制文件,窗体文件的拓展名为*.dfm,每个窗体文件都有一个与之相对应的单元文件,如有一个名为Unit1.dfm的窗体文件,就有一个名为Unit1.pas的单元文件与之对应。Unin23.单元文件(Pascal File)用于存储与程序功能有关的常量、变量、数据类型、函数与过程的定义,单元文件的拓展名为*.pas,是一个文本文件4.资源文件(
阅读全文
posted @ 2011-09-07 15:53
DHT
阅读(329)
推荐(0)
编辑
摘要:
try ...excepton e:exception do begin //出错回滚 dm.OraSession.Rollback; MessageBox(Handle,pchar(e.message),'保存出错',MB_OK + MB_ICONSTOP); //恢复事务自动提交 dm.OraSession.AutoCommit := true; OraQuery1.AutoCommit := true; StringGrid1.SetFocus(); StringGrid1.Row := 1; StringGrid1.Col := 3; exit...
阅读全文
posted @ 2011-09-07 15:52
DHT
阅读(384)
推荐(0)
编辑
摘要:
strtodate('2001-12-30') 出现'is not a valid date '错误查看 控制面板->区域设置->日期发现日期 分隔符号用了 '/' 如果改为'-'就没有问题解决办法:在程序中引入:DateUtils单元加入:DateSeparator := '-';ShortDateFormat:= 'yyyy-mm-dd';然后使用strtodate('2001-12-30')
阅读全文
posted @ 2011-09-07 15:52
DHT
阅读(454)
推荐(0)
编辑
摘要:
DBCheckbox的初始化包括:1.绑定数据源: 可直接设置属性,也可在程序里设置 DBCheckbox.DataSource:=DataSource1; DataSource.DataSet:=ADOQuery; DBCheckbox.DataField:=Field1; 注:DBCheckbox捆绑的数据字段最好是Nnumber(1)类型;2.设置ValueChecked和ValueUnchecked 在属性栏中将ValueChecked设为1,ValueUnchecked设为03.只这些还不够,当新添加一条数据的时候,Field1为空,所以DBCheckbox显示第三种状态。后来想这在
阅读全文
posted @ 2011-09-07 15:51
DHT
阅读(1739)
推荐(0)
编辑
摘要:
对于模态对话框,ModalResult一旦被赋值,就会自动关闭。我遇到一个情况:1.在Form1中点击button1通过ShowModal打开模式窗口Form22.在Form2中点击button2通过ShowModal打开模式窗口Form33.在Form3退出的后,Form2同时出退出了查了很久发现原来是Form2中的button2的ModalResult属性设置了mrAll,改为mrNone随即解决问题
阅读全文
posted @ 2011-09-07 15:50
DHT
阅读(627)
推荐(0)
编辑
摘要:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, msxml,StdCtrls;type TForm1 = class(TForm) btn1: TButton; XMLDocument1: TXMLDocument; procedure btn1Click(Sender: TObject); private { Private declarations }
阅读全文
posted @ 2011-09-07 15:49
DHT
阅读(1151)
推荐(0)
编辑