Question

I saw some very similar threads here, but I couldn’t find solution to my problem.
I take the value from TStringList and use it as pen style (psDot, psSolid and so on), but the compilation fails with Incompatible types: 'TPenStyle' and 'String' error message.

Here is the code:

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

How can I convert myList.ValueFromIndex[j] to TPenStyle ?

Answer 1

if stored as psDot, psSolid else you have to adapt

uses TypInfo;

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

as suggested by David Heffernan

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

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