Kann man units irgendwie bundeln?

[fisipjm]

Zitat von TiGü:

Du könntest die Sachen die du brauchst in einer Alias-Unit (richtiger Begriff?) zusammenfassen:

Delphi-Quellcode:

unit DeineToolsAliasUnit;

interface

uses
    Tools.system1.way1,
    Tools.system1.way2,
    Tools.system2.way1,
    Tools.systems.general;

type
    TSystem1Way1 = Tools.system1.way1.TSystem1Way1;
    TSystem1Way2 = Tools.system1.way2.TSystem1Way2;
    TSystem2Way1 = Tools.system2.way1.TSystem2Way1;

    TMyLittleHelperClassesAndConstsEtc = Tools.systems.general.TMyLittleHelperClassesAndConstsEtc;

implementation

end.

Dann brauchst du nur noch DeineToolsAliasUnit einfügen.

Vgl. Vcl.Graphics:

Delphi-Quellcode:

...
  clBlack = TColors.Black;
  clMaroon = TColors.Maroon;
  clGreen = TColors.Green;
  clOlive = TColors.Olive;
  clNavy = TColors.Navy;
...

Definition für TColors steckt in System.UITypes.

Danke für den Tipp, das müsste mit Klassen gut klappen. Wie mache ich das denn mit Funktionen und Prozeduren, die einfach nur global in der Implementierung stehen? Kann ich die irgendwie durchreichen? Die sind ja nicht teil einer Klasse.
Also so z.B.

Delphi-Quellcode:

unit Tools.systems.general;

interface

function HashFile(FilePathName: string): string;

implementation

uses
 System.Classes, System.SysUtils, System.Hash, System.IOUtils, System.Win.Registry,
  Winapi.Windows;

function HashFile(FilePathName: string): string;
var
  Hash: THashMD5;
  fileBytes: TBytes;
begin
  fileBytes := Tfile.ReadAllBytes(FilePathName);

  Hash.Reset;
  Hash.update(fileBytes);

  Result := Hash.HashAsString;
end;

end.