记录类型到临时变量
[英]Record type to temporary variable
如何将记录存储到临时变量并通过 function 传递？ 如果我有两条记录，例如： 现在我希望能够做这样的事情： 并且还可以将其恢复为原始类型，例如： 最后一个完整的 function 应该可以做到以下几点： 我尝试过 Variant、TObject、NativeUInt 转换，但似乎没有任何效果。 ...
FreePascal 语法错误“无效限定符”，但它在 Delphi 7 中编译
[英]FreePascal syntax error "invalid qualifier", but it compiles in Delphi 7
下面的代码在 Delphi 7 中编译，但在 FPC 中给出错误。 是否有任何模式开关可以使其编译？ ...
Delphi IE11 实例，OleSysErrorOLE 已安排系统关闭/8150002E
[英]Delphi IE11 instance, OleSysErrorOLE A system shutdown has already been scheduled/8150002E
我有一个 Delphi 应用程序，它通过在后台在 IE11 中打开文档并使用默认的 PDF 打印机打印到 PDF 来打印 HTML 到 PDF。这个过程工作正常。 问题如下： （例如我要打印 5 个 HTML 文档到 PDF。） 在第一次运行时，它可以很好地处理第一个文档，但随后会跳过 rest ...
如何在 Delphi 7 中获取当前方法的名称？
[英]How to get current method's name in Delphi 7?
有什么方法可以知道我当前使用的方法的名称吗？ 以便： 会产生这个 output： my name is: SomeMethod ...
如何检测用户 selected.txt 文件是否为 Unicode/UTF-8 格式并转换为 ANSI
[英]How to detect if user selected .txt file is Unicode/UTF-8 format and Convert to ANSI
我的非 Unicode Delphi 7 应用程序允许用户打开 .txt 文件。 有时尝试打开 UTF-8/UNICODE.txt 文件会导致问题。 我需要一个 function 来检测用户是否正在打开带有 UTF-8 或 Unicode 编码的 txt 文件，并在可能的情况下自动将其转换为系统的 ...
使用 Json 加载 ComboBox
[英]Load ComboBox with Json
我正在尝试通过 Json 加载组合框。 我设法做到了，以便在重复循环中迭代时，我在组合框中逐行添加，但我想做一些更简单的事情。 是否可以提供 Combobox.Load(aString)？ 或不需要循环的类似东西？ 我正在尝试这样做以对来自 api 的几个不同的 json 重用相同的 Combob ...
将热键添加到我的 Delphi 应用程序
[英]Adding a hot-key to my Delphi app
假设我有一个表单，上面有一个菜单栏。 我在菜单栏上有一个项目，一个TMenuItem ，我可以为其分配一个快捷键组合，例如Ctrl + I 。 但是，当我为TMenuItem分配ShortCut属性时，它似乎只是更改菜单项的视觉外观以显示快捷方式代码，而不是自动侦听要按下的快捷键并触发我的 Acti ...
Forms 在 Delphi 7
[英]Forms in Delphi 7
Delphi 中有2个代码 7.我需要为他们制作forms 这样所有的变量都是爬虫自己写到表格里的，而不是程序员通过代码写的。 我试图从头开始创建一个表单。 我试图在现成的代码上构建它。 不幸的是，我对 Delphi 7 的编程知识太少，无法理解用相当复杂的语言编写的 forms 的文档。 第一 ...
如何获取delphi中的appdata文件夹路径
[英]How to get appdata folder path in delphi
如何获取 appdata 文件夹路径？ 这是我的代码： 但没有工作。 ...
土耳其大写字母 İ 和 Ş 未出现在可编辑的 TCombobox 字段中，如何强制所有表单元素使用 TURKISH_CHARSET
[英]Turkish capital letters İ and Ş do not appear on editable TCombobox field, how to force all form elements to use TURKISH_CHARSET
在 TComboBox 编辑区域或 TSpeedButton（标题）上使用时，某些大写土耳其字母（例如 İ 和 Ş）显示不正常。 例如，此 İ 显示为带点的 Y。 土耳其小写字母显示得很好。 当在具有默认 ANSI_CHARSET 的 TLabel 上使用时，所有这些都显示正常。 所有组件的字体都 ...
如何在 Delphi 上使用 onDrawColumnCell 更改单元格文本而不使用 textout？
[英]How to use onDrawColumnCell to change cell text without using textout on Delphi?
我想问一下是否有另一种方法可以在不使用TextOut()的情况下更改单元格文本？ 使用TextOut()需要我不想混入的坐标。 此外，我只想更改文本并保留其他所有内容，如颜色、字体、alignment 等。 我的目的是改变不同场景中文本的显示。 例如： 我可能想在不同的列中以不同的格式显示日期字段 ...
TWS API Delphi 中的调度接口问题
[英]TWS API problem with dispinterface in Delphi
我正在使用其他人编写的单元（IB TWS API 9.71）在 Delphi7 中编写一个简单的程序，但我无法处理从该单元向我的程序传递值。 在相反的方向上，一切都没有问题。 这是一段 Unity 代码： 这是我程序中的一段代码： 这写在单元手册中：“ActiveX 事件从系统接收信息并使其可用于应 ...
使用指向 IPv6 地址的主机名连接到 TCP 服务器的 Indy10 问题
[英]Indy10 problem connecting to TCP Server using a host name pointing to an IPv6 address
我在 Windows HOSTS文件中添加了以下内容： 我可以在 Windows 中 ping ip6test ，我可以通过TIdTCPClient使用方括号中的 IPv6 地址连接到服务器，但尝试使用 TCP 使用主机名[ip6test]连接客户端立即失败，并出现套接字错误 11001。 任何想法 ...
解析 json 并使用 ULKJson library7 提取所有 id 值
[英]parse json and extract all id value with ULKJson library7
我想解析 JSON 并提取所有 ID 值并分配，在组合框中显示它们。 我正在使用 ULKJson 库和 Delphi 7。这是我的 JSON 如何访问此 JSON 中的 ID 值？ ...
在设计时捕获 TForm 中的选定元素
[英]Capture selected element in a TForm in design time
我正在制作一个提供有关表单信息的生产力工具。 它的组件之一是 TreeView，它表示表单内对象的层次结构。 现在，当我更改树中的选定节点时，我可以更改表单中的选定项 当树视图选择更改时，我只是使用此代码： 有没有办法以另一种方式做到这一点？ 每当在表单上单击组件时，我都想更改树视图选择。 ...
如何将图像放在 delphi 7 中的消息正文中？
[英]How can I put images in the body of a message in delphi 7?
我正在使用 delphi 7 中的 Indy idMessage object 通过 smtp 协议发送邮件（因此 Indy 版本为 9）。 我以 html 格式发送消息没有问题，但现在我想在消息正文中嵌入图像。 我看到这并不像把： 据我所见，您必须初始化一个 IdAttachment 并在 ht ...
新查询字段的 DBGrid 和 FieldName
[英]DBGrid and FieldName for new query field
我有 DBGrid，但不是我在 Grid (TdxDBGrid) 中可以看到的所有字段 正在向 qPassengers 添加三个新字段（红色 V），但我没有看到这些值。 这是 DBGrid 查询的一部分 然后使用属性SummaryGroups我将新字段放置到我的网格中，但是我没有在属性FieldN ...
如何编译一个 Delphi 源代码文件，以便从带有参数的命令行执行？
[英]How to compile a Delphi source code file for execution from the command line with parameters?
我使用 Delphi 7 IDE。 我想用参数（待定义）从命令行运行 run.exe。 我如何知道我的应用程序是否正在使用 CMD 命令运行？ 如何使用源代码读取参数？ ...
数据集在范围内定位数字
[英]Dataset Locate number within range
我有包含以下数据的数据集： 获奖者姓名优惠券开始优惠券结束约书亚 00001 00010 标记 00011 00020 斯蒂芬 00021 00024 在一个 00025 00025 我可以轻松地使用 Locate 找到例如优惠券 00011 的获胜者，即 Mark，但是如何使用 datas ...