delphi如何建立自定义类？

Question

delphi如何建立自定义类？

Answer 1

type
  Tmyclass=class
    private
      fx:integer;
      ....
    protected
      ...    
    public
      procedure setx;
      function  getx;
      ....
  end;

Answer 2

type下面 implementation下面 单独的unit单元都可以

Answer 3

回复4楼的：
可以在单独pas文件中，如果和窗体文件混在一块的话需要写在type之后，要和窗体本身的定义分开

Answer 4

楼主可以看看DELPHI面向对象编程思想

Answer 5

unit Tst_XML2U;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, StdCtrls;//============自定义类==========
type 
  TMyClass=class
    字段：integer;          //不支持中文，为了你看得明白才用中文
     private
       私有字段：string;
       procedure 私有过程（v:string）;
       function  私有函数(a,b,c:integer):boolean;
    public
      ......   
  end;//===========底下是IDE自动生成的============
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ClientDataSet1: TClientDataSet;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
或者你建立一个新的unit，