C/C++教程

Delphi Hash算法[3] CRC

本文主要是介绍Delphi Hash算法[3] CRC，对大家解决编程问题具有一定的参考价值，需要的程序猿们随着小编来一起学习吧！

Delphi Hash算法[3] CRC

{该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明}

引用单元：IdHashCRC

1、字符：

var
  CRC:TIdHashCRC32;
begin
  CRC:=TIdHashCRC32.Create;
  Memo2.Text:=IntToStr(CRC.HashValue(Memo1.Text));
  CRC.Free;
end;

2、文件：

var
  MemSteam: TMemoryStream;
  CRC:TIdHashCRC32;
begin
  try
    CRC:=TIdHashCRC32.Create;
    MemSteam:=TMemoryStream.Create;
    if OpenDialog1.Execute then begin
      MemSteam.LoadFromFile(OpenDialog1.FileName);
      Memo2.Text:=IntToStr(CRC.HashValue(MemSteam));
    end;
  finally
    MemSteam.Free;
    CRC.Free;
  end;
end;

　　

 

 

创建时间：2021.04.29　　更新时间：

这篇关于Delphi Hash算法[3] CRC的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！
您可能喜欢
栏目导航