Martijn Laan 1 năm trước cách đây
mục cha
commit
1908c3d27e
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      Projects/CompForm.pas

+ 1 - 1
Projects/CompForm.pas

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