Delphi 7和Delphi 2010之间的TVirtualStringTree兼容性 – ‘参数列表不同’

我已经创建了一个包含TVirtualStringTree的表单,该表单在Delphi 7和Delphi 2010中有效.我注意到,当我在两个平台之间移动时,我在树事件上得到消息’…参数列表不同..’和字符串类型正在改变TWIDEString(D7)和字符串(D2010).我发现用来抑制此错误的唯一技巧是使用编译器指令,如下所示：

{$IFDEF TargetDelphi7}
procedure VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
{$ELSE}
procedure VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
{$ENDIF}

并在事件实施的地方重复这一点.我错过了一个简单的解决方案？
谢谢.

最简单的解决方案是为D7和D2010维护单独的源和组件文件夹.它最终会节省时间和麻烦.