Delphi方法

最新推荐文章于 2024-06-14 07:22:10 发布

weixin_30952103

最新推荐文章于 2024-06-14 07:22:10 发布

阅读量529

点赞数

原文链接：http://www.cnblogs.com/wuxi15/p/3397041.html

版权

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;
TKzx=class            //创建一个类
    Name:String;
    iYear:String;
    Procedure ShowName;       //声明一个普通方法
    class Procedure ShowStr; //声明一个类方法
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Class Procedure TKzx.ShowStr ;   ///实现类方法
begin
   ShowMessage('大家好');
end;
procedure TKzx.ShowName ;       //实现普通方法
begin
   ShowMessage(Name);
end;
procedure ShowI(Const i;Var S:String);
begin
   ShowMessage(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
Kzx:TKzx;
begin
Kzx:=TKzx.Create;
Kzx.Name:='Kzx';
Kzx.ShowName;       //引用普通方面
Kzx.ShowStr;        //引用类主法
TKzx.ShowStr; //直接调用类方法
end;