chenshilong преди 7 години
родител
ревизия
25d061eb83
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  1. 4 1
      Units/ProjectData.pas

+ 4 - 1
Units/ProjectData.pas

@@ -2294,7 +2294,10 @@ end;
 
 function TProjectData.LastCheckerIsOwner: Boolean;
 begin
-  Result := PHPWeb.UserID = FCheckers.LastChecker.ID;
+  if (FCheckers.LastChecker = nil) then
+    Result := false
+  else
+    Result := PHPWeb.UserID = FCheckers.LastChecker.ID;
 end;
 
 end.