我想创建一个警告对话框,询问用户注册期间输入的信息是否正确,并询问他是否要继续或关闭该对话框并更正其信息. var td: TTaskDialog; tb: TTaskDialogBaseButtonItem; begin td := TTaskDialog.Create(nil); try td.Caption := 'Warning'; td.Text := '

在我的应用程序中,我需要复制超过1000个小文件 这是我正在使用的代码,但它非常慢 有没有更好的方法呢？ procedure Tdatafeeds.RestotreTodaysFiles; var SearchRec: TSearchRec; FromFn, ToFn: string; Begin if DirectoryExists(BackupPath1) then b

在处理多用户聊天应用程序时,我一直困扰着让多字节字符在TServerSocket / TClientSocket上工作. 这是客户端将消息发送到服务器的部分： procedure TChatForm.SendBtnClick(Sender: TObject); var str : string; begin str := MsgLabel.Text; ClientSocke

我正在使用Delphi 2009 Pro,并试图找出为什么代码完成在我的设置中如此之慢.无论何时调用代码完成,IDE都会锁定最多30秒,这实际上会中断任何工作流程. 使用BDS 2006时,与Delphi 2009相比,代码完成速度极快. 阅读 this post之后,Delphi 2009似乎是正常的,但只是关闭自动代码完成并不是我想做的任何事情. 我的问题是： 如果我切换到Delphi 201

当在Delphi中打开包含继承的T ImageList的表单时(在这种情况下为2010,但它可以用于其他版本),IDE总是(我找不到任何押韵或节奏)将图像数据再次添加到继承形式.然后,这会增加可执行文件的大小.任何人都知道为什么,以及如何阻止它发生？我再说一遍,图像没有改变. 我所做的是将imagelist放在数据模块上,然后将其添加到forms uses子句中.表单设计器将能够看到图像列表

我编写了一个组件,它应该存储一些与项目目录相关的信息.每次更改组件的属性时,都应该写一个文件.那么组件如何在设计时确定当前项目目录. 提前致谢 编辑： 我想在每次更改组件的属性时生成delphi源文件,以便在编译代码时始终获得最新版本.可以把它想象成一种代码生成器. 目前我设置了存储源的整个路径和文件名,但我更喜欢项目的相对路径(或包含我的组件的表单/ datamodule),以便更容易在不同的开

我构建了类系统 TTableSpec=class(Tobject) private FName : string; FDescription : string; FCan_add : Boolean; FCan_edit : Boolean; FCan_delete : Boolean; FFields : array[1..100] of TF

我正在为我的应用开发实时更新.到目前为止,我已经创建了几乎所有的单元测试,但我不知道如何测试连接到FTP服务器并下载新版本的特定类. 要测试这个类,我应该创建一个FTP测试服务器,并在我的单元测试中使用它？如果是这样,我如何确保这个FTP服务器始终与我的测试一致？我应该在测试开始之前手动创建我需要的每个文件,还是应该在我的测试类中自动化(拆除和设置方法)？ 这个问题也适用于连接任何类型的服务器的单

在启用主题的Delphi 2010应用程序中,我有一个带有clMoneyGreen背景的窗体中的两个TPageControl(一个在另一个)中： 外页控件使用父组件的颜色正确绘制其背景,内页控件使用clBtnFace(图像中的红色省略号)而不是其父控件(TTabSheet)的白色绘制其背景.有没有办法解决这个问题,而不是将页面控件返回到其Windows经典外观(失去Windows主题)？ 我在Go

我正在使用Delphi2010企业更新4. 当我在IDE中打开我的项目并显示主体代码时,有2个单位名称以红色表示. xxx http://img268.imageshack.us/img268/6475/unitnameunresolved.png. 我已经验证了单元源的路径在库路径和浏览路径中. 令人惊讶的是,当我右键单击该单元并选择在光标上打开文件时,它可以工作(即,delphi打开正确的单位

我希望MessageDlg以其父表单为中心. 关于如何在Delphi 2010中完成这项工作的任何建议？ 我在下面找到了这个代码：http://delphi.about.com/od/formsdialogs/l/aa010304a.htm,但对我来说并不行.弹出窗口仍然不是以所有者形式为中心. (对我来说,方法实际上不知道所有者的形式是不清楚的) function TForm1.MessageD

我有一个应用程序,它有多种形式.所有这些形式都有一个PopupMenu.我以编程方式构建菜单项,全部在通用的根菜单项下.我想要所有菜单项调用相同的过程,菜单项本身基本上作为一个参数…. 当我有一个表单做这个功能时,我有这个工作.我现在有多种形式需要这样做.我将所有的代码移动到一个共同的单元. Example. Form A has PopupMenu 1. When clicked, call

有谁知道一个代码,我可以用来计算指定目录中的文件夹数量？ 我知道的最简单的代码是使用IOUtils单元的TDirectory： function GetDirectoryCount(const DirName: string): Integer; begin Result := Length(TDirectory.GetDirectories(DirName)); end; TDirector

我试图修改我的Delphi 2010代码在XE7中编译(并希望保留在2010年编译的能力).所以在安装我的主窗体的单元中,我添加了条件指令.以下工作在2010年正常 uses {$IF CompilerVersion >= 24}System.Actions, {$ELSE}Actnlist,{$IFEND} Windows, Messages, SysUtils, Classes, G

我有我的自定义类扩展TEdit： TMyTextEdit = class (TEdit) private fFocusNextOnEnter: Boolean; public procedure KeyUp(var Key: Word; Shift :TShiftState); override; published property FocusNex

首先,有关我的情况的一点解释： 我有一个由不同类实现的示例接口,这些类可能并不总是具有共享祖先： IMyInterface = interface ['{1BD8F7E3-2C8B-4138-841B-28686708DA4D}'] procedure DoSomething; end; TMyImpl = class(TInterfacedPersistent, IMy

我的自定义类女巫来自TButton： TLoginResultEvent = procedure (Sender: TObject; LoginResult: boolean) of object; TLoginButton = class(TButton) private fLogin: TLoginChooser; fOnClick: TLoginResultE

我正在编写一个类,将宽字符串保存到二进制文件.我正在使用Delphi 2005,但该应用程序将被移植到Delphi 2010.我在这里感到非常不确定,有人可以确认： > Delphi 2005 WideString与Delphi 2010 String完全相同 > Delphi 2005 WideString char以及Delphi 2010 String char保证始终为2个字节大小. 使用

我试图为我制作的自定义组件制作一个包.它基于几个库,包括Graphics32,GraphicEx和CCR.Exif. 我创建了一个Package项目,写了该单元,包括其注册过程,添加了一些额外的引用Delphi通知我关于require部分(包括dbrtl.dcp,inet.dcp,soaprtl.dcp,vclimg.dcp,xmlrtl.dcp和dclGraphicEx140). dcp),并添

有没有任何编译器选项让编译器给我一个错误,而不是一个警告,当我实例化一个抽象类？ Foo = class procedure Bar; virtual; abstract; end; var f : Foo; begin f := Foo.Create; // <-- should give me a compile time error end; 在Delphi 20