看一下这个数据结构定义。(100分)

L

liu-yb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #1

在C里的定义是这样的：
type struct tagdata
{ DWORD data1;
DWORD data2;
union
{DWORD data3;
time_t time1;
};
char char1[64];
}datastr;

我在DELPHI中写为：
tagdata=packed record
data1:longword;
data2:longword;
case Integer of
0data3:longword);
1time1:ttime);
end;
char1:array of [1..64] of char;
end;

问题：这样定义不能通过。

 

T

TK128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #2

tagdata=packed record
data1:longword;
data2:longword;
case Integer of
0data3:longword);
1time1:ttime);
end;
char1:array of [1..64] of char;
end
^^此处错了,删掉即可

 

L

liu-yb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #3

不对，把最后的(END删除，结构就变为两个了。
char1:array of [1..64] of char;//就变成独立的结构了。

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #4

可变纪录的变化部分好像必须在纪录的最后部分

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #5

type
temptype=packed record
case Integer of
0data3:longword);
1time1:ttime);
end;

tagdata=packed record
data1:longword;
data2:longword;
x:temptype;
char1:array[0..63] of char;
end;

 

L

liu-yb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #6

谢谢各位!