在Delphi中可否定义类似C语言中“共同体”变量？如何用？(50分)

F

fjqzmcc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #1

通过“共用体”将字符串存入用整形数读出。

 

A

a1b1c1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #2

使用等字节的case语句。但读出时需转换，因为Int和String/Pchar存放方式不同。
例如'1233'不能直接读出1233须转换。

 

F

fjqzmcc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #3

我要用来转换如chr($22)+chr($23)+chr($22)+chr($23) 为$22232223

 

A

a1b1c1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #4

如果这样，可以。

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-10

• #5

就是变体型结构变量
type
TShapeList = (Rectangle, Triangle, Circle, Ellipse, Other);
TFigure = record
case TShapeList of
Rectangle: (Height, Width: Real);
Triangle: (Side1, Side2, Angle: Real);
Circle: (Radius: Real);
Ellipse, Other: ();
end;

 

F

fjqzmcc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #6

问题解决了，用wr960204的方法，声明时还应加上packed 。
type
TShapeList = (Rectangle, Triangle, Circle, Ellipse, Other);
TFigure = packed record
case TShapeList of
Rectangle: (Height, Width: Real);
Triangle: (Side1, Side2, Angle: Real);
Circle: (Radius: Real);
Ellipse, Other: ();
end;

 

F

fjqzmcc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #7

接受答案了.