初学者问题：我想把一些常用的函数定义成一个类，放在一个单独的Unit文件中，但是调用时出错。(50分)

龙行天下 · 2002-09-27

我的类文件：myunit
类名：
type
Tmyunits = class
private
n : integer;
public
procedure setn(x:integer);
end;
Tmyunits.procedure setn(x:integer);
begin
n := x;
end;

在Unit1中
use myunit, forms, ....
var
myunits: Tmyunits;
implementation
...
procedure TForm1.Button1Click(Sender: TObject);
begin
myunits.setn(123);
end;

运行，点击Button1就报错。
跟踪程序，发现类过程
Tmyunits.procedure setn(x:integer);
begin
n := x
// ①
end;
①处：n不可访问。

请各位大侠指教一下，如何解决？我希望各个窗体文件都能共享Tmyunits。

我爱PASCAL · 2002-09-27

这个类必须初始化，不过不必做成类，放在一个单元里就行了。
常用函数可分类放入不同的单元，需要是就引用此单元，就像
delphi的sysutils单元之类。

懒虫007 · 2002-09-27

同意楼上，确实没有初始化，加上myunits:=tmyunits.create;试一下.

pcc_mmz1 · 2002-09-27

你这个错误很明显的/
首先你的那个单元的函数就错了，应该是这样的。
我的类文件：myunit
类名：
type
Tmyunits = class
private
n : integer;
public
procedure setn(x:integer);
end;
procedure Tmyunits.setn(x:integer);
begin
n := x;
end;

另外，你定义的对象，还没有创建呢，应该这样：

procedure TForm1.Button1Click(Sender: TObject);
begin
myunits :=Tmyunits.create;
myunits.setn(123);
end;

这样就对了。给分吧。

bluenats · 2002-09-27

唉，来晚了~~~~

mdc · 2002-09-27

白来了。也发点儿分吧。

twos · 2002-09-27

这些公用函数，没必要定义在类中

hryyx · 2002-09-27

哥们，la le shi zen mo bu ca pi gu a !
procedure TForm1.Button1Click(Sender: TObject);
begin
myunits :=Tmyunits.create;
myunits.setn(123);
myUnits.Free;
end;

pengjinlongex · 2002-09-27

来晚啦

龙行天下 · 2002-09-27

多人接受答案了。

初学者问题：我想把一些常用的函数定义成一个类，放在一个单独的Unit文件中，但是调用时出错。(50分)

龙行天下

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

懒虫007

Unregistered / Unconfirmed

pcc_mmz1

Unregistered / Unconfirmed

bluenats

Unregistered / Unconfirmed

mdc

Unregistered / Unconfirmed

twos

Unregistered / Unconfirmed

hryyx

Unregistered / Unconfirmed

pengjinlongex

Unregistered / Unconfirmed

龙行天下

Unregistered / Unconfirmed

Similar threads