小编Tah*_*htu的帖子

我在 GitHub 上有一个存储库并使用 TortoiseGit 更新它。

我不想在每次提交/推送时创建版本号。但我想在自动提交之前在 Readme.md 文件中插入日期/时间。

这可能吗？

如何在Delphi中检测等宽字体？

TFont.Pitch应该是fpFixed我认为,但它对Delphi XE4不起作用:

var
  Font: TFont;
begin
  Font := TFont.Create;
  Font.Name := 'Courier New';
  if Font.Pitch = fpFixed then
    ShowMessage('Monospace Font!');
  ...

Font.Pitch基于GetObjectWinAPI.它应该返回lfPitchAndFamily FIXED_PITCH,但我总是得到DEFAULT_PITCH所有字体(也适用于Arial).

我想使用正则表达式在字符串中查找注释行。我尝试了以下操作，但它给了我第一个之后的一切//。

为什么？

program Project1;

uses
  RegularExpressions;

var
  Text: string;
  Pattern: string;
  RegEx: TRegEx;
  Match: TMatch;
begin
  Text := 'Hello' + #13#10
    + '// Test' + #13#10
    + 'Text' + #13#10;

  Pattern := '//[^$]*$';

  RegEx := TRegEx.Create(Pattern, [roCompiled, roMultiLine]);
  Match := RegEx.Match(Text);
  if (Match.Success) then
  begin
    Match.Index; // 8 -> Expected
    Match.Length; // 15 -> I would like to have 9
  end;
end.

我的delphi probject中有以下单元实现.

uses
{$IFDEF Ver270} JSON, {$ELSE} DBXJSON, {$ENDIF}

在Delphi中,XE4将实现DBXJSON - 这很好.在Delphi中,XE6将实现JSON - 这也很好.

但是在Delphi 10.2中,将实现DBXJSON - 而不是JSON.为什么？这是Delphi 10.2中的错误吗？