如何对TShapeType、TColor进行与string或integer的双向转换?
如:
TShapeType-〉integer: int1:=ord(shape.shape)
TShapeType-〉string: str1:=inttostr(ord(shape.shape))反过来怎末转换?
如:
shape1.shape:=将第5个转换为stcircle?
如:
TShapeType-〉integer: int1:=ord(shape.shape)
TShapeType-〉string: str1:=inttostr(ord(shape.shape))反过来怎末转换?
如:
shape1.shape:=将第5个转换为stcircle?
Shape1.shape:=TShapeType(5);