cost 70 ms
如何检测是否单击了 Windows 开始(Orb)按钮? - How to detect if Windows Start (Orb) button is clicked?

在 Delphi 中,是否可以检测用户何时单击 Windows 的“开始”按钮(左下角调出菜单的按钮)? 我尝试创建自己的“开始”菜单,因此当单击“开始”按钮时,它将显示我的菜单而不是 Windows 的菜单。 我的想法是,当 Windows 启动时,我的应用程序将在系统托盘中自动运行,并检测用户 ...

TStringlist 为 function 结果,最小代码序列 - TStringlist as function result, minimal code sequence

如何从 function 返回一个 Stringlist 之前已经讨论过很多次了。 我的代码序列版本 1 只是概述了如何做。 是否有任何选项可以使用“无额外代码”修复版本 2 中的 memory 泄漏,这种方法到底有多危险,如果我的字符串列表只是几个字符串项,这会导致任何失败,memory 问题不会 ...

2023-05-17 07:00:07   4   171    delphi  
TStringList.CustomSort:Compare() 与变量 - TStringList.CustomSort: Compare() with variables

我正在尝试按 a.CSV 文件中的列对 TStringList 进行自定义排序。 我下面的代码有效(慢慢地,200,000 多行大约需要 14 秒): 我想要做的不是硬编码而是(注释“应该是一个变量”取决于要排序的列)。 我知道我不能使用: 用于插入变量,因为我收到错误: 不兼容的类型:“方法指针和 ...

TVirtualStringTree 向节点文本添加特定序列代码 - TVirtualStringTree adding certain sequence code to nodes text

我有 TVirtualStringTree 并且正在尝试将其文本修改为下一个(代码+文本): 我创建了这个 function,它为此目的创建了测试节点: 但是当运行代码时,它以某种方式在这一行中给出了访问冲突(在循环中的第三次计数之后): 我注意到RootNod已分配,但其所有数据都显示无法访问的值 ...

带 CommaText 的字符串列表返回逗号和空格,而不仅仅是 Delphi 中的逗号 - Stringlist with CommaText is returning comma and spaces instead of just comma in Delphi

我有一个字符串列表,每个字符串看起来像这样。 然后我将该字符串添加到另一个带有逗号文本的列表中,并且应该给出这样的结果 相反,它返回 似乎它会像我想要的那样为每个逗号创建一个新字符串,但也会为我不想要的每个空格创建一个新字符串。 添加代码以防万一。 ...

FireDac 中的实时数据 - Live Data in FireDac

在 FireDac 中是否有可能从数据库(在我的例子中是 SQL Server)中获取实时数据,而不像在 Paradox 中那样更新数据源。 我能找到的最接近的东西是 FDTable 的 Live Data Window,但是信息非常少,我什至不确定 Live Data Window 意味着数据是自 ...

Delphi TStringList 作为 object 字段 - Delphi TStringList as object field

这可能已经被问过很多次了,但如果是这样,我一辈子都找不到答案。 所以如果是这样的话,我提前道歉。 我在 Delphi 单元中有这个 object。 我正在整理来自一个来源的雇主列表,这些来源的类型为TEmployerData ,如下所示。 整理好雇主名单后,我将从属于每个雇主的其他来源收集员工和工资 ...

2023-01-31 16:40:10   1   80    delphi  
记录类型到临时变量 - Record type to temporary variable

如何将记录存储到临时变量并通过 function 传递? 如果我有两条记录,例如: 现在我希望能够做这样的事情: 并且还可以将其恢复为原始类型,例如: 最后一个完整的 function 应该可以做到以下几点: 我尝试过 Variant、TObject、NativeUInt 转换,但似乎没有任何效果。 ...

TVirtualStringTree节点数据域如何计算 - How to calculate TVirtualStringTree node data field

我有 VirtualStringTree (VST),其节点具有下一个数据结构: 他们没有任何子节点的子节点具有成本值,但任何父节点的成本值等于 0,并且我正在尝试编写程序以使任何父节点成本值等于其所有子节点成本的总和。 我尝试了下一个: 使用: 但是我遇到访问冲突并且总和不正确.. 任何建议。 ...

从 function 返回 OleVariant 会导致对包含的 IDispatch object 的额外引用无法发布 - Returning an OleVariant from a function causes an extra reference on the contained IDispatch object that cannot be released

我有一个 function,它返回一个OleVariant ,其中包含一个IDispatch引用,计数为 object: 在 function 的末尾,OleVariant 中OleVariant的RefCount正确为1 。 但是当OleVariant返回给调用者时,包含的 object 突然有一 ...

比较两个具有不同压缩率的相同 jpg 文件 - Comparing two identical jpg files with different compression ratios

有一个包含 jpg 文件和一个 jpg 文件的目录,应该与目录中的文件进行比较,并以这种方式找到 2 个图形相同的文件。 这是关于最简单的方法。 也许可以比较 R、G、B(可变性)的差异,而不是 R、G、B 值本身的差异,因为它们可能因不同程度的 jpeg 压缩而略有不同。 ...

使用 TIdHTTP 的 POST 在检索 JSON 响应时挂起 - POST with TIdHTTP hangs on retrieving the JSON response

如果人们遇到相同的问题(因为我最终找到了解决方案),这个问题可能更像是一个提示,供人们搜索解决方案。 我有一个应用程序对本地服务器执行一些 HTTP 请求(在请求/响应主体中混合使用 GET/POST 和 JSON 内容)。 该服务器是第三方应用程序,在我将其升级到最新版本后,我的 Delphi 应 ...

Delphi 过程:第一条指令未编译 - Delphi procedure: First instruction doesn't compile

我正在编写一个 Delphi 应用程序,其中我有一个程序来清除表单并将其重置为默认值 state。 我已经尝试了一切——程序中的第一行代码无论如何都无法编译。 我也看不出程序声明有任何问题。 有人可以帮忙吗? 我的谢谢。 我正在尝试清除表单中的所有字段,启用已禁用的内容等。将其重置为默认值 stat ...


 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM