高手,请指教一二(对象属性的问题,加急!)(50分)

F

finallover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #1

我们极力主张使用面向对象的思想,但是做的时候遇到一下问题:
例如:
自定义一个类,它的属性里有一个对象.
MyType = class(TObject)
FObj:MyType1;//这个类在别处定义
Property Obj:MyType1 read GetObj write SetObj;
end;
function GetObj():MyType1;
begin
//如果我这么写,会怎么样?
result := FObj;
//我们实际的写法是这样的,可行吗?
if FObj = nil then
result :=FetchObj();//这是一个包含其它步骤生成一个新的MyType1类型对象
else
result := FObj;
end;
procedure SetObj(Value:MyType1);
begin
//如果我这么写,可以吗?
FOjb := Value;
//那怎么做是比较好的和安全的呢?
end;

 

Y

yanliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #2

可以，我任务没有什么问题。
或者可以把代码贴出来。

 

F

finallover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #3

FOjb := Value;
是把FObj指向Value的引用,但是这样,它原来引用的那个对象不是就被漏掉了吗?

 

L

lichaogang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #4

在读函数中不要生成新的对象，如果生成的话就有你所说的问题了。

 

L

lich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #5

通常是 FObj.Assign(Value);

 

F

finallover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #6

回lichaogang:我提供的方法就是想查数据库,返回一个新的对象的,如果不生成新的对象,我那个新对象从哪里来?

 

L

lichaogang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #7

你的想法不对，比如说datasource的dataset属性，如果你不赋值它还会生成一个新的dataset给你？

 

腾

腾飞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #8

学习中

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #9

属性是类类型的话，用不着Get...,Set...

 

F

finallover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #10

to zhukewen:那该怎么做哈?

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #11

MyType = class(TObject)
FObj:MyType1;//这个类在别处定义
Property Obj:MyType1 read FObj;
end;

 

Y

Yukin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #12

if FObj = nil then
result :=FetchObj();//这是一个包含其它步骤生成一个新的MyType1类型对象
else
result := FObj;
end;
上面一段有问题：result :=FetchObj();//很可能产生会内存泄漏！除非你在FetchObj()内部将对象赋值给FObj。因此建议：
if FObj = nil then
beign
FObj:=FetchObj();
end;
result := FObj;
//----------------------------------------------------
procedure SetObj(Value:MyType1);
begin
//如果我这么写,可以吗?
FOjb := Value;//这里也会产生内存泄漏！！！！！！！！！！
//那怎么做是比较好的和安全的呢?
end;
应该像下面更合适一些：
procedure SetObj(Value:MyType1);
begin
if FObj <> nil then FObj.Free;
FOjb := Value;
end;

 

F

finallover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #13

多人接受答案了。