如何在平台中实现Delphi的 Set of (XX1, XX2, XX3)的定义

atiger

Delphi中所有的此种类型TXX = Set of (XX1, XX2, XX3)的定义，在平台上都首先定义一个TXX[B]Enum[/B] 的类型(XX1, XX2, XX3)，然后定义TXX=set of TXXEnum

如 ssLeft 方法：
在Delphi 中的定义：
  TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);

在Business平台中定义为
  TShiftStateEnum = (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);
  TShiftState = set of TShiftStateEnum;

参考代码如下：
business.System.TShiftState[B]Enum[/B] .ssLeft

再如：
SysUtils.StringReplace('ABCD','tb_XJB.','',[TReplaceFlags[B]Enum[/B] .rfReplaceAll]);