主页 / user-3611669

GuidoG's questions

Martin Hope
GuidoG
Asked: 2025-04-03 15:17:07 +0800 CST
  • 6

我已经创建了一个像这样的可空类型，这是我在 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 ，该怎么办？怎么做？

delphi
Martin Hope
GuidoG
Asked: 2025-03-29 18:56:12 +0800 CST
  • 8

在 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# 版本相同的值。

delphi