Hi jobo
Ich hab das also mal ausgekoppelt - kompiliert hervorragend.Sogar einer meiner kleinen Tests tat, was er sollte. Nicht ganz klar war mir, ob Fileexists auch auf Ordner reagiert. Ein Showmessage sagt ja...
Da die gepostete Zeile aus System.pas stammt, war ich sehr zurüchaltend mit dem widergeben dieser Zeilen und postete gerade mal die eine. Das war offensichtlich falsch. Denn das ganze Schnipsel lautet:
Delphi-Quellcode:
if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
begin
if not InitInheritedComponent(Self, TDataModule) then
Was nichts anderes heisst, als dass mein Datenmodul gar keines ist, obwohl es optisch und im
OI als genau ein solches daherkommt.
Da bleibt mir offensichtlich nur übrig, das Ding neu zu erstellen.
Gruss
Delbor