Einige Methoden in mehreren Klassen verwenden?

[dizzy]

One word: Nope

Delphi-Quellcode:

type
  TMyMethodsAreHere = class(TClientSocket)
  private
    ...
  public
    procedure IchTuWas;
    function IchGebWas: Integer;
  end;

  TMyClass1 = class(TMyMethodsAreHere)
    .
    .
  end;

  TMyClass2 = class(TMyMethodsAreHere)
    .
    .
  end;

var
  x: TMyClass1;
  y: TMyClass2;

begin
  x := TMyClass1.Create(...);
  y := TMyClass2.Create(...);

  x.IchTuWas;
  y.IchGebWas;
end.

Packs in den Compiler und sieh selbst!