Martijn Laan 1 年之前
父節點
當前提交
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);