主页 / coding / 问题

问题[delphi](coding)

Martin Hope
Matthias B
Asked: 2025-03-10 02:55:48 +0800 CST
  • 6

为什么当将动态放置在记录或类中时，它会array of string变得与其他动态不兼容？array of string

type
  TRec = record
    ArrayInRecord: array of string;
  end;

var
  Rec: TRec;
  SimpleArray1, SimpleArray2, CombinedArrayOK, CombinedArrayFail: array of string;

begin
  SimpleArray1 := ['1', '2'];
  SimpleArray2 := ['3', '4'];
  CombinedArrayOK := SimpleArray1 + SimpleArray2;  // No problem here

  Rec.ArrayInRecord := ['5', '6'];
  CombinedArrayFail := SimpleArray1 + Rec.ArrayInRecord;  // E2008 Incompatible types
end;
delphi
Martin Hope
Tom
Asked: 2025-03-03 01:44:44 +0800 CST
  • 5

我有一个 DLL（来自libJasPer 项目）。当我通过控制台应用程序解码图像时，jas_image_decode()该 DLL 在 STDOUT 上显示警告。

我在 JasPer 中查找了如何禁用警告，但一无所获。如何在 Delphi/Lazarus 中阻止它？

delphi
Martin Hope
Shaun Roselt
Asked: 2025-02-10 09:29:28 +0800 CST
  • 5

我知道这很简单，但我只是不知道为什么我的TRectangle没有圆角。

这是我的代码：

var Box2 := TRectangle.Create(Application);
Box2.Parent := Form1;
Box2.Position.X := 300;
Box2.Position.Y := 256;
Box2.Width := 177;
Box2.Height := 50;
Box2.Stroke.Thickness := 10;
Box2.XRadius := 10;
Box2.XRadius := 10;
Box2.Name := 'Whatever2';

它看起来是这样的：

Delphi 中的 TRectangle

这就是我需要的样子：

Delphi 中的 TRectangle

为了显示圆角，我的代码中缺少什么？

delphi
Martin Hope
Anton Larin
Asked: 2025-02-10 04:08:02 +0800 CST
  • 7

我有一个 Delphi 10.3 项目组。其中的所有项目都具有 Win32 目标平台，只有其中一部分具有 Win64 目标平台。当我使用 MSBuild 以 /p:Platform=Win32 构建该组时，所有项目都已构建。但如果使用 /p:Platform=Win64 键执行相同操作，则所有项目也都已构建，即使它们未配置 Win64 目标平台。

如何避免为那些在构建项目组期间没有该目标的项目构建 Win64 目标？

delphi
Martin Hope
Franz
Asked: 2025-01-22 20:07:59 +0800 CST
  • 4

我必须合作一个软件项目，其中 1 名团队成员使用 Delphi 12.2，而其他一些团队成员仍使用 Delphi 10.4。

通过 Git repos 交换源代码现在产生了一些不兼容性，因为在使用旧版本的 Delphi 编译器打开源代码时发生了一些新错误：

ECustomStyleException 样式错误：未找到值

将不同版本 Delphi 编译器一起使用的最佳解决方案是什么？

是否有工具可以根据需求删除此新功能？

delphi
Martin Hope
Arthur Araujo
Asked: 2025-01-22 08:22:37 +0800 CST
  • 5

如果我有这样的枚举类型：

  TOAuthSubjectTypes = (
    [MappingAttr('public')]
    ostPublic,
    [MappingAttr('pairwise')]
    ostPairwise
  );

在特定时刻，我有一个保存的变量ostPairwise，是否可以检索值的属性ostPairwise？现在，我正在应用的解决方法是按枚举类型的顺序设置所有属性，然后通过GetAttributes枚举类型的序数值到达它们，但我想知道是否有更惯用的方法。

抱歉，如果重复了。我在其他语言标签上找到了很多答案，但没有与 Delphi 相关的答案。

delphi
Martin Hope
bas
Asked: 2025-01-08 22:29:46 +0800 CST
  • 6

我正在我的 FMX 应用程序中开发类似于 Microsoft Teams 的标记功能。

它在 Teams 中的外观如下：

在此处输入图片描述

现在在我的版本中，我还想向弹出窗口添加编辑字段和其他内容。

我开始尝试使用TPopup，但问题是，如果您单击弹出窗口TEdit内的 ，弹出窗口将关闭。由于 中的WndProc代码FMX.Platform.Win：

WM_ACTIVATE:
  begin
    if not ((TFmxFormState.Recreating in LForm.FormState) or (LForm.FormStyle = TFormStyle.Popup) or
      WindowHandleToPlatform(LForm.Handle).FDisableDeactivate) then
    begin
      if LoWord(wParam) <> 0 then
      begin
        if HiWord(wParam) = 0 then
          LForm.Activate;
        // If the window is minimized, then do nothing.
      end
      else
      begin
        PrepareClosePopups;
        LForm.Deactivate;
        ClosePopupList; // This is called when clicking on edit on popup
      end;
    end;
    Result := 0;
  end;

ClosePopupList在单击弹出窗口内部时调用TEdit，此函数关闭弹出窗口。

因此我改用TForm并解决了该问题，但在显示带有我的备忘录的表格后Show不再具有焦点。

我希望将焦点放在备忘录上，除非我们点击弹出窗口内的编辑，在这种情况下，编辑应该获得焦点，弹出窗口应该保持打开状态。如果我点击弹出窗口外，则弹出窗口应该关闭。

有办法解决这个问题吗？

delphi
Martin Hope
Arthur Araujo
Asked: 2025-01-08 06:43:46 +0800 CST
  • 10

这可能有点愚蠢，甚至在文档中解释过，但我找不到它。

很多 Delphi 类中似乎都重复出现一种模式，即TCustomSomething在实际之前创建一个TSomething。我想知道这样做是否有任何特殊原因，如果我想创建派生类，TSomething我应该从继承TCustomSomething还是直接从继承TSomething？

我可以举几个例子：

  1. 继承TStringStream自TByteStream，继承自 ，TMemoryStream最终继承TCustomMemoryStream。
  2. TRESTClient直接继承自TCustomRESTClient。
  3. TButton继承自TCustomButtom。

确实有一些情况我看到了基TCustom...类的实际好处，比如TMemo和TRichEdit，但我不明白为什么TRichEdit从继承TCustomRichEdit而不是直接从继承TCustomMemo。

TL;DR：Delphi 中的类有什么用TCustomFoo？扩展现有类时我应该继承TCustomFoo还是TFoo直接从现有类继承？

delphi
Martin Hope
user1580348
Asked: 2025-01-02 04:06:36 +0800 CST
  • 8

TRichEdit 具有以下属性：EnableURLs和ShowURLHint。EnableURLs 自动将 Internet URL（例如http://www.example.com）转换为超链接。

使用下面的代码，我尝试使用电子邮件地址实现相同的功能。这仅在视觉上有效：

电子邮件超链接的屏幕截图

问题：但是，如何在单击电子邮件地址时自动实现[email protected]超链接功能（crHandPoint 光标和 OnURLClick 事件处理程序）？

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Label1: TLabel;
    procedure RichEdit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.RegularExpressions;

procedure DetectAndLinkifyEmailsAndURLs(RichEdit: Vcl.ComCtrls.TRichEdit);
var
  Match: System.RegularExpressions.TMatch;
  EmailPattern, URLPattern: string;
  LineIndex, LineStart, StartPos, SelLength: Integer;
  LineText: string;
  PrevSelStart, PrevSelLength: Integer;
begin
  EmailPattern := '\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b';
  URLPattern := '\b(http|https)://[^\s]+';

  // Disable redraw to avoid flicker
  SendMessage(RichEdit.Handle, WM_SETREDRAW, WPARAM(False), 0);

  try
    // Save user selection
    PrevSelStart := RichEdit.SelStart;
    PrevSelLength := RichEdit.SelLength;

    // Reset all formatting to default for the entire text
    RichEdit.SelectAll;
    RichEdit.SelAttributes.Color := Vcl.Graphics.clWindowText;
    RichEdit.SelAttributes.Style := [];

    // Process line by line
    for LineIndex := 0 to RichEdit.Lines.Count - 1 do
    begin
      LineText := RichEdit.Lines[LineIndex];
      LineStart := RichEdit.Perform(EM_LINEINDEX, LineIndex, 0); // Get line start position

      // Format email addresses in the line
      Match := System.RegularExpressions.TRegEx.Match(LineText, EmailPattern, [System.RegularExpressions.roIgnoreCase]);
      while Match.Success do
      begin
        StartPos := LineStart + Match.Index - 1;
        SelLength := Match.Length;

        RichEdit.SelStart := StartPos;
        RichEdit.SelLength := SelLength;
        RichEdit.SelAttributes.Color := Vcl.Graphics.clBlue;
        RichEdit.SelAttributes.Style := [Vcl.Graphics.fsUnderline];

        Match := Match.NextMatch;
      end;

      // Format URLs in the line
      Match := System.RegularExpressions.TRegEx.Match(LineText, URLPattern, [System.RegularExpressions.roIgnoreCase]);
      while Match.Success do
      begin
        StartPos := LineStart + Match.Index - 1;
        SelLength := Match.Length;

        RichEdit.SelStart := StartPos;
        RichEdit.SelLength := SelLength;
        RichEdit.SelAttributes.Color := Vcl.Graphics.clBlue;
        RichEdit.SelAttributes.Style := [Vcl.Graphics.fsUnderline];

        Match := Match.NextMatch;
      end;
    end;

    // Restore user selection
    RichEdit.SelStart := PrevSelStart;
    RichEdit.SelLength := PrevSelLength;

    // Ensure the current selection uses default formatting
    if (PrevSelStart >= 0) and (PrevSelLength = 0) then
    begin
      RichEdit.SelAttributes.Color := Vcl.Graphics.clWindowText;
      RichEdit.SelAttributes.Style := [];
    end;
  finally
    // Re-enable redraw
    SendMessage(RichEdit.Handle, WM_SETREDRAW, WPARAM(True), 0);
    RichEdit.Invalidate; // Refresh to reflect changes
  end;
end;

procedure TForm1.RichEdit1Click(Sender: TObject);
begin
  DetectAndLinkifyEmailsAndURLs(RichEdit1);
end;

end.
delphi
Martin Hope
zeus
Asked: 2024-12-22 08:59:01 +0800 CST
  • 8

我正在尝试使用records在 Delphi 中实现Builder 设计模式。我的目标是允许方法链接，类似于在 Kotlin、Java 或 Swift 中的做法。例如：

val alertDialog = AlertDialog.Builder(this)
    .setTitle("Builder Example")
    .setMessage("This is a builder pattern example")
    .create()

在 Delphi 中，我使用记录编写了以下代码：

type
  TAlertDialogBuilder = record
  private
    FTitle: string;
    FMessage: string;
  public
    function SetTitle(const ATitle: string): TAlertDialogBuilder;
    function SetMessage(const AMessage: string): TAlertDialogBuilder;
    procedure CreateAndShow;
  end;

implementation

function TAlertDialogBuilder.SetTitle(const ATitle: string): TAlertDialogBuilder;
begin
  FTitle := ATitle;
  Result := Self; // Creates a copy
end;

function TAlertDialogBuilder.SetMessage(const AMessage: string): TAlertDialogBuilder;
begin
  FMessage := AMessage;
  Result := Self; // Creates a copy
end;

procedure TAlertDialogBuilder.CreateAndShow;
begin
  ShowMessage(Format('Title: %s%sMessage: %s', [FTitle, sLineBreak, FMessage]));
end;

我这样使用它：

procedure ShowDialogExample;
begin
  TAlertDialogBuilder.Create
    .SetTitle('Builder Example')
    .SetMessage('This is a builder pattern example')
    .CreateAndShow;
end;

问题：

由于记录在 Delphi 中是值类型，因此在和Self等方法中返回的结果将复制该记录。这效率不高，尤其是当记录包含许多字段或大量数据时。SetTitleSetMessage

我尝试过的：

  1. 返回指向记录的指针：我修改了方法，使其返回指向记录的指针（PAlertDialogBuilder）而不是Self。虽然这避免了复制，但它使链接变得不那么直观，因为我需要取消引用指针以^进行后续调用。

  2. 使用absolute：我考虑使用absolute关键字来避免复制，但我无法找到让它用于链接方法调用的方法。

  3. 切换到类：我知道类可以避免这个问题，因为它们是引用类型，但如果可能的话，我宁愿坚持使用记录，因为它们具有轻量级的特性和值语义。

我的问题：

如何使用记录在 Delphi 中实现 Builder 模式，同时避免不必要的复制？有没有办法absolute或其他方法可以有效地实现这一点？

delphi