delphi-7相关内容

在Delphi 7中处理海量文本文件数据的最佳解决方案

我有这样的文本文件： “ 01”，“ AAA”，“ AAAAA” “ 02“，” BBB“，” BBBBB“，” BBBBBBBB“ ” 03“，” CCC“ ” 04“，” DDD“，” DDDDD“ 我想将此文本文件数据加载到sybase db中的temp表中。因此，我需要构建一个程序来逐行读取该文本文件直到eof。如果文本文件很小，则逐行读取的过程将很快。但是， ..
发布时间：2020-10-20 06:57:15 其他开发

如何为特定控件创建自己的自定义提示？

我需要为特定控件（而不是整个应用程序）创建自定义提示窗口（具有自己的颜色和布局） 提示文本本身不会被连接到特定的提示属性控件。 根据建议，我为写了一个处理程序CM_HINTSHOW （如果控件具有 ShowHint = True ，则可以正常工作）： 过程TMyControl.CMHintShow（var消息：TMessage）; 开始 Form1.caption：='x'; ..
发布时间：2020-10-20 06:50:58 其他开发

用于调试的Delphi编译器选项

下图中的选项对最终的二进制文件有什么影响？ 我首先在启用它们的情况下编译了我的应用程序，并且编译后的二进制文件大小为7,606,272字节。然后我手动将其关闭...大小没有变化。我还使用了这些编译器开关（使用.inc文件包含在每个文件中）来完成相同的操作： {$ D -} //删除“调试信息” {$ L-} //删除“本地符号” {$ Y-} //删除“仅参考信息/定义” ..
发布时间：2020-10-20 06:42:35 其他开发

在Delphi 7中相当于Unicode的chr

我需要在Delphi 7中初始化一个Widestring，但是我不能使用 chr 是ANSI的函数 var ws：宽字符串； 开始 ws：= chr（$ FFFF）+ chr（$ FFFF）+ chr（$ FFFF）; 结尾； 我可以使用什么，然后呢？ 谢谢 解决方案 我不确定是否有一种简单的方法可以完成您想要的事情。您可以通过简单的转 ..
发布时间：2020-10-20 06:41:00 其他开发

使用带有嵌入式图片的Indy 9发送电子邮件

我正在尝试将具有Indy 9的SMTP通过SMTP发送html电子邮件的功能添加到我的程序中。如果该程序仅包含文本（文本将以希伯来语显示，那么我需要从右到左显示它）我正在使用HTML语句），则可以正确发送电子邮件。我的问题在于将图片嵌入HTML流中。 HTML流将使用 虽然 ..
发布时间：2020-10-20 06:38:40 其他开发

如何访问FastMM4的RegisterExpectedMemoryLeak？

我正在使用Delphi的fastMM内存管理器，尝试使用完整调试模式时失败。 编译时出现以下错误： FastMM\ FastMM4.pas（6872）错误：未声明的标识符：'RegisterExpectedMemoryLeak' FastMM\FastMM4.pas（6948）错误：未声明的标识符：'UnregisterExpectedMemoryLeak' FastMM\Fas ..
发布时间：2020-10-20 06:36:24 其他开发

使Delphi 7在源代码管理中发挥出色？

您好，我最近一直在Delphi 7项目中工作，而不断困扰我的一件事是* .dfm文件。每当我什至打开一个表单时，它都会更改.dfm文件。 例如，此差异仅通过打开项目并查看文件和表单来完成（注意，我没有对表单本身进行任何更改） @@ -1,6 +1,6 @@ 对象FormPartnerInfo：TFormPartnerInfo -左= 85 -顶部= 454 +左侧= 554 ..
发布时间：2020-10-20 06:36:11 其他开发

有什么办法可以在Delphi 7中折叠代码？

我知道这是一个漫长的过程-但是有什么办法可以将代码折叠到Delphi 7中？ 我正在研究..”次优”代码。有时我真的需要折腾一下，以完成一个愚蠢的程序。目前，我正在将代码粘贴到Notepad ++中，该代码可以正常工作，但是最好在IDE中使用它。 解决方案 在常见问题解答（针对GExperts）上进行“方法折叠”，您甚至会看到该团队，它为Delphi增添了许多增强功能，但认为Delp ..
发布时间：2020-10-20 06:28:00 其他开发

如何在Delphi中结合重载和stdcall？

我有一个导出该函数的SOAP数据模块 function MyFunction（MyParam1，MyParam2）：boolean; stdcall; 我可以从另一个exe使用此功能。一切正常。 现在，我想在其所在的同一项目中使用相同的函数。我将其单元添加到了uses子句中，但它无法识别它（我有未声明的标识符）。然后，我添加了一个重载，但无法正常工作。 ..
发布时间：2020-10-20 06:27:32 其他开发

收集所有活动的窗口类名称

许多程序（True Transparancy等）都可以在后台窗口类名称中获得所有活动或运行，例如： Delphi 7 Object Inspector名称为 tpropertyinspector Opera主窗口类名称为 operawindowclass 等 那么如何在Delphi中获取任何打开的窗口类名称？ 解决方案 调用 EnumWindows 获取所有顶级窗口 ..
发布时间：2020-10-20 06:13:17 其他开发

TypeCasting：下面两行代码之间有什么区别？

下面两行代码之间的区别是什么。两者都试图获取路径，一个正在工作，另一个正在抛出错误。我正在使用Delphi-7 Path：=（（（（FFormOwner as TForm）.Designer）as IDesigner）.GetPrivateDirectory; -工作 路径：= IDesigner（TForm（FFormOwner）.Designer）.GetPrivateDirector ..
发布时间：2020-10-20 06:08:11 其他开发

Delphi 7-如何使用Inputbox

我正在编程一个程序，您必须在其中输入密码才能访问程序的min features。但是，如果您在输入框上单击“取消”，我的程序将显示错误消息。所以我想知道是否有人知道我如何做到这一点，因为使用Messagedlg我知道您使用IF。但是，如何使用InputBox使其正确呢？ 解决方案 InputBox（）如果取消了对话框，则返回空白字符串，例如： var Pass：字符串； ..
发布时间：2020-10-20 06:07:44 其他开发

Delphi从SQL数据库填充组合框项目

我想用SQL数据库中的数据填充组合框，但是它不起作用。我的查询与数据库有连接，查询的SQL属性字段是 select * from provider_table Query1.SQL.Clear; Query1.SQL.Add（’从provider_table中选择名称，其中region_code =‘+ quotedstr（’eng’）’）; Query1.Open; 而不是 ..
发布时间：2020-10-20 05:54:48 其他开发