RichView13.12 Stream read error 原因分析

RichView13.12 Stream read error 

有选中文本时,调用RichViewEdit1.GetSelText;方法会报错,

发现这个版本最终调用

function TCustomRVFormattedData.GetSelTextR(Unicode: Boolean): TRVRawByteString;
var Stream: TRVMemoryStream;
begin
  {$IFNDEF RVDONOTUSEINPLACE}
  if (GetChosenRVData<>nil) then begin
    Result := TCustomRVFormattedData(GetChosenRVData).GetSelTextR(Unicode);
    exit;
  end;
  {$ENDIF}
  if not SelectionExists(False, True) then begin
    Result := '';
    exit;
  end;
  Stream := TRVMemoryStream.Create;
  try
    if SaveTextToStream('', Stream, 80, True, True, Unicode, False, CP_ACP, True) then begin//  RVMemoryStream.Write
      SetLength(Result, Stream.Size);
      Stream.Position := 0;
      Stream.ReadBuffer(PRVAnsiChar(Result)^, Stream.Size);
      end
    else
      Result := '';
  finally
    Stream.Free;
  end;
end;

write函数由于子类TRVMemoryStream有重载,所以调用了子类的write方法,对子类的Fsize赋值了,就不调用父类的write方法了,Fsize是TRVMemoryStream的私有成员,所以父类的Fsize并未赋值。导致后面调用父类TStream.ReadBuffe函数时,Fsize为0,子类没有相应的readbuffer函数,只能调用父类的read函数,所以你类函数后面报错了。最新版本XE4增加了重载ReadBuffer函数,这样最终Read调用了子类TRVMemoryStream的Read方法,完成了读功能,而不调用父类的read方法,所以就不出错了。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值