您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi的静态类使用Demo

时间:2011/9/3 16:25:35 点击:

  核心提示:unit Static;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...

unit Static;

interface

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

type
   TForm1 = class(TForm)
     btn1: TButton;
     procedure btn1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

   type
   TMyClass = Class
   public
     class procedure SetStaticMemberValue(AString: string);
     class function GetStaticMemberValue: string;
   end;


var
   Form1: TForm1;

implementation
var
   AStaticMember: string;
{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
   TMyClass.SetStaticMemberValue('MyClass');
   showmessage(TMyClass.GetStaticMemberValue);
end;

{ TMyClass }

class function TMyClass.GetStaticMemberValue: string;
begin
    Result := AStaticMember;
end;

class procedure TMyClass.SetStaticMemberValue(AString: string);
begin
   AStaticMember := AString;
end;

end.

Tags:静态 使用 
作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章 技术支持:深圳市麟瑞科技有限公司(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 粤ICP备10103342号-1