MD5File mit System.Hash?

[PeterPanino]

VIELEN Dank für den Hinweis!

hab gleich eine schöne Funktion (für Copy&Paste) daraus gemacht:

Delphi-Quellcode:

function SystemHashFileMD5(const AFilePath: string; const AUpper: Boolean = True): string;
// VORHER prüfen, ob Datei existiert!
var
  hash: System.Hash.THashMD5;
  fileBytes: TBytes;
begin
  Result := '';

  try
    fileBytes := TFile.ReadAllBytes(AFilePath);
  except
    Result := 'FileError';
    EXIT;
  end;

  hash.Reset();
  hash.Update(fileBytes);

  Result := hash.HashAsString;

  if AUpper then
    Result := UpperCase(Result);
end;

Verbesserungsvorschläge?