类的使用和定义

[holyten]

我在写自己的类，老是发现报错，错的原因总是一样的，就是在给成员变量赋值的时候；于是我写了个很简单的类：
unit simpleclass;
interface
uses
Windows,Classes;
type
democlass=class(TObject)
private
Fintval:Integer;
public
procedure initval(Value:Integer);
end;
implementation
procedure democlass.initval(Value:Integer);
begin
FintVal:=Value;
end;
end.
=========================================
觉的类的定义应该没有什么问题吧，但是在用的时候只要运行到赋值就报错，报的是不能访问000000xxx的内存区域什么的。不知道问题出在哪里？
我把使用这个类的方法也说一下，有可能是在用法上出了问题，是不是要像C一样初始化类呢？还是要有类的构造和析构呢？
我的类的用法是这样的，把这个simpleclass.pas拷贝到同一个目录下；然后在uses中添加:simpleclass；然后就是使用了，比如是buttonclick:
procedure TMainFrm.Button1Click(Sender: TObject);
var demo:democlass;
begin
demo.InitVal(123); //就在这里报错了；
end;
于是我就把函数内的赋值改成对函数内变量的赋值，然后这里的调用就成功了；
procedure democlass.initval(Value:Integer);
var intVal:integer;
begin
intVal:=Value;
end;
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
这个可能是个简单的问题，但是我还是不常用自己定义的类的，所以也没有接触，对不起有没有高手能给个帮助。能够一针见血的最好。谢谢

[whaway]

procedure TMainFrm.Button1Click(Sender: TObject);
var demo:democlass;//类的使用不能简单的只用变量声明的，还要用Create构造。
begin
demo.InitVal(123); //就在这里报错了；
end;
而后面调试的成功，其实操作的是局部变量，
Procedure执行完就被清理了，没有任何意义了。

[holyten]

怎么创建呢？

[soaringsouth]

demo:＝democlass.create();

[holyten]

在用完后是不是要调用 demo.Free()?

[DragonBill]

是

[hermit000]

概念型错误：首先自己写class的年过程是这样的：
先用type定义一个类。然后声明类的变量，接着创造类的实例（即对象）。
现在一个类的对象才算被定义了。
如：type
Tmyclass=class(Tobject)
private
a:integer;
public
procedure my(value:integer);
end

现在
声明一个类的变量（注意它还不是一个对象）
var
member:Tmyclass;
然后创建一个对象：
　　member:=Tmyclass.create(applicarion);
在c＋＋中的构造函数不太一样，delphi中我上面定义的类里面是继承了祖先Tobject的够构造函数来所以不用显示的声明和调用。
完

[leeky]

注意类Class与类型Type是不一样的，
虽然你申明了 demo:democlass;//
它只表示你为你即将出生的孩子取名为demo
当你赋值时demo.InitVal（3）；
其实这个孩子demo还没出生，你说你要抱他，你是如何抱的？

[soaringsouth]

类没有创建

[holyten]

说的好幽默呀，^_^，我尝试一下，但是给分了，^_^给谁呢？那么大家都分点分吧，嘻嘻