一个小问题 请大家帮帮忙 ( 积分: 10 )

K

knight_dp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-30

• #1

请问一个菜菜的问题
type
TCurveInfo=record
style:TDataStyle;
CurveColor:tcolor;
size:integer;
CurveStyle:TCurveStyle;
Data:integer;
Func:TFunc;
arr_data:array of integer;
end;
怎么样在 这个 类中设置各属性的 默认值
是用 default 还是用 '='号 我都试了一下
如:
size:integer=0;
或者
size:integer default 0 都不行;
不知道怎么做
请帮帮忙!

 

清

清新空气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-02

• #2

你这是用的记录指针，应该不能设置默认值，因为它在还没申请分配内存地址时是不能赋值的；
如果你想加默认值，可以写个方法；在一申请内存时就赋值，只用调用此方法就可以了；

 

I

icc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-02

• #3

楼上说得对
function GetARec: TCurveInfo;
begin
result.size := 0;
end;

var
r : TCurveInfo;
begin
r := GetARec;
end;

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-02

• #4

record 里面不能设置缺省啊！

 

K

knight_dp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-11

• #5

谢谢!