Delphi Ха sh из нитки - кусок пирога? - PullRequest
Новая
       89

Delphi Ха sh из нитки - кусок пирога?

0 голосов
/ 21 июня 2020

Создание Ha sh из строки должно быть простым делом, я думаю, но это не работает. В нем написан необъявленный идентификатор: «GetHashString». Я что-то упустил? 

unit HashCreator;

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
 Memo2.Text := GetHashString(Memo1.Text,SHA256);
end;
end.

1 Ответ

1 голос
/ 21 июня 2020

В конце концов, это вроде как кусок пирога. Спасибо за советы. Следующий код отлично работает в Delphi 10.3. Издание сообщества. 

unit HashCreator;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Memo2.Text := THashSHA2.GetHashString(Memo1.Text, SHA256);
end;

 end.
...