GuidoG's questions

Criei um tipo anulável como este, que encontrei em uma resposta do SO, não lembro qual.

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.

Meu problema é que não sei como defini-lo como nulo.
Por exemplo

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

isso me dá erro de tempo de execução

Não foi possível converter a variante do tipo (Null) em tipo (Integer)

Já faz um tempo que programo em Delphi e não consigo descobrir como definir o valor da idvariável paranull

id.Value := nil;

dá erro de compilador

Tipos incompatíveis: 'integer' e 'pointer'

Somente não definindo o valor de ideu consigo ter seu valor null, mas e se eu quiser defini-lo para qualquer valor, incluindo null? Como fazer isso?

Em C#, temos esta função:

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;
}

Estou tentando fazer o mesmo no Delphi, mas continuo obtendo resultados diferentes.

Algo tão simples como isto:

Result := THashSHA2.GetHashString(Text);

retorna um resultado diferente.

Suspeito que seja porque em C# sempre usamos UTF-8, mas não consigo descobrir como usar codificação em Delphi.

Eu tentei isso:

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

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

mas dá erro de compilação

[Erro dcc32] Unit1.pas(216): E2010 Tipos incompatíveis: 'IIdTextEncoding' e 'TEncoding'

Qual é a maneira correta de fazer isso no Delphi?

O valor 12345retorna 1445217533E7D4D0CFFD9109C4EDB60D62A02C0F0DE9537BE44F5E00D348EB4Fem C#, mas 5994471abb01112afcc18159f6cc74b4f511b99806da59b3caf5a9c173cacfc5em Delphi.

Quero que a versão Delphi retorne o mesmo valor que a versão C#.