问两个问题，测试，友元 ( 积分: 50 )

Q

qiubole

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #1

什么测试工具，能根据条件之间的依赖关系，组合关系，自动生成覆盖的过滤真值表？

delphi不支持友元，但我想让不是同一个单元的两个单元相互访问PRIVATE中的方法A，而且方法A不能被其它的单元所使用，有什么好办法

 

Q

qiubole

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #2

什么测试工具，能根据条件之间的依赖关系，组合关系，自动生成覆盖的过滤真值表？

delphi不支持友元，但我想让不是同一个单元的两个单元相互访问PRIVATE中的方法A，而且方法A不能被其它的单元所使用，有什么好办法

 

A

abookdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #3

问:delphi不支持友元，但我想让不是同一个单元的两个单元相互访问PRIVATE中的方法A，而且方法A不能被其它的单元所使用，有什么好办法
答:在DELPHI中不能

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #4

答第二个问题
如果方法是在protected中声名的,可以用以下方法作到:
unit Unit2;

interface
type
TType1=class
protected
procedure pro_procedure;
public
procedure Pub_Procedure;
end;
......
unit Unit1;

interface

uses
unit2;

type
TType2=class(TType1)
end;

implementation

procedure test;
var v:TType2;
begin
v:=TType2.Create;
v.pro_procedure;
end;
end.

这是因为protected是可以继承的,又因为protected可以在本单元中其他类调用
技巧就在这里:
TType2=class(TType1)
end;

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #5

不能避免这样吗

 

D

delnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-24

• #6

delphi不支持友元

请问声明在同一个unit之中的多个类是什么关系？

 

Q

qiubole

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-25

• #7

to 张鸿林
你那样是不行的，因为我要防止被其它的人调用。

to delnew
Delphi中同一单元的类互为友元。

to all
我目前是放在PUBLIC中，方法要求带一个参数，在这个参数中判断调用者的类型，但好像还是可以伪造。

 

Q

qiubole

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-26

• #8

N年前的问题，结贴