Wenn du beide in die gleiche
Unit gepackt hast (Igitt!) dann sollte es eigentlich gehen! Kannst du ein reproduzierbares Minimalbeispiel einstellen?
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
type
TBaseClass = class
(*strict*)private constructor Create();
end;
TSubClass = class(TBaseClass)
// Nichts
end;
{ TBaseClass }
constructor TBaseClass.Create();
begin
WriteLn('Hallo');
end;
begin
TSubClass.Create();
ReadLn;
end.