Methodenzuordnung auf mehrere Schnittstellen

[omata]

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