delphi - 如何从TypInfo单元使用GetSetProp和SetSetProp

Question

我有一组枚举值，我需要将其转换为文本然后再返回到一组。

我相信，来自TypInfo单元的GetSetProp和SetSetProp将允许执行此操作，但我不知道如何使其正常工作。关于如何使用GetSetProp和SetSetProp完成此操作的任何想法吗？

type
  TSomething = (sOne, sTwo, sThree, sFour, s Five);
  TSomethings = set of TSomething;

var
  Something: TSomethings;
  s: string;
...
  Something := [sOne, sThree];

  s := GetSetProp(????);

  Something := [];
  // then use SetSetProp to set Something back to [sOne, sThree]
  Something := ????

Answer 1

great post on SetToString, StringToSet的tondrej解决了您的问题。