2025年10月22日 星期三  乙巳年 九月初二 【蛇】丙戌月 甲子日
用户名: 密 码: 保存
您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi的静态类使用Demo

时间:2011/9/3 16:25:00 点击: 1501

  核心提示: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) © 2025 版权所有 All Rights Reserved.
  • 粤ICP备10103342号-1