在我们的主数据输入屏幕上,我们在OnBeforePost事件中有一个确定/取消的对话框。 确定让事情顺其自然 取消 立即执行 Dataset.Cancel; 这样做可以实现它的目的,即撤消任何更改并将数据集置于浏览模式。 对于大多数客户来说,这是可以接受的,但我们被要求将其更改为 ...
在另一个问题中,我发现Assigned()函数与Pointer <> nil相同。我一直认为Assigned()是用来检测这些悬空指针的,但现在我知道它不行。悬空指针是那些可能在某个时候创建的指针,但已经被释放并且尚未分配给nil。 如果Assigned()无法检测悬空指针,那么...
作为一个测试,我决定在Delphi 4、5、6、7、2005、2010和XE3中创建一个简单的“Hello world”应用程序。该应用程序仅包含一个TForm以及一个TButton并带有一个OnClick事件,该事件会调用ShowMessage('Hello world')。 下面是每个最...
你好,我希望能够获取硬盘的唯一(硬件)序列号。我使用了一些函数,但是在Windows Seven或Vista中,由于管理员权限的问题,它们无法正常工作。是否可能在不以管理员身份运行的情况下检索它?
我有一个整数或字符串列表,并且需要将其作为参数传递给 Delphi DataSet。如何做? 这里是一个例子。我的查询(MyQuery)类似于:select * from myTable where intKey in :listParam 我会将参数设置为列表或数组或其他类似的东西:MyQ...
我需要在TEdits上拦截TAB键并通过编程方式抑制它们。在某些情况下,我不希望焦点改变到下一个控件。 我尝试在TEdit级别和具有KeyPreview=true的TForm上同时处理KeyPress、KeyDown事件。我从以下建议中获取了一些提示: 在RichEdit中拦截TAB键 ...
我是Delphi的新手,现在我需要创建一个XML。我的代码如下: unit writexml1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
我正在尝试递归删除一个文件夹及其所有子文件夹,但它根本不起作用。请问有谁可以检查一下我的代码并告诉我在这里做错了什么吗? 我正在Windows XP下通过D7运行此代码。if FindFirst (FolderPath + '\*', faAnyFile, f) = 0 then ...