我有一本德尔福词典，TDictionary<key,value>里面有几万对。值是带有字符串的记录。我需要根据某种条件一次性删除大约 10..90% 的对（通过按键，如果这很重要）。过滤器/条件预先未知。问题是如何有效地做到这一点（不浪费额外的时间和内存）？
例如，这是不正确的（在Delphi 11中），会留下额外的元素：
for var i in Dict.Keys do
if i ... then
Dict.Remove(i);
如果是TList<>，那么一切都很简单 - 我们从尾部迭代到头部Delete(I)（或者更好的是，使用第二个计数器，替换不必要的元素并在末尾切断）。
我需要存储键（字符串）-索引（数字）-值（字符串）的组合，以便能够：
所有键-键对都是唯一的。索引是单调的（例如从 0 到 10,000）。数据到达时未排序。排序并不重要。
当前的实现 - 2 个对称字典 + 列表：
TKMLibraryKey = string;
TKMLibraryLine = string;
fText: TList<TKMLibraryLine>;
fDictionaryKeyIndex: TDictionary<TKMLibraryKey, Word>;
fDictionaryIndexKey: TDictionary<Word, TKMLibraryKey>;
内存占用 -(V, K + I, I + K) * n
如何才能让这变得更容易呢？也许有某种带有对称对的字典，比如键-键？这样你就可以将自己限制在两个集合中：
fText: TList<TKMLibraryLine>;
TBiDiDictionary<TKMLibraryKey, Word>;
仅基于标准类，无需任何外部库。
我的电脑有 2 个交替使用的输入设备 - 鼠标和图形输入板 (Wacom)。如您所知，鼠标生成相对坐标（类型为X +5 Y +1），而数位板生成绝对坐标（类型为X 567 Y 876）。Windows 获取它们并将它们转换为绝对值，然后再将它们发送到应用程序。
如何在事件处理程序中确定事件OnMouseMove来自哪个设备，以及新坐标是由相对输入设备还是绝对输入设备生成的？理想情况下 - 从输入设备查看“原始”事件。
我看到添加的标志ssTouch ssPen中有标志（内部调用MSDN），但似乎它们指的是平板电脑，而不是单个平板电脑作为输入设备。TShiftStateMouseOriginToShiftStateGetMessageExtraInfo
我也听说有RAWMOUSE structure (winuser.h)/ MOUSE_MOVE_RELATIVE（MOUSE_MOVE_ABSOLUTEMSDN ），但是怎么用还不清楚。
我需要一个标准的 VCL 控件，它允许您选择沿 4 个边缘的帧的存在、颜色和厚度。TShape 允许您设置一个框架，但它对所有 4 面都是“通用的”，但我需要单独配置的。Delphi 的标准交付需要该控件（即，不安装任何左包），最好是TShape 类型（更改操作系统/应用程序样式时无需样式。也就是说，越简单越好）。
标准VCL中是否有这样的控制？（剧透：他们说不）
这样的控制如何创造出最低的血量？（即不制作必须安装在所有开发机器上的新组件）。
TPanel 提供了类似的功能 - 您可以以有限的方式选择斜角类型、厚度和侧面，但您不能设置颜色或仅设置边缘（没有“照明”效果）。
TBevel - 您可以以有限的方式选择斜角的边，但不能指定颜色或厚度。
PS 我知道创建自己的控件，但在急于编写我的自行车之前，我想检查一下“常规”方法的可用性。
PPS 是可取的控制，而不是在画布上绘制的一种方式。
为了工作方便，我想用常量设置一些限制。例如：
const
MAX_BUFFERS = 16;
MAX_SOURCES = 32;
MAX_SOUNDS = 16;
一些常数是相互依赖的。我想链接它们。但是，这段代码不起作用，因为 该函数被称为：
const
MAX_BUFFERS = 16;
MAX_SOURCES = 32;
MAX_SOUNDS = Min(MAX_BUFFERS, MAX_SOURCES);
如何为其他两个常量中的较小者分配一个常量值？
我有一个启动多个子应用程序的主应用程序（自身的副本，但在命令行上有不同的开关）。在运行时，子应用程序会做一些工作，而主应用程序会收集并汇总它们的结果。如果主应用程序正常关闭，则它会停止所有子应用程序。但是，有时，向导会异常关闭（例如，它崩溃或被任务管理器杀死）。在这种情况下，所有子应用程序继续工作..您必须手动结束它们。
想到的选项：
哪种方式是正确和最优的？
子应用程序如何跟踪主应用程序已关闭？
算法问题的名称是什么，我们有一个我们需要的项目列表（比如：A、B、C、K、L、M），而交易对手有一组项目（比如：ABZH , VKO, VLM, AMN, K) 与每套价格，我们需要找到最便宜的一套，可以提供我们需要的所有物品吗？重复或额外的项目并不重要。最重要的是获得我们清单上的物品并最大限度地降低价格。
需要算法的名称，因为 这个问题可能早已为人所知，并且有最佳解决方案。
在构建报表时，我们设置了模板页面的大小以及报表元素的相对位置，单位为毫米（例如，297x210）和厘米（例如，模板中的典型行高0.50）。同时，报表元素的所有大小和相对位置，当从脚本访问时，都以其他一些单位指定（模板中的行高相同0.50，但在脚本中 - 18.89765）。
问题是 - 脚本中的这些测量单位是什么，以及如何将它们转换为厘米/毫米？
当应用程序处理大量数据时，我想启动一个单独的后台线程并监控应用程序占用的 RAM 量。通过类比任务管理器如何显示分配给应用程序的内存。可以使用什么方法/函数从正在运行的程序中找出来？最好是 RTL 而不是 WinAPI。
计算方法（是否统计已用DLL的内存，是否考虑swap中的卸载等）并不是很基础。我对数十或数百兆字节的动态更感兴趣。因此，将优先考虑最简单的测量方法，而不是最“准确”的测量方法。
Windows 操作系统，x32 应用程序。
（英语中的类似问题）
我正在 Delphi 10.3 Rio 中编写一个 Android FMX 应用程序。我在图库中选择了一张照片（通过TJIntent.JavaClass.ACTION_OPEN_DOCUMENT）并以 Jnet_Uri 的形式获取它们的路径。这适用于读取 EXIF（使用 TJExifInterface）。我现在如何将这些照片上传到流 (TStream) 以便进一步使用它们？
当我尝试使用将 Jnet_Uri 转换为路径uri.getPath时，我得到了/document/image:26591. uri.toString产生类似 - 的东西content://com.android.providers.media.documents/document/image%3A26674。TMemoryStream.LoadFromFile无法通过以下方式加载数据：
无法打开文件“/document/image:26724”。没有这样的文件或目录
无法打开文件“/content:/com.android.providers.media.documents/document/image%3A26724”。不是目录
因此问题是——如何知道文件的 Jnet_Uri 将其内容加载到 TStream 中？
用一个简单的登录表单在 Delphi 中编写了一个简单的 Android 应用程序。问题是，当我在智能手机上运行它时，应用程序启动正常，但显示错误消息“找不到 Class TFormLogin”（FormLogin 出现后大约 100 毫秒）。无论如何，FormLogin 都会按预期创建和工作。在消息上单击确定后，应用程序继续正常工作。
消息“Class TFormLogin not found”是什么意思以及如何删除它？
附言 我已经解决了问题，我会说这里涉及到StyleBook。
评论要求制作 MCVE。该错误在新的空多平台项目中重现，PAS 或 DPR 中没有任何代码。这个 FMX 就足够了：
object Form1: TForm1
StyleName = 'bg'
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 480
ClientWidth = 640
StyleBook = StyleBook1
StyleLookup = 'bg'
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object StyleBook1: TStyleBook
Styles = <
item
end>
Left = 304
Top = 224
end
end
我正在使用 Delphi 10.3 Community Edition 编写一个简单的 Android 应用程序并尝试在其中调用本机相机，但出现错误。
遵循官方指南：
在表单设计器上，选择按钮（用于拍照）。在 Object Inspector 中，选择 Action 属性的下拉列表。选择新标准动作 | 媒体库 | TtakePhotoFromCameraAction:
在事件选项卡上，展开操作节点，然后双击 OnDidFinishTaking 事件。
将以下代码添加到 OnDidFinishTaking 事件处理程序：
procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap); begin Image1.Bitmap.Assign(Image); end;此代码将从移动设备相机拍摄的图片分配给 TImage 组件的 Bitmap 属性。
我检查了使用相机的权限是（项目|选项|使用权限 - 相机）。我还在应用程序启动时请求所有必需的权限。在 Debug 和 Release 中，行为是相同的。
但是..当我点击按钮时，我得到一个错误：
java.lang.NullPointerException：尝试在空对象引用上调用虚拟方法 'android.content.res.XmlResourceParser android.content.pm.PackageItemInfo.loadXmlMetaData(android.content.pm.PackageManager, java.lang.String)'。
这是我的最小测试代码：
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Permissions,
FMX.StdCtrls, FMX.MediaLibrary, FMX.Platform, System.Messaging, FMX.Objects,
System.Actions, FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions,
FMX.Controls.Presentation;
type
TForm1 = class(TForm)
Button1: TButton;
ActionList1: TActionList;
TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
procedure FormCreate(Sender: TObject);
private
procedure PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
end;
var
Form1: TForm1;
implementation
uses
{$IFDEF ANDROID}
Androidapi.Helpers,
Androidapi.JNI.JavaTypes,
Androidapi.JNI.Os,
{$ENDIF}
FMX.DialogService;
{$R *.fmx}
procedure TForm1.PermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
begin
// 3 permission involved
if (Length(AGrantResults) = 3)
and (AGrantResults[0] = TPermissionStatus.Granted)
and (AGrantResults[1] = TPermissionStatus.Granted)
and (AGrantResults[2] = TPermissionStatus.Granted) then
else
ShowMessage('Required permission has not been granted') ;
end;
procedure TForm1.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
begin
TDialogService.ShowMessage('Need to access the camera',
procedure(const AResult: TModalResult)
begin
APostRationaleProc;
end);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
permCam, permRead, permWrite: string;
begin
// Request permissions
permCam := JStringToString(TJManifest_permission.JavaClass.CAMERA);
permRead := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
permWrite := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
PermissionsService.RequestPermissions([permCam, permRead, permWrite], PermissionRequestResult, DisplayRationale);
end;
end.
如何查找并修复错误，如何正确使用原生相机 TTakePhotoFromCameraAction？
默认情况下，Delphi for Android 中的一个新应用程序提供了一个表单 TForm1，您可以在该表单上放置应用程序元素。我需要添加一个带有用户授权的步骤。从理论上讲，您似乎需要制作 2 个屏幕/表单，第一个带有登录名 (TFormLogin)，第二个带有应用程序本身 (TFormMain)。当应用程序启动时，显示登录屏幕/表单，并在成功验证后，将屏幕/表单更改为主屏幕/表单。
问题是，如何在 Delphi for Android 中进行登录屏幕和应用程序之间的转换？通过2种形式做到这一点是否正确，还是使用其他一些方法更好？它在代码中是什么样的？
简单地创建 2 个表单并通过隐藏切换不起作用（应用程序关闭）
FormLogin.Hide;
FormMain.Show;
这个有效，但看起来不太正确：
FormLogin.GroupBox1.Visible := False; // все элементы лежат на GroupBox1
FormMain.Parent := FormLogin;
FormMain.Show;
我需要在以几何度数（从 0 到 359）给出的两个值之间插入某个对象的旋转角度。然而，简单的插值是不合适的，因为 当尝试在 10 到 350 之间进行插值时，对象将以大弧度（顺时针 340 度）旋转，而不是逆时针旋转 -20 度。也就是说，我需要以某种方式选择一个较小的弧并沿它插入对象的旋转。
问题是如何正确地在两个角之间插值？
如果有人知道如何更正确地表述问题，请纠正它
我需要在 Delphi 中创建一个简单的文本文件并在其中写入几行代码。如何让它尽可能简单？
例如，1.txt沿路径创建D:\folder\内容123456和777.
有这样一个记录的数组：
TMyVertex2Array = array of TMyVertex2; // Объявление типа массива
TMyPolygon = record
Points: TMyVertex2Array;
class function New(aX1, aY1, aX2, aY2, aX3, aY3: Single): TMyPolygon; static;
// ... и еще куча полезных методов и операторов
procedure Offset(aX, aY: Single);
end;
代码中发生以下情况：
var
a, b: TMyPolygon;
begin
a := TMyPolygon.New(0,0,1,1,2,2);
b := a;
b.Offset(10, 10);
Assert(a.Points[0].X = 0); // <<-- Ошибка, т.к. изменился и массив а.Points
也就是说，从技术上讲，Delphi 复制了记录，但由于 数组只是一个指针，然后复制指针，数组本身保持不变（两条记录通用）。
如何利用Delphi的新特性，在b := a赋值Points（（所谓的深拷贝）还是用另一种方式解决问题？
如何以编程方式学习 Windows 操作系统的语言（从 Windows XP 开始）？
感兴趣的是系统的语言 - 即 Windows 与程序用户通信的语言，而不是所选国家或键盘布局等。相对而言，您需要找出名称“我的电脑”或“我的电脑”或“Mój Komputer”是用什么语言写的。接收到的名称的格式并不那么重要（ISO 或英文文本或本地化文本）。
大声思考：
我尝试了几个选项，包括GetLocaleInfo(LOCALE_USER_DEFAULT.., GetSystemDefaultLangID, GetUserDefaultLangID，但没有一个返回我的操作系统语言环境（英语），而是返回了Russian. 到目前为止，唯一合理的线索是hklm\system\controlset001\control\nls\language\Installlanguage，但不清楚为什么安装语言是一种（英语），而默认是另一种（俄语），尽管操作系统用英语与我交流。
我有三个元素（一个数组，而不是一个数组 - 没关系）。我怎样才能尽可能快速和紧凑地对它们进行分类？
例如：
a = 7; b = 18; c = -3;
应该变成：
a = 18; b = 7; c = -3;
使用“繁重”的库排序（相同的 QuickSort）来处理这样一件小事似乎有些昂贵，而且手头并不总是有现成的实现（或者您不想将依赖项拉入程序中）。
请提供一个简单而紧凑的排序的伪代码。
在下一个问题中，我们谈到了使用 RNG 和模除法时数字的不均匀分布。文档（ rand ）中提到了相同的内容：
请注意，尽管此模运算不会在跨度中生成均匀分布的随机数（因为在大多数情况下，此运算使较小的数字更有可能发生）。
我们以一个从 0 到 1000 的 RNG 为例，步长为 25：
return 25 * (rand() % 41); // Неравномерное распределение
return int((40.0 * rand()) / (RAND_MAX + 1.0)) * 25; // Равномерное распределение
等等问题：
- 第一种方法，比第二种方法更不平衡多少？
这种影响如何在实际问题中体现出来？
- 值得担心吗？
- 如果是这样，从什么时候开始？
- 绕过不均匀的选项有哪些（除了上面的例子）？
我很惊讶地发现带点的数字在 Delphi 中可以整数除以 Variant。简单示例：
var
v: Variant;
begin
v := 2.3;
Tag := 5.1 div v; // 2
Tag := 5.1 mod v; // 1
Tag := 5.1 div 2; // [dcc32 Error] E2015 Operator not applicable to this operand type
Tag := 5.1 mod 2; // [dcc32 Error] E2015 Operator not applicable to this operand type
end;
看起来 Delphi 在执行 div/mod 语句之前四舍五入了表达式的左侧和右侧。
我认为上面的代码在编译所有 4 行时会导致错误，因为 据我了解，div/mod 运算符不适用于带有“完全”一词的点的数字。看起来好像不是。
为什么 Delphi 让我将带点的数字除以 Variant 整数，此功能有什么用？