Generics Struktur-/Typen-Problem

[TiGü]

Delphi-Quellcode:

SackFuellerAdapter: TSackFuellerAdapter<TRundesObjekt>;
ändern zu
SackFuellerAdapter: TSackFuellerAdapter<TBall>;
ändern zu
SackFuellerBallAdapter: TSackFuellerAdapter<TBall>;

mit Sahne oben drauf:

Delphi-Quellcode:

type
  TSackFuellerBallAdapter = TSackFuellerAdapter<TBall>;

var
  SackFuellerAdapter: TSackFuellerBallAdapter;

...
begin
  SackFuellerAdapter := TSackFuellerBallAdapter.Create;
end;