Question

For instance

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

of course there would need to be some typeinfo stuff in there, but you get the idea. I’m using Delphi 2007.

Answer 1

check this code, is not exactly the same syntax which you propose , but works setting the value of a set from a string.

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;