考虑这个简单的代码 {$APPTYPE CONSOLE} uses Rtti, SysUtils; type {$M+} TFoo = class strict private class var Field1 : Integer; field2 : Integer; private field3 : Integer; class v

如何在Delphi(Delphi 200X,Delphi XE)中实现并行循环？怎么做这个最好的方法？有没有通用的解决方案？ 请举例说明. 目前最好的解决方案可能是 OmniThreadLibrary中的Parallel For Loop构造.你传递一个集合,或者一对表示下边界和上边界的整数,以及一个表示循环体的匿名方法,它使用一个线程池来运行for循环并行. 请注意,这仅在循环体方法能够独立存在

我需要在aTListView的特定列中绘制一个复选框,所以我检查这个问题 How can I setup TListView with CheckBoxes in only certain columns?并在接受的答案建议中使用另一个问题 How to set a Checkbox TStringGrid in Delphi?中描述的方法,现在移植该代码以使用ListView我带有这个： pro

我在表单中有一个TListView组件.它很长,我希望用户能够滚动它,如果鼠标在组件上方并滚动滚轮.我没有为TListView对象找到任何OnMouseWheel,OnMouseWheelDown或OnMouseWheelUp事件.我怎样才能做到这一点？ 问候, 恶者 这是我的代码： type TMyListView = class(TListView) protected fun

我需要在运行时将一个png图像添加到TImageList.我查看了TCustomImageList实现的函数,但它们只允许添加 >位图, >图标或 >来自其他图像列表的图像 例如.： function Add(Image, Mask: TBitmap): Integer; function AddIcon(Image: TIcon): Integer; function AddImage(Valu

我正在实施XML数字签名.我从小步骤开始,所以现在我想解决SHA-1哈希的问题. 在SO中有很多关于此的问题： > Digitially Sign Key with Lockbox > Encryption library for Delphi > Convert this php digital signing to Delphi > Delphi: is there a version of

我们将有状态DataSnap服务器用于某些业务逻辑任务,并提供clientdataset数据. 如果我们必须更新服务器以修改业务规则,我们将新版本复制到一个新的空文件夹并注册它(取决于Delphi版本,只需启动或运行TRegSvr实用程序). 即使旧的服务器实例正在运行,我们也可以这样做.但是,在注册新版本后,所有新客户端连接仍将使用当前运行的(旧)服务器实例.所有客户端必须先断开连接,然后新服务

我正在使用Delphi XE,并编写一个使用RemObjects SDK进行通信的应用程序(如果可能相关).我有FastMM调试,有时(并不总是)当我关闭它时会发出一个警告,说明单个“意外的内存泄漏”. “发生意外的内存泄漏.意外的小块泄漏是：117-124字节：UnicodeString x 1”.偶尔,我得到x2报告. 现在,我的理解是字符串是引用计数,并且由于没有其他对象导致泄漏,可能导致这

我想使用firemonkey制作媒体播放器应用程序,但我看不到videoplayer的任何组件:(我试图将VLC(VideoLAN播放器)集成到firemonkey但firemonkey控件没有窗口句柄. 如何制作或找到视频播放器组件？ 谢谢 除了VideoLab,我们还提供便宜得多的 BasicVideo.图书馆也可以免费用于非商业用途. MAC和iOS FireMonkey版本目前正在开发中,

自1987年以来,我是一个Turbo pascal / Borland pascal / Delphi开发人员.我目前只使用Delphi来维护我(和我的一些朋友)私下使用的旧工具.不幸的是,我所有的专业代码已经被移植,有些甚至是我直接参与:)到其他开发语言和环境,难过.对不起,这个深刻的介绍.让我来看看我的问题 我目前拥有Delphi 7专业.这是一个昂贵的举动,从来不值得它花费的成本,只是为了我

我需要访问严格的保护属性,因为我需要创建一个验证(基于此属性的值)以避免错误. (我没有具有此属性的第三方类的源代码)只有我有类(接口)和dcu的定义(所以我不能更改属性可见性).问题是存在一种访问严格保护财产的方法？ (我真的读了 Hallvard Vassbotn Blog,但是我没有找到关于这个特定主题的东西.) 这个类帮助器示例编译好： type TMyOrgClass = class

首先是一个问题：为什么在UnregisterNode()中删除const会导致失败,但不能在RegisterNode()中. 现在的背景：我正在使用Delphi XE与Interfaces进行工作,我遇到了一个让我暂停的工件,我得出结论,我不太明白为什么. 作为接口访问的对象不需要显式释放.当最后一个参考超出范围时,它被破坏.这看起来很简单.我已经写了一个测试用例来显示按预期运行的变体,另外两个失

我正在使用StringOfChar函数来创建一个这样的字符串 S := StringOfChar('b', 5); //s is set to 'bbbbb' 有没有任何RTL函数执行相同的操作(如StringofString(‘abc’,3)必须返回’abcabcabc’),但接受字符串作为参数而不是char？ 我可以编写一个这样的功能,但我正在寻找一个现有的RTL功能. 您正在寻找的功能是 S

FillRect不会在Delphi XE2中绘制完整的TStringGrid单元格.默认颜色左侧有3个像素间距(BiDiMode设置为bdLeftToRight).这个问题在我以前使用的Delphi 6中不存在. procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;

我用Devexpress打破了我的软件,我发现标签是不透明的,因为它们有灰色的背景. 只有无休止的形式,所以我想知道是否有一种方法来做这个任务(将标签设置为透明)自动. 我以前做过类似的事情,表单上的Devexpress控件有LookAndFeel.NativeStyle = True,我使用Grep Search将其替换为所有dfm表单上的False.然而,在标签的情况下,透明属性不存在. 谢谢

在 delphiXtreme的这篇有趣的博文中,我阅读了关于DUnit内置的GUI测试功能(基本上是单元GUITesting中定义的替代测试用例类TGUITestCase,它具有多个用于在GUI中调用操作的实用功能).我很高兴,直到我注意到它不适用于模态形式.例如,如果第一个按钮显示一个模态配置窗体,以下序列将不起作用： Click ('OpenConfigButton'); Click ('Ok

我再次写一个外部调试器可视化器,并且正在跑到墙上.调试器可视化程序可以返回的字符串的大小似乎有限制. Delphi 2010附带的TStrings调试器可视化器的限制为4K.在对Embarcadero新闻组发布的一个问题的回应中,Ewe Schuster replied表示：“您可以增加一些缓冲区,但是AFAIR的实际限制是在IOTAThread.Evaluate中限制了大约12k个字符.” 我的

我如何解析 JSON字符串 {"data":{"results":[{"Branch":"ACCT590003"}]}} 使用TJSONObject对象？我想从这个字符串获取ACCT590003的值. uses SysUtils, DBXJSON; type TProcessJSONString = TProc<TJSONString>; procedure DoJSONObjec

作为测试,我决定在Delphi中使用Delphi 4,5,6,7,2005,2010和XE3创建一个简单的“Hello world”应用程序.该应用程序只不过是一个TForm,一个带有OnClick事件的TButton,它调用ShowMessage(‘Hello world’). 以下是关闭每个最终EXE的结果： 有人可以解释为什么XE3版本比以前版本的Delphi平均大26倍？ 这是XE3的项目

我将不得不创建一个多线程项目,我已经看到实验(delphitools.info/2011/10/13/memory-manager-investigations),显示默认的Delphi内存管理器有多线程问题. 所以,我找到了这个SynScaleMM.任何人都可以给它一些反馈或在类似的内存管理器？ 谢谢 我们的 SynScaleMM还是试验性的. 编辑：看看更稳定的ScaleMM2和全新的SAPM