
[英]Record type to temporary variable
如何将记录存储到临时变量并通过 function 传递? 如果我有两条记录,例如: 现在我希望能够做这样的事情: 并且还可以将其恢复为原始类型,例如: 最后一个完整的 function 应该可以做到以下几点: 我尝试过 Variant、TObject、NativeUInt 转换,但似乎没有任何效果。 ...
[英]Record type to temporary variable
如何将记录存储到临时变量并通过 function 传递? 如果我有两条记录,例如: 现在我希望能够做这样的事情: 并且还可以将其恢复为原始类型,例如: 最后一个完整的 function 应该可以做到以下几点: 我尝试过 Variant、TObject、NativeUInt 转换,但似乎没有任何效果。 ...
[英]FreePascal syntax error "invalid qualifier", but it compiles in Delphi 7
下面的代码在 Delphi 7 中编译,但在 FPC 中给出错误。 是否有任何模式开关可以使其编译? ...
[英]Delphi IE11 instance, OleSysErrorOLE A system shutdown has already been scheduled/8150002E
我有一个 Delphi 应用程序,它通过在后台在 IE11 中打开文档并使用默认的 PDF 打印机打印到 PDF 来打印 HTML 到 PDF。这个过程工作正常。 问题如下: (例如我要打印 5 个 HTML 文档到 PDF。) 在第一次运行时,它可以很好地处理第一个文档,但随后会跳过 rest ...
[英]Load ComboBox with Json
我正在尝试通过 Json 加载组合框。 我设法做到了,以便在重复循环中迭代时,我在组合框中逐行添加,但我想做一些更简单的事情。 是否可以提供 Combobox.Load(aString)? 或不需要循环的类似东西? 我正在尝试这样做以对来自 api 的几个不同的 json 重用相同的 Combob ...
[英]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 文件,并在可能的情况下自动将其转换为系统的 ...
[英]Forms in Delphi 7
Delphi 中有2个代码 7.我需要为他们制作forms 这样所有的变量都是爬虫自己写到表格里的,而不是程序员通过代码写的。 我试图从头开始创建一个表单。 我试图在现成的代码上构建它。 不幸的是,我对 Delphi 7 的编程知识太少,无法理解用相当复杂的语言编写的 forms 的文档。 第一 ...
[英]How to use onDrawColumnCell to change cell text without using textout on Delphi?
我想问一下是否有另一种方法可以在不使用TextOut()的情况下更改单元格文本? 使用TextOut()需要我不想混入的坐标。 此外,我只想更改文本并保留其他所有内容,如颜色、字体、alignment 等。 我的目的是改变不同场景中文本的显示。 例如: 我可能想在不同的列中以不同的格式显示日期字段 ...
[英]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 上使用时,所有这些都显示正常。 所有组件的字体都 ...
[英]TWS API problem with dispinterface in Delphi
我正在使用其他人编写的单元(IB TWS API 9.71)在 Delphi7 中编写一个简单的程序,但我无法处理从该单元向我的程序传递值。 在相反的方向上,一切都没有问题。 这是一段 Unity 代码: 这是我程序中的一段代码: 这写在单元手册中:“ActiveX 事件从系统接收信息并使其可用于应 ...
[英]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。 任何想法 ...
[英]parse json and extract all id value with ULKJson library7
我想解析 JSON 并提取所有 ID 值并分配,在组合框中显示它们。 我正在使用 ULKJson 库和 Delphi 7。这是我的 JSON 如何访问此 JSON 中的 ID 值? ...
[英]Capture selected element in a TForm in design time
我正在制作一个提供有关表单信息的生产力工具。 它的组件之一是 TreeView,它表示表单内对象的层次结构。 现在,当我更改树中的选定节点时,我可以更改表单中的选定项 当树视图选择更改时,我只是使用此代码: 有没有办法以另一种方式做到这一点? 每当在表单上单击组件时,我都想更改树视图选择。 ...
[英]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 and FieldName for new query field
我有 DBGrid,但不是我在 Grid (TdxDBGrid) 中可以看到的所有字段 正在向 qPassengers 添加三个新字段(红色 V),但我没有看到这些值。 这是 DBGrid 查询的一部分 然后使用属性SummaryGroups我将新字段放置到我的网格中,但是我没有在属性FieldN ...
[英]Dataset Locate number within range
我有包含以下数据的数据集: 获奖者姓名优惠券开始优惠券结束约书亚 00001 00010 标记 00011 00020 斯蒂芬 00021 00024 在一个 00025 00025 我可以轻松地使用 Locate 找到例如优惠券 00011 的获胜者,即 Mark,但是如何使用 datas ...
[英]How to compile a Delphi source code file for execution from the command line with parameters?
我使用 Delphi 7 IDE。 我想用参数(待定义)从命令行运行 run.exe。 我如何知道我的应用程序是否正在使用 CMD 命令运行? 如何使用源代码读取参数? ...
[英]D7 - How to decode in a PDF file a string encoded in Base64 extracted from an XML file?
我在 D7 环境中工作,在 Win10 上使用 Indy 10.0.52 组件。 我在<Attachment>元素中收到 XML 文件,其中包含以 Base64 编码的附加文件。 使用TIdDecoderMIME组件的DecodeString() function 提取文件。 提取的内 ...
[英]Borland Delphi 5 and 7: exceptions stop to work
我遇到了非常奇怪的行为:在代码异常停止工作的某个点之后。 这是我的测试 function: 然后像这样在我的代码中使用它: 这个测试 function 的想法:只是像往常一样引发异常并确认try... except是否按预期工作。 所以,问题是: try... except语句突然停止按预期工作。 ...
[英]Delphi - check if a Unicode character occurs in a set of characters?
此代码适用于 Delphi-7(直到 Delphi 获得 Unicode 支持): 'м', 'ж' - 西里尔字母符号但是这种结构不适用于 Unicode 字符。 我尝试了很多东西,但它们不起作用。 我还尝试将值类型更改为“Char”和“AnsiChar”。 不起作用: 不起作用: 不起作用: ...
[英]Indy error in Delphi 7: Undeclared identifier: 'hoWantProtocolErrorContent'
使用TIdHTTP发送带有 JSON 变量的GET命令时,有时服务器会返回以下错误: HTTP/1.1 500 内部服务器错误使用 Insomnia 测试 JSON 结果,我看到了完整的 JSON 响应和一个漂亮的响应,清楚地表明了问题所在。 即使响应代码不是 200,我也确实需要填充TStri ...