小编Chr*_*tin的帖子

情况:我有一个在硬盘上增长的列表,我想将其加载到内存中进行处理.在某些时候,我会得到EOutofMemory.我需要的是一种测试我的except块中的代码的方法:

implementation
uses sysutils;
function loadit(var F:File);
begin
   Try
   {load list code}
   except
   on EOutofMemory do
      begin
      {error handling code to be tested}
      end;
   end; // the try block
end;

我需要的是调用异常块而不实际等待满足内存不足的情况.我看过加注,我没有找到任何可以按我需要的方式引发异常的东西.

raise EOutofMemory;

不编译.

raise;

编译,但提出了什么？

raise EOutofMemory.NewInstance; 

编译,但我想知道它后面的对象是做什么的？它会在我离开错误处理块,留在堆中还是编译器决定使用它时被销毁？

断言不允许指定任何内容; 无论如何,这不是它的目标.