Stimmt auch wieder... nagut, dann poste ich den Anfängerfehler mal ^^
So sah die Get Methode aus:
Delphi-Quellcode:
function TLogObject.GetFileLog: TFileLogObject;
begin
if FFileLog = NIL then
FFileLog.Create;
Result := FFileLog;
end;
So muss sie aussehen:
Delphi-Quellcode:
function TLogObject.GetFileLog: TFileLogObject;
begin
if FFileLog = NIL then
FFileLog := TFileLogObject.Create;
Result := FFileLog;
end;
Die Variable zeigte ins leere