Ich würde mir dafür eine ordentliche Klassenbibliothek bauen.
Die nicht so schöne Variante (das ist das was du vorhast) könnte vielleicht so aussehen...
Delphi-Quellcode:
type
TLibStringFunctions = class
class function StrHallo(text:string):string;
end;
TLibMathFunctions = class
class function Fakultaet(x:integer):integer;
end;
TMyLibFunctions = class
StringFunctions:TLibStringFunctions;
MathFunctions:TLibMathFunctions;
end;
TMyLib = class
Functions:TMyLibFunctions;
end;
:
:
{ TLibStringFunctions }
class function TLibStringFunctions.StrHallo(text:string): string;
begin
Result:=text;
end;
{ TLibMathFunctions }
class function TLibMathFunctions.Fakultaet(x: integer): integer;
begin
Result:=x;
end;
procedure TForm.ButtonClick(Sender: TObject);
var MyLib:TMyLib;
s:string;
f:integer;
begin
s:=MyLib.Functions.StringFunctions.StrHallo('xx');
f:=MyLib.Functions.MathFunctions.Fakultaet(1));
end;
Das ist dann natürlich auch auf mehrere Units aufteilbar.
Gruss
Thorsten