delphi listview列表显示乱码

   今天项目中遇到ListView1 用report格式显示汉字乱码的问题，一直不知道怎么解决，后来把viewstyle切换到别的然后再切换回来就正常了，没有搞懂到底啥原因。