Re: AV on AddTextNLW

Return to index

Author

Message

Sergey Tkachenko

Posted: 08/23/2004 21:11:20

It's a bug.

Change CRVData.pas line 2026

   startptr := PWord(PChar(s));

> 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

>

>

>