Editing ray

Title / Description

Code
function MD5(const fileName : string) : string; var idmd5 : TIdHashMessageDigest5; fs : TFileStream; begin idmd5 := TIdHashMessageDigest5.Create; try fs := TFileStream.Create(fileName, fmOpenRead ) ; try Result := idmd5.HashStreamAsHex(fs); finally fs.Free; end; finally idmd5.Free; end; end;

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code