Ich glaube, irgendwie stelle ich mich heute ganz doof dran.
Ich hab jetzt mal grob zusammengefasst, wie die 2 Lösungen zusammengefasst aussehen würden. Soll natürlich dann auf 2 Units verteilt werden.
Delphi-Quellcode:
unit Tools.systems.general;
interface
type
Ttools =
class
public
function HashFile(FilePathName:
string):
string;
end;
type
AliasKlasse = Ttools;
function HashFile(FilePathName:
string):
string;
implementation
uses
System.Classes, System.SysUtils, System.Hash, System.IOUtils, System.Win.Registry,
Winapi.Windows;
function Ttools.HashFile(FilePathName:
string):
string;
var
Hash: THashMD5;
fileBytes: TBytes;
begin
fileBytes := Tfile.ReadAllBytes(FilePathName);
Hash.Reset;
Hash.update(fileBytes);
Result := Hash.HashAsString;
end;
procedure main;
begin
AliasKlasse.HashFile('
DummyString');
end;
Jetzt bekomme ich bei dem Aufruf von Aliaskalsse.Hashfile folgende Meldung:
E2076 Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt
Ich strukturiere auch gern mein Projekt um, wenn das so zu fummelig ist, oder wie bekommt ihr das mit den Uses in den Griff?