Martijn Laan 1 year ago
parent
commit
1908c3d27e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

@@ -1133,7 +1133,7 @@ procedure TCompileForm.OpenFile(AMemo: TCompScintFileEdit; AFilename: String;
     Result := seAuto;
     var StreamSize := Stream.Size;
     var CappedSize: Integer;
-    if Stream.Size > High(Integer) then
+    if StreamSize > High(Integer) then
       CappedSize := High(Integer)
     else
       CappedSize := Integer(StreamSize);