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.