string - Delphi中可以将字符串转换为集合吗

Question

例如

Font.Style = StringToSet('[fsBold, fsUnderline]');

当然，那里需要一些类型信息，但你明白了。我使用的是 Delphi 2007。

Answer 1

检查此代码，与您建议的语法不完全相同，但可以从字符串设置集合的值。

uses
 TypInfo;

procedure StringToSet(Const Values,AProperty:string;Instance: TObject);
begin
  if Assigned(GetPropInfo(Instance.ClassInfo, AProperty)) then
     SetSetProp(Instance,AProperty,Values);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringToSet('[fsBold, fsUnderline, fsStrikeOut]','Style',Label1.Font);
end;