AV on AddTextNLW

Return to index

Author

Message

Ilya Zaitcev

Posted: 08/23/2004 19:41:11

Hello Sergey,

After upgrade from 1.7 to 1.9 RichView now generates AV error in module

CRVData.pas in line 2052 "case ptr^ of // ptr=nil " if I try to insert any

blank string.

I'm using AddTextNLW to insert multi-line text in the RichView1 from the

RichViewEdit1:

var

sw : WideString;

...

begin

ff:=True:

sw:=FLocalName+'> ';

RichView1.AddTextNLW(sw, 4, 0, 0, TRUE);

for ix:=0 to RichViewEdit1.ItemCount-1 do begin

   rvi:=RichViewEdit1.GetItem(ix);

   if rvi.StyleNo>=0 then begin

        sw:=RichViewEdit1.GetItemTextW(ix);

        if ff or rvi.SameAsPrev then ip:=-1

        else ip:=rvi.ParaNo;

        RichView1.AddTextNLW(sw, rvi.StyleNo, ip, 0, TRUE);

   end;

   ff:=False;

end;

RichView1.FormatTail;

Any suggestions?

Best Regards,

Ilya Zaytsev