Delphi 13 Compile Error with RichView 24
Posted: Wed Sep 09, 2026 9:37 pm
I'm getting the compile error on this line below: item := RichViewTextItemClass.Create(RVData);
I probably have to change the IFDEF?
Here's the var: item: TRVTextItemInfo;
//InsertMultilineText(RVData, i, j, vStringList.Text);
for j := vStringList.Count-1 downto 0 do
begin
{$IFDEF RICHVIEW22}
item := RichViewTextItemClass.Create(RVData);
{$ELSE}
item := RVItemFactory.TextItemClass;
{$ENDIF}
s := ReplaceCRLFWithSpaces(vStringList[j]);
if IsAddress then
if s = '' then
continue;
item.ParaNo := ParaNo;
item.StyleNo := itemStyleNo;
if j=0 then
begin
item.SameAsPrev := ContinuePara;
item.BR := BR;
end;
item.Inserting(RVData, s, False);
try
RVData.Items.InsertObject(ItemIndex, s, item);
item.Inserted(RVData, ItemIndex);
except
end;
NormalizeRichView(RVData);
end;
I probably have to change the IFDEF?
Here's the var: item: TRVTextItemInfo;
//InsertMultilineText(RVData, i, j, vStringList.Text);
for j := vStringList.Count-1 downto 0 do
begin
{$IFDEF RICHVIEW22}
item := RichViewTextItemClass.Create(RVData);
{$ELSE}
item := RVItemFactory.TextItemClass;
{$ENDIF}
s := ReplaceCRLFWithSpaces(vStringList[j]);
if IsAddress then
if s = '' then
continue;
item.ParaNo := ParaNo;
item.StyleNo := itemStyleNo;
if j=0 then
begin
item.SameAsPrev := ContinuePara;
item.BR := BR;
end;
item.Inserting(RVData, s, False);
try
RVData.Items.InsertObject(ItemIndex, s, item);
item.Inserted(RVData, ItemIndex);
except
end;
NormalizeRichView(RVData);
end;