Ich versuche einmal den Weg zum vermeintlichen Fehler zu zeigen, den ich mit Auskommentieren herausbekommen habe.
Alles beginnt hier:
Code:
function TModuleList.createModule(ModuleType:integer):TModule; // erzeugt das angeforderte Modul
var m:TModule;
begin
case ModuleType of
CMonitorModule: m:=TMonitorModule.Create;
...
... ruft auf:
Code:
constructor TMonitorModule.Create;
begin
inherited Create;
MyTypIndex:=CMonitorModule;
FunctionLine:=TFunctionLine.Create(Self);
...
... ruft auf:
Code:
constructor TFunctionLine.Create(parentModule:TModule);
begin
assignedModule:=parentModule;
FunctionList:=TFunctionList.Create;
...
... ruft auf:
Code:
constructor TFunctionList.Create;
begin
list:=TList.Create;
end;
Kommentiere ich die folgende Zeile aus, kommt der Fehler nicht. Das ergibt für mich aber 0 Sinn.
Code:
FunctionList:=TFunctionList.Create;
Falls es einen schöneren Weg gibt solche Strukturen darzustellen, bin ich für jeden Hinweis offen.