delphi-7相关内容

Delphi 7-如何使用标题从列表视图中删除项目

我正在尝试根据标题删除列表视图项,但是我找不到解决方案,删除索引的唯一方法是使用索引: listview1.Items.Delete(0); 有人可以帮助我通过标题删除项目吗? 解决方案 您可以使用类似的方法,该方法试图找到标题为 ListItem >项目2 ,并在找到它后将其删除: 过程TForm1.Button1Click(发件人: TObject) ..
发布时间:2020-10-20 18:44:49 其他开发

Delphi-检测Int64溢出错误

在Delphi中,如何检测 Int64 的溢出错误? 对于整数,我们可以这样做: type MyInt =整数; // Int64 函数TryMaxTimes10(out Res:MyInt):boolean; var a,b:MyInt; 开始 {$ Q +} 试试 a:=高(MyInt); b:= 10; Res:= a * b; // REF1 ..
发布时间:2020-10-20 18:44:45 其他开发

Delphi-如何获取Windows驱动器的总磁盘空间?

我需要获取Delphi程序中的总磁盘空间。 解决方案 使用DiskSize和DiskFree函数可以解决此问题。 ComboBox1包含驱动器号列表。 var 磁盘:整数; ... 过程TForm1.Button1Click(Sender:TObject); var 总计,免费:LongInt; 开始 总计:= DiskSize(Disk)div 1024; ..
发布时间:2020-10-20 18:44:33 其他开发

更新Windows资源管理器中显示的可用空间量

如何更新驱动器在Windows资源管理器中显示的可用空间量? 假定Windows资源管理器已打开,并且已通过编程方式删除了一些文件。 Windows资源管理器将不会刷新以显示新的可用空间。 因此,我尝试使用 SHChangeNotify 像这样(Delphi代码): ws:='C:\'; SHChangeNotify(SHCNE_FREESPACE,SHCNF_PATH, ..
发布时间:2020-10-20 18:44:29 其他开发

在多个应用程序之间共享ADOConnectionString-Delphi

我正在使用Delphi 7,SQL Server 2008 R2,并且正在使用ADO连接到数据库。 我的连接字符串: Provider = SQLOLEDB.1;集成安全性= SSPI;持久安全性信息= False;初始目录= TESTDataBase;数据源= TestDataSource 当我建立TADOconnection.Connected到True Connectin字 ..
发布时间:2020-10-20 18:44:26 其他开发

如何有效地检测逻辑和物理处理器的数量?

当前我正在使用此功能。它工作正常,但每个查询大约需要1秒钟。因此,就我而言,我在应用程序中浪费了3秒。目前,我正在考虑使用3个线程在一秒钟内获取所有信息。 function GetWMIstring(wmiHost,wmiClass,wmiProperty:string):string; var // WMI查询过程都需要这些 Locator:ISWbemLocator; 服务:I ..
发布时间:2020-10-20 18:44:22 其他开发

Delphi 7 TRichTextEdit框中的文本无法正确显示

使用delphi 7 TRichEdit组件,正在通过复制和粘贴从msword文档中导入RTF数据,但是如果数据包含在框中,则无法正确显示,即 请协助 解决方案 尝试使用以下内容,它应该将 TRichEdit 类到版本4.1。但是我不知道Delphi 7是否支持插入的类,因此只需尝试粘贴以下代码并尝试构建项目。 如果它可以编译,则可以放置 TRichEdit 组件并运行项目,您应该 ..
发布时间:2020-10-20 18:44:18 其他开发

如何在delphi中获取appdata文件夹路径

我如何获取appdata文件夹路径?这是我的代码 开始 Winexec(PAnsichar('%appdata%\TEST。 exe'),sw_show); 结尾; 结尾。 但不起作用。 解决方案 您不能将环境变量传递给 WinExec()。您必须先解决它们,例如: uses ...,SysUtils; 函数GetPathToTestE ..
发布时间:2020-10-20 18:44:15 其他开发

JclMapi Mapi一般失败

我有代码: 过程TfrmMain.btnSendClick(Sender:TObject); var aMail:TJclEMail; 开始 aMail:= TJclEMail.Create; Screen.Cursor:= crHourGlass; 试试 aMail.Recipients.Add(’service@blabla.com’); aMail.Subjec ..
发布时间:2020-10-20 18:36:29 其他开发

在Tedit Delphi中更改角色

对不起,我的英语不好。如果我在第一个TEdit中有文本“ Kamu”而在第二个TEdit中有“ Dia”文本,其中字符为“ a”,而在第三个TEdit中将其更改为“ i”,那么如何在TEdit中阻止字符? 解决方案 使用 StringReplace 。 NewValue:= StringReplace(OldValue,'a ','i',[rfReplaceAll,rfIgnore ..
发布时间:2020-10-20 07:37:52 其他开发

delphi创建组件模板

我正在使用Delphi应用程序。我创建了如下所示的表单: 我想通过代码使用该控件制作组件。但是不能通过 component->创建组件模板->来完成。 我如何制作组件模板 >通过 delphi代码变形。 提前感谢。 解决方案 或者,如果您希望将该组控件作为一个组件安装,则可以安装将这样的单元放入某个程序包: unit EditGroup; 界面 使用 Sy ..
发布时间:2020-10-20 07:31:05 其他开发

文件mydatabase.fdb的不受支持的磁盘结构

我的旧delphi 7应用程序正在使用devart Interbase驱动程序与mydatabase.fdb连接。当我将该应用程序迁移到delphi xe4时,我为delphi xe4安装了最新版本的devart interbase。但是使用此版本时,出现以下错误: 文件mydatabase.fdb不支持的磁盘结构 此错误的原因是什么?我应该如何摆脱它? 我找到了链 ..
发布时间:2020-10-20 07:29:51 其他开发

在Indy 10和Delphi中编码

我在Delphi中使用Indy 10。以下是我的代码,该代码使用Indy的 EncodeString 方法编码字符串。 var EncodedString:字符串; StringToBeEncoded:字符串; EncoderMIME:TIdEncoderMIME; .... .... EncodedString:= EncoderMIME.EncodeString ..
发布时间:2020-10-20 07:19:34 其他开发

TPanel颜色为黑色,无论如何

我刚刚在Windows XP中激活了主题(通常我使用的是经典的Win9x外观),并且看到两个面板是纯黑色的。其他面板也可以(颜色= clBtnFace)。 这两个面板的共同点是其父面板。两者都直接放置在TForm上。如果我将它们移到其他父级(例如另一个面板),则它们具有适当的颜色。 Delphi 7,win xp pro 解决方案 这是另一个宏伟的概念德尔福错误。我开始从项目中删除 ..
发布时间:2020-10-20 07:17:23 其他开发

TWebBrowser是否使用IE更新?

我在D7应用程序中使用TwebBrowser。问题是:当我升级IE时,此组件将使用新的IE呈现页面吗? 解决方案 是。 TWebBrowser 在 SHDocVw 单元内部在内部创建 IWebBrowser2 OLE控件。 此接口使用已安装的Internet Explorer(如此处所述)。 ..
发布时间:2020-10-20 06:57:22 其他开发

Delphi / Windows组合框中的空字符串导致访问异常

我有一个Delphi 7.0应用程序,它每次在与组合框关联的字符串列表中写入一个空字符串时,都会引发一个内存访问异常/消息框: csvstrlst:= combobox1.Items; csvstrlst.clear; csvstrlst.add(’’); //问题 csvstrlst.add(’a’); //没问题 csvstrlst.add(’’); //问题 csv ..
发布时间:2020-10-20 06:57:19 其他开发