2
0
Martijn Laan 1 жил өмнө
parent
commit
1908c3d27e
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  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);