The following function produces an error when compiling with trichview 17, because the "GetItemTextR" method does not exist

Who can give me an alternative that works. Thanks in advance

Code: Select all

```
function GetItemText2Mod(RVData: TCustomRVData; ItemNo: Integer): TRVAnsiString;
begin
if RVData.GetItemStyle(ItemNo)>=0 then
Result := RVData.GetItemTextA(ItemNo)
else if RVData.GetItem(ItemNo).GetBoolValue(rvbpAlwaysInText) then
Result := RVData.GetItem(ItemNo).AsText(0, RVData, RVData.GetItemTextR(ItemNo), '', True, False, 0)
else
Result := '';
end;
```