TPenStyleやTShapeTypeをStreamにするには？ (ID:26698)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >これだと、TPenStyle等には代入できそうにないんですけど。 代入するのはTPenStyle(5)だけです。 Ord(TPenStyle(5))は５に戻るよという意味です。 >元に戻すのは変換した順序値をその型でキャストするだけです。 type TPenStyle = (psSolid, psDash, psDot, psDashDot, psDashDotDot,psClear,psInsideFrame); TPenStyle(5)=TPenStyle(psClear) 要するにpsClearは６番目(０から始まるので) のTPenStyleだと云うことです。