EOutOfResources字符异常

时间:2022-11-29 06:35:58

近日,用Delphi编程时,遇到一个莫名其妙的异常:EOutOfResources,这是一个可以重复再现的异常。开始以为是程序中创建的对象太多,导致占用了过多的资源,引起了这个异常。于是在代码中将许多不必要创建的对象统统删减,对代码进行了彻底的大瘦身,谁知竟然毫无效果!  
此时才注意到提示中有一句:“EOutOfResources with message 'RichEdit line insertion error'”。这就奇怪了,RichEdit控件中明明才添加了很少的几行文字,怎么会引起EOutOfResources这样的异常呢?  
在著名的大富翁论坛上搜索了一下,发现有关于此问题的两个讨论,其中一位仁兄认为初始化时加上这句就行了:  
SendMessage(RichEdit1.Handle,WM_USER+53,0,$7FFFFFFF);  
这句的意图是为RichEdit1分配指定大小($7FFFFFFF)的空间,看起来不错,但实际试验了一下,不行。很显然,虽然抛出的是EOutOfResources异常,但实际上并非真的资源不足。  
也有人认为是DELPHI VCL的BUG。在  
procedure TRichEditStrings.Insert(Index: Integer; const S: string);  
这个例程中有一句:  
if RichEdit.SelStart <> (Selection.cpMax + Length(Str)) then  
raise EOutOfResources.Create(sRichEditInsertError); // 这里报错了!!  
这位仁兄认为是WINDOWS RTF计算长度的方法与DELPHI不一致造成了这个bug。  
很偶然地,我发现RichEdit的这个异常实际上与使用了不恰当的字符集有关。例如:  
        RichEdit1.SelAttributes.Name := 'Symbol';  
        RichEdit1.SelAttributes.Charset := SYMBOL_CHARSET;  
        RichEdit1.Lines.Add(‘这里输入中文字符就出错’);  
以上一段代码先指定RichEdit1的字符集为SYMBOL_CHARSET(即“符号”字符集),但随后添加的文本却是由中文字符组成的。Delphi按照SYMBOL_CHARSET字符集计算长度,结果当然与中文字符的长度不同,因为中文字符是双字节字符。此时,RichEdit1就会抛出一个EOutOfResources异常。  
再例如,想在RichEdit中加入希腊字母a,写如下语句:  
        RichEdit1.Lines.Add(‘α’);  
其中的α是用输入法的软键盘输入的。这样也会引起EOutOfResources异常。正确的写法应该是:  
        RichEdit1.SelAttributes.Name := 'Symbol';  
        RichEdit1.SelAttributes.Charset := SYMBOL_CHARSET;  
        RichEdit1.Lines.Add(‘a’);  
字母a在SYMBOL_CHARSET中就是希腊字母a。  
至此,真相大白。原来是不同字符集下计算长度的规则不同引起了这个异常。差点错怪了Borland!不过,其实Borland也不能算太冤,分明是字符集设置不当,却偏要不明不白地抛出个EOutOfResources异常来,帮助文档中也没有提到这个问题,看来Borland可能的确疏忽了些什么。