如何用delphi 建立一个类,再使用对象?

Question

delphi 是面向对象编程的,如何自己定义一个类,以后就可以使用此类.能否举个例子.简单一些的

Answer 1

举一个简单的例子：
type
  TMyClass=Class
     private   //私有成员    
       Ch:char;
     public    //共有成员
       procedure SetValue(Value:char);
end;
procedure TMyClass.SetValue(Value:char);//方法
begin
  Ch:=Value;
end;
使用这个类可以这样：
var MyClass1:TMyClass;
begin
  MyClass1:=TMyClass.Create;//创建对象
  MyClass1.SetValue('A');//调用方法来赋值
  ShowMessage(MyClass1.Ch);//显示值
  MyClass1.Free;//释放
end;
这些基础的最好找本书来看看。

Answer 2

tp = class
    private
      fname: string;
      procedure setname(value: string);
    public
    publish
      property name: string read fname write setname;
   end; procedure tp.setname(value: string);
 begin
   fname := value;
 end;
 然后就可以用了 var p: tp;
 begin
   p:= tp.create;
   try
     p.name := 'zxf';
     showmesssage(p.name);
   finally
     p.free;
   end;
 end;

Answer 3

打开DELPHI时生成的新工程文件中,TForm1就是一个典型的例子

Answer 4

这个程序不能运行.能否改动后在传上来.
type
  TMyClass=Class
     private   //私有成员    
       Ch:char;
     public    //共有成员
       procedure SetValue(Value:char);
end;
procedure TMyClass.SetValue(Value:char);//方法
begin
  Ch:=Value;
end;
使用这个类可以这样：
var MyClass1:TMyClass;
begin
  MyClass1:=TMyClass.Create;//创建对象
  MyClass1.SetValue('A');//调用方法来赋值
  ShowMessage(MyClass1.Ch);//显示值
  MyClass1.Free;//释放
end;
这些基础的最好找本书来看看。