能不能动态的创建数据记录 Record？？ 急呀。快帮帮我！(100分)

M

microrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #1

平时我们定义数据记录时是这样做的：
type reMydat = record
aaa: smallint;
bbb: char;
ccc: array [0..3] of char;
ddd: array [0..3] of char;
end;

而怎么样才能动态的创建上面的这种记录呢。
记录的名是动态的，记录的字段是动态的。记录的类型及大小也是动态的。怎么做？？

 

A

Activer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #2

呵呵，用的着吗？
试一试Variant

 

M

microrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #3

当然用得到了。这是一个通信程序要用的一部分。必须的呀。快帮我，说其它的没用

 

Z

zdb123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #4

gz

 

F

freecgi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #5

关注

 

A

angelrab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #6

gz

 

D

DT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #7

有点难，大家帮忙想想，告诉我.

 

M

mercury78

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #8

例子
type

TPerson = record
FirstName, LastName: string[40];
BirthDate: TDate;
case Citizen: Boolean of
True: (Birthplace: string[40]);
False: (Country: string[20];
EntryPort: string[20];
EntryDate, ExitDate: TDate);
end;

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;

 

M

microrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #9

to mercury78:
你给的这个东东怎么用呀，能不能给一个使用的例子。谢谢呀