Delphi与SQL Server之间的冲突
我也有一个在SQL Server中也可以使用的查询，但是当我将其保存在delphi的ado查询中时，它不起作用，并因以下错误而停止： 'GO'附近的语法不正确 但以下代码正确而且没有任何错误。我在sql server中测试过。 下面的代码不是常规代码，因为我从delphi复制并粘贴了它。 我的查询： 创建函数GetTedad（@pfcode INT，@pd
..
delphi-xe相关内容
Delphi DBGrid项目中所有DBGrid的备用行颜色
如何使所有表格在整个表格中看起来都一样？ 我想实现必须在项目的所有网格上应用的备用行颜色。是否可以为每个网格不添加相同的DrawColumnCell事件代码？ 我想避免为每个网格添加相同的代码。我的项目中有30个网格，再乘以13行代码，这只会给我的项目增加很多代码行，使其“不友好”。 我正在寻找一种解决方案，该解决方案只会向项目中添加13行代码，而不是390行。 我的格式设置代码如下（
..
Delphi XE采用一个完整内核（100％CPU使用率）
我的Delphi开始使CPU过热。一旦我开始使用Delphi，就需要一个完整的内核，并且散热器确实开始工作。有什么技巧可以解决此问题？ 我知道，如果我同时使用“ Delphi”和“ bug”这两个字，Stack Overflow上的某些人将开始释放热气，但这确实很讨厌错误，因为它将浪费大量能量（尤其是使用电池），并且由于过热而使计算机过早老化。 更新： 仅当活动选项卡是项目（dp
..
Delphi XML数据绑定错误：“未知数据类型”
我正在尝试从导入的架构中导入包含一些复杂文件的XSD文件。 XML数据绑定向导给我一个“未知数据类型”错误。我在几个论坛中都看到了这个问题，但是看不到解决方案。 这是我要导入的文件。在此处。 是否有任何变通办法或替代工具来为Delphi XE生成XML类？ 编辑： 这个问题可能至少部分重复。 解决方案 好，XSD文件包含以下内容：
..
计算最大字体大小
我正在尝试计算最大字体大小，以使at文本适合TCxLabel的ClientRect。但是我可能无法正常工作。 （参见图片） 字体大小较大，并且未在相应位置绘制thxt。 此处是如何重现： 将tcxLabel放在一个空的Form上，并将标签贴标签给客户端 添加一个FormCreate和FormResize事件： 过程TForm48.FormCreate（Sender：T
..
如何使用Delphi XE的TEncoding将西里尔字母或ShiftJis文本保存到文件中？
我正在尝试使用Delphi XE将与系统不同的代码行中的某些文本行（例如西里尔字母）保存到TFileStream中。但是我找不到任何代码示例来生成这些编码文件？ 我尝试使用与TStrings.SaveToStream相同的代码，但是我不确定我是否正确实现了它（例如WriteBom部分），并且想知道如何在其他地方完成。这是我的代码： FEncoding：= TEncoding.GetE
..
如何从已处理/捕获的异常中获取堆栈跟踪并将其转储到跟踪日志中
我们已经以Bob Swart的白皮书为指导，创建了一个Datasnap服务（使用Delphi XE）。它工作正常，我们已经将其部署到测试服务器。 现在，当我们执行大量请求（通过JMeter）时，出现了一个问题发生某种内存损坏。有些请求成功，有些则失败，并带有访问冲突。最后，它变得如此损坏，以至于对我们的OWN方法（不是DSAdmin方法）的每个请求都以访问冲突作为响应。 但是，由于无法
..
Delphi无效ReadDateTime
以下内容的本质： 过程TForm1.Button1Click（Sender：TObject）; var cfile：TInifile; Date1：TDateTime； 开始 Date1：= IncYear（Now，-50）; cfile：= TInifile.Create（ExtractFilePath（Application.ExeName）+‘Setting
..
Delphi-从TImageList获取位图
我正在将图像添加到此处的图像列表-在运行时使用Delphi XE将png图像添加到图像列表中。从此列表中获取位图并将其保存到硬盘驱动器时，会出现问题。 bmp：= tbitmap.create; imagelist.getbitmap（0，bmp）; bmp.savetofile（） 这种情况出现在很多白色bmp文件中，有些带有'图片'。 LE：示例更
..
不应在设置为nil的对象引用上调用Free每次调用都引发访问冲突吗？
我从 DBXCommon.pas （在Delphi XE中）收到访问冲突。当我查看代码时，会看到类似以下的内容（在感叹号处）： function TDBXConnectionFactory.GetConnection（const DBXContext ：TDBXContext; const ConnectionProperties：TDBXProperties）：TDBXConnect
..
如何获取类型集的任何变量的元素数？
AFAIK没有内置功能。在网络上搜索后，我发现此功能，它对我有用，但是我不愿使用它，因为它是汇编的，我不知道它在做什么。所以我写了这个也可以起作用的函数： 函数基数（const PSet：PByteArray; const SizeOfSet（* inbytes *）：Integer）：整数; const 掩码：字节的数组[0..7] =（1、2、4、8、16、32、64、128）
..
德尔福XE& OmniXML：使用SelectNode（）吗？
在使用最新的OmniXML快照处理的较大XML文件中，有以下XML代码段： 某些公司 John Doe
..
调试信息{$ D +}将我的EXE的大小增加了6MB
Delphi文档说 “调试信息不会影响可执行程序的大小或速度。” 但是，当我激活调试信息时（在项目选项->链接器中），我的EXE从1.8MB变为7MB。 我在做什么错？ 注意：我想在“链接”下的“调试信息”与“编译”下的“调试信息”相同，因为它们具有相同的编译器指令（{$ D}）。 解决方案 您的假设不正确。使用调试信息进行编译意味着编译器会生成具有调试信息的DCU。链
..
调整位图周围的画布大小？
拍摄下图，我将用于以下示例： 当前未裁剪的尺寸为 96 x 71 我想说我想将画布的尺寸调整为 115 x 80 -然后生成的图像应为： 最后，如果我将其尺寸调整为比原始画布小的尺寸，例如 45 x 45 ，输出将如下所示： 这是我到目前为止尝试过的： 过程ResizeBitmapCanvas（Bitmap：TBitmap; H，W：Integer）; var
..
Delphi XE – Datasnap过滤器问题
我有一个使用PC1和Zlib过滤器的tcp / ip Datasnap -XE服务器 在客户端上，这两个过滤器均在DataSnap TSqlConnection中定义 当客户端连接到服务器时，我会收到“连接已正常关闭” 错误消息 如果我仅使用PC1过滤器-没问题 如果我仅使用Zlib过滤器-没问题 关于如何使两个过滤器同时工作的任何想法吗？ 解决方案 直到
..
创建无边界表单而不会丢失Windows命令
我已经将表单更改为无边界表单，只是将 BorderStyle 属性更改为 bsNone ，但是现在我的应用程序丢失了Windows锚点和一些命令，例如 WIN +↑（对齐窗体客户端） WIN +↓（最小化窗体） WIN +→（将窗体右对齐） WIN +←（将窗体左对齐） 我尝试设置 BorderStyle：bsSizeable 并在 FormCreate 中使用以下代码，但这不起
..
在Delphi中使用通配符在字符串中搜索模式？
我以前使用HYPERSTR库进行字符串处理例程。现在，我使用较新的Delphi。我需要搜索字符串中的模式，例如，旧函数为 function IsMatchEx（const Source，Search：AnsiString; var Start：integer）：Integer; 。其实我不需要结果值，我只是想知道模式是否与字符串匹配。 我的旧代码（返回TRUE）： var Sta
..
如何暂时停止控件的绘制？
我们有一个获胜控制对象，该对象将其客户转移到其他一些coordiantes。问题是，当孩子过多时（例如500个控件），代码确实很慢。 一定是因为每次我设置Left和Top属性时，每个控件都会重新绘制。因此，我想告诉WinControl对象停止重新绘制，并且在将所有对象移动到新位置之后，可能会再次绘制（类似于 BeginUpdate 的备注和列表对象之类的东西） ）。我怎样才能做到这一点？ 这是
..
创建和/或写入文件
我觉得这应该很容易，但是Google目前完全让我失望。我想打开一个文件，或者创建一个不存在的文件并写入文件。 以下 AssignFile（logFile，'Test.txt'）; Append（logFile）; 当文件尚不存在时，在第二行抛出错误，我认为这是预期的。但是我真的没有找到如何a）测试文件是否存在，以及b）在需要时创建文件的方法。 FYI
..
是TDirect2DCanvas慢还是我做错了什么？
在寻找替代GDI的替代方法时，我正在尝试在Windows 7中测试Delphi在2010年的 TDirect2DCanvas 性能。 使用Direct2D绘制一条巨大的折线，结果非常缓慢，即使数据量比使用GDI运行相同测试的量少500倍（而且我什至没有在GDI中使用位图作为后备缓冲区，我只是想 所以我想： a） Direct2D比GDI慢； b） TDirect2DCanv
..