问题[delphi](coding)

使用 Delphi VCL。当用户开始打印作业时，我会显示 TPrintDialog。

理想情况下，打印对话框应该显示用户上次使用的打印机名称、纸张尺寸和方向（我已保存）。但是，虽然我可以将方向传递给打印机并使其显示在对话框中，但我找不到让对话框显示默认打印机和纸张尺寸以外的任何内容的方法。

我可以设计一个看起来像打印对话框的自定义对话框，并以这种方式传递参数，但似乎应该有一种方法将这些参数传递给 TPrintDialog。

谢谢。

斯科特

好的，我不确定从 StackOverflow 的角度来看我是否正确地执行了此操作，如果没有，请原谅。

在 Remy 的帮助下，我已经解决了 VCL 工作的问题，但现在我仍停留在 FMX MacOS 版本上。

使用页面方向，我可以成功设置和获取方向，但它不会影响页面设置对话框中的方向或页面的实际打印方式。

以下是我所拥有的：

function getOrientation: string;
var
FPrintInfo: NSPrintInfo;
orientation: integer;
begin
result:='';
FPrintInfo := TNSPrintInfo.Wrap(TNSPrintInfo.OCClass.sharedPrintInfo);
FPrintInfo.retain;
PMGetOrientation(FPrintInfo.PMPageFormat, @orientation);
FPrintInfo.release;
if (orientation=1) or (orientation=3) then result:='portrait';
if (orientation=2) or (orientation=4) then result:='landscape';
end;

procedure setOrientation (const toSetS:string);
var
FPrintInfo: NSPrintInfo;
orientation: integer;
begin
if toSetS='portrait' then orientation:=1 else orientation:=2;
FPrintInfo := TNSPrintInfo.Wrap(TNSPrintInfo.OCClass.sharedPrintInfo);
FPrintInfo.retain;
PMSetOrientation(FPrintInfo.PMPageFormat,orientation,true);
FPrintInfo.release;
end;

谢谢。

我希望有汇编语言经验的人能帮我写一个 Delphi 函数，如果字符串以 Chr(127) 开头，则忽略该字符串的第一个字符。这个函数用于排序比较，当比较 30,000 个条目时，由于必须在比较之前从第二个字符复制文本，因此速度非常慢。这是原始函数。

function CompareText(const S1, S2: string): Integer; assembler;
asm
        PUSH    ESI
        PUSH    EDI
        PUSH    EBX
        MOV     ESI,EAX
        MOV     EDI,EDX
        OR      EAX,EAX
        JE      @@0
        MOV     EAX,[EAX-4]
@@0:    OR      EDX,EDX
        JE      @@1
        MOV     EDX,[EDX-4]
@@1:    MOV     ECX,EAX
        CMP     ECX,EDX
        JBE     @@2
        MOV     ECX,EDX
@@2:    CMP     ECX,ECX
@@3:    REPE    CMPSB
        JE      @@6
        MOV     BL,BYTE PTR [ESI-1]
        CMP     BL,'a'
        JB      @@4
        CMP     BL,'z'
        JA      @@4
        SUB     BL,20H
@@4:    MOV     BH,BYTE PTR [EDI-1]
        CMP     BH,'a'
        JB      @@5
        CMP     BH,'z'
        JA      @@5
        SUB     BH,20H
@@5:    CMP     BL,BH
        JE      @@3
        MOVZX   EAX,BL
        MOVZX   EDX,BH
@@6:    SUB     EAX,EDX
        POP     EBX
        POP     EDI
        POP     ESI
end;

如果您能帮忙的话非常感谢。

我已经创建了一个像这样的可空类型，这是我在 SO 答案中发现的，不记得是哪一个了。

unit NullableType;

interface

uses
  System.SysUtils, System.Rtti;

type
  TNullable<T> = record
 private
    FValue: T;
    FHasValue: IInterface;
    function GetHasValue: Boolean;
    function GetValue: T;
    procedure SetValue(const AValue: T);
  public
    constructor Create(AValue: T);
    function ToString: string; // <-- add this for easier use!
    property HasValue: Boolean read GetHasValue;
    property Value: T read GetValue write SetValue;
  end;


implementation


constructor TNullable<T>.Create(AValue: T);
begin
   SetValue(AValue);
end;

function TNullable<T>.GetHasValue: Boolean;
begin
  Result := FHasValue <> nil;
end;

function TNullable<T>.GetValue: T;
begin
  if HasValue then
    Result := FValue
  else
    Result := Default(T);
end;

procedure TNullable<T>.SetValue(const AValue: T);
begin
  FValue := AValue;
  FHasValue := TInterfacedObject.Create;
end;

function TNullable<T>.ToString: string;
begin
  if HasValue then
  begin
    if TypeInfo(T) = TypeInfo(TDateTime) then
      Result := DateTimeToStr(PDateTime(@FValue)^)
    else if TypeInfo(T) = TypeInfo(TDate) then
      Result := DateToStr(PDateTime(@FValue)^)
    else if TypeInfo(T) = TypeInfo(TTime) then
      Result := TimeToStr(PDateTime(@FValue)^)
    else
      Result := TValue.From<T>(FValue).ToString;
  end
  else
    Result := 'null';
end;

end.

我的问题是我不知道如何将其设置为空。
例如

var
  id : TNullable<integer>;
begin
  if Edit1.Text <> '' then
    id.Value := StrToInt(Edit1.Text)
  else
    id.Value := null;  // runtime error

这给了我运行时错误

无法将类型 (Null) 的变量转换为类型 (Integer)

我已经有一段时间没有用 Delphi 编程了，我就是搞不清楚如何设置id变量的值null

id.Value := nil;

给出编译器错误

不兼容的类型：“整数”和“指针”

只有不设置 的值，id我才能获得它的值null，但如果我想将其设置为任何值，包括 null ，该怎么办？怎么做？

在 C# 中，我们有这个函数：

public string GetStringSha256Hash(string text, Encoding coding)
{
    string result = "";
    if (text != null)
    {
        using (SHA256 sHA256Managed = SHA256.Create())
        {
            byte[] bytes = coding.GetBytes(text);
            byte[] array = sHA256Managed.ComputeHash(bytes);
            result = BitConverter.ToString(array).Replace("-", string.Empty);
        }
    }
     return result;
}

我尝试在 Delphi 中执行相同操作，但得到的结果却不同。

就像这样简单的事情：

Result := THashSHA2.GetHashString(Text);

返回不同的结果。

我怀疑是因为在 C# 中我们总是使用 UTF-8，但我找不到如何在 Delphi 中使用编码。

我尝试过这个：

var
  Hash: TIdHashSHA256;
begin
  Hash := TIdHashSHA256.Create;

  try
    SHA256Hash := Hash.HashString(Text, TEncoding.UTF8);

但它给出了一个编译错误

[dcc32 错误] Unit1.pas(216): E2010 不兼容类型：“IIdTextEncoding”和“TEncoding”

在 Delphi 中执行此操作的正确方法是什么？

该值在 C# 中12345返回，但在 Delphi 中却返回。1445217533E7D4D0CFFD9109C4EDB60D62A02C0F0DE9537BE44F5E00D348EB4F5994471abb01112afcc18159f6cc74b4f511b99806da59b3caf5a9c173cacfc5

我希望 Delphi 版本返回与 C# 版本相同的值。

仅给定一个TRttiMethod，是否有可能找到定义类？

我在基类中定义了一个类过程，当我在派生类中搜索方法时，它会显示出来。我可以调用它，但是我想找出实际定义该方法的基类的名称，而不是派生类的名称。

TRttiMethod关于 classtype 等的所有属性都返回TRttiMethod自己的定义，而不是实现类的定义。

TBase = class
public
  class procedure Write;
end;

THigher = class(TBase);

var Context:=TRttiContext.Create;
var T:=Context.GetType(THigher);
var Method: TRttiMethod:=nil;
for var Item in T.GetMethods('Write') do
  if (Item.MethodKind=TMethodKind.mkClassProcedure) then
  begin
    Method:=Item;
    // How to get TBase from Method ?
    break;
  end;

为什么当将动态放置在记录或类中时，它会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;

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

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

我知道这很简单，但我只是不知道为什么我的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 10.3 项目组。其中的所有项目都具有 Win32 目标平台，只有其中一部分具有 Win64 目标平台。当我使用 MSBuild 以 /p:Platform=Win32 构建该组时，所有项目都已构建。但如果使用 /p:Platform=Win64 键执行相同操作，则所有项目也都已构建，即使它们未配置 Win64 目标平台。

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

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

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

ECustomStyleException 样式错误：未找到值

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

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