delphi - 如何将字符串转换为TPenStyle？

Question

我在这里看到了一些非常相似的线程，但是找不到解决我问题的方法。
我从TStringList取值并将其用作笔样式（psDot，psSolid等），但是编译失败并显示Incompatible types: 'TPenStyle' and 'String'错误消息。

这是代码：

Image1.Canvas.Pen.Style := myList.ValueFromIndex[j];

如何将 myList.ValueFromIndex[j]转换为 TPenStyle？

Answer 1

如果存储为psDot，psSolid，则必须适应

uses TypInfo;

Image1.Canvas.Pen.Style := TPenStyle(GetEnumValue(TypeInfo(TPenStyle),myList.ValueFromIndex[j]));

如David Heffernan所建议

Function PenStyleFromName(const Name: string):TPenStyle;
begin
  Result := TPenStyle(GetEnumValue(TypeInfo(TPenStyle),Name));
end;

//....
Image1.Canvas.Pen.Style := PenStyleFromName(myList.ValueFromIndex[j]);