问题标签 [delphi-10-seattle]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
505 浏览

delphi - 使用 Delphi 10 编译 SelectDirectory 第三次重载

为什么编译不出来?看起来很简单,但我不明白......是字符串数组的问题吗?错误是:

这是代码:

0 投票
1 回答
1117 浏览

delphi - Delphi 10 Seattle 更改为 Win32 GetPath 和冗余 TPoint 和 _POINTL 记录类型

我正在尝试将一些在 Delphi XE8 中工作的代码移植到 Delphi 10 Seattle。此代码调用 Winapi.Windows 中的 GetPath 函数。

新的 Win32 API 函数签名是:

在 XE8 中,以前该函数具有“var Points,Types”,通常称为“var untyped”参数。

修复代码以与 Delphi 10 Seattle 一起工作意味着“统一”应用程序代码中的任意类型以准确使用单元本身中声明的类型。然而令我困惑的是,有两种类型,PPointL 和 TPoint,当我让 GetPath 函数工作时,它填充的数据被填充到一个 _POINTL 记录数组中,在 Winapi.Windows 中如此声明:

但是,还有另一种类型 TPoint,在 System.Types 中声明:

在其他地方,对于 32 位和 64 位 Windows,FixedInt 都别名为 Longint,因此至少在 Windows 平台上,据我所知,TPoint 和 _POINTL 是等效的。

如果现有的应用程序组件代码都使用名为 TPoint 的类型,如下所示:

...我对 Delphi 10 中 RTL 源内部的实际情况有什么意义?我应该如何解决这个问题?在单元级别将 TPoint 别名为 _POINTL?

我该如何解决这个问题并继续?由于此代码是一个商业组件,我想我会等到供应商解决这个问题,但是,我认为理解 RTL 中的 _POINTL 和 TPoint,以及为什么这些结构在定义中是冗余/重复的,会有所帮助其他人将低级 Win32 代码从 Delphi XE8 移植到 Delphi 10 Seattle。

更新:作为一种解决方法,我发现我可以重新声明函数 GetPath 的导入,并让它在我自己的私有单元实现区域导入中保持为 var untyped,然后继续:

0 投票
1 回答
2253 浏览

delphi - Delphi Seattle 默认字体很大

Delphi Seattle 默认字体很大,我不喜欢。

试图改变它,就像我用 XE8 用脚本做的那样

但它不起作用,这在西雅图德尔福是如何处理的?

在此处输入图像描述

0 投票
0 回答
140 浏览

multithreading - 如何将数据存储在 TTask 实例中以备后用?

我的目标是在运行之前将一些数据(TValue)存储在 TTask 实例中,然后在任务中使用它。我想使用匿名处理程序而不是 TNotifyEvent 处理程序。

像这样的东西:

然后像这样使用它:

因此可以通过Task的实例访问数据。

我正在考虑从 TTask 继承,但这很棘手,可能不是最佳选择。

有没有其他方法可以使用 RTTI 或其他方式将数据存储到 TTask 中?

我使用 Delphi 10 西雅图。

0 投票
1 回答
1796 浏览

delphi - Delphi - 在西雅图更改编辑器背景颜色

在以前的 Delphi 版本中,在选项中更改此背景颜色设置就足够了:

选项

但是在西雅图,底部仍然有这个白色区域。

例如,在 XE8 中,所有东西都会被着色:

xe8

现在在西雅图:

西雅图

我在这里遗漏了一些明显的东西吗?

0 投票
1 回答
1294 浏览

sql-server - 无法在 mORMot 中正确设置 SQL Server 连接

我尝试设置与 SQL Server 的连接并捕获错误

错误信息:

项目 app_.exe 引发异常类异常,并带有消息“类 {3E9B315B-F456-4175-A864-B2573C4A2101} 的对象工厂丢失。要注册它,您可以将组件 [TFDPhysXXXDriverLink] 拖放到您的项目中。

连接到 SQL Server 并公开 REST 服务的正确方法是什么?

0 投票
1 回答
881 浏览

delphi - 如何在 Delphi 10 Seattle 中设置默认系统样式?

我正在尝试将一些在 Delphi XE8 中工作的代码移植到 Delphi 10 Seattle。

这段代码设置了我程序的默认系统样式,但是在 Delphi 10 Seattle 中不存在 SetSystemStyle 方法。

0 投票
3 回答
2183 浏览

delphi - 比较 AnsiString 的最快方法

检查 AnsiString 是否等于其他 AnsiString 的最快方法是什么?

目前我这样做是为了检查字符串是否相等:

还有什么是检查一个 AnsiString 是否包含另一个 AnsiString(不完整检查)的最快方法?

为此,我正在使用:

0 投票
1 回答
850 浏览

delphi - dccosx 致命错误

我想在 Rad Studio Seattle 下编译我的 Rad Studio XE8 Delphi 项目。

为 Win32 和 Win64 平台编译是成功的。但是当我尝试用 OSX 编译项目时,总是出现编译错误:

[dccosx 致命错误] F2084 内部错误:AV0CAF8963-R00000014-0

如果我尝试用一​​个简单的 TButton 编译一个新的多设备应用程序,我也会得到相同的编译错误。

0 投票
1 回答
4433 浏览

listview - 在 RAD Studio 10 Seattle 中,我的 ListViews 的属性“.Text”和“.Detail”带有下划线作为错误。我该如何解决?

我刚刚下载了 RAD Studio 10 Seattle 并打开了我在 RAD Studio XE8 中开发的程序。在 XE8 中,我的程序绝对没有错误。但是,当我在 10 Seattle 打开程序并尝试运行它时,它给了我大约 60 个错误。我查看了我的代码,“listview.items.item[].text”和“listview.items.item[].detail”的所有实例都加了下划线。当我查看“listview.items.item[]”的可能属性时,“.text”和“.detail”都不存在。你如何解决/解决这个问题?

在此先感谢,乔治。