Einige Methoden in mehreren Klassen verwenden?

[SirThornberry]

du könntest diese spezelle funktion als normale funktion anlegen und rufst dann in den Klassenfunktionen einfach die normale funktion auf

Delphi-Quellcode:

type
  TYourClass1 = class(irgendwas)
  private
    procedure dorigendwas;
  [...]
  TYourClass1 = class(irgendwas)
  private
    procedure dorigendwas;
  [...]
procedure doirgendwasproc;
begin
  showmessage('trallala');
end;

procedure TYourClass1.doirgendwas;
begin
  doirgendwasproc;
end;

procedure TYourClass2.doirgendwas;
begin
  doirgendwasproc;
end;