編程生活

             :: 首頁(yè) :: 新隨筆 :: 聯(lián)系 :: 聚合  :: 管理 ::
            113 隨筆 :: 0 文章 :: 18 評(píng)論 :: 0 Trackbacks
          使用過(guò)c++的人都知道在c++的類中有靜態(tài)屬性及靜態(tài)方法,為程序設(shè)計(jì)帶來(lái)很多方便.那么在Delphi中靜態(tài)屬性及靜態(tài)方法是怎么實(shí)現(xiàn)的呢?請(qǐng)看下面的實(shí)例:

          unit Unit2;

          interface

          type
            TMyClass = Class
            public
              {靜態(tài)過(guò)程:設(shè)置靜態(tài)屬性的值}
              class procedure SetStaticMemberValue(AString: string);
              {靜態(tài)函數(shù):讀取靜態(tài)屬性的值}
              class function GetStaticMemberValue: string;
            end;

          implementation
          {在此聲明靜態(tài)屬性,這一點(diǎn)與c++有很大的不同}
          var
            AStaticMember: string;

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

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

          end.

              那么在TMyClass中聲明的屬性及方法是否是靜態(tài)屬性或靜態(tài)方法呢?請(qǐng)看下面的實(shí)例:

          ...
          uses unit2
          ...

          procedure TForm1.Button2Click(Sender: TObject);
          begin
            {不需聲明TMyClass的實(shí)例,可直接設(shè)置及讀取靜態(tài)屬性的值}
            TMyClass.SetStaticMemberValue('MyClass');
            showmessage(TMyClass.GetStaticMemberValue);
          end;
          posted on 2009-01-07 12:32 wilesun 閱讀(549) 評(píng)論(0)  編輯  收藏

          只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。


          網(wǎng)站導(dǎo)航:
           
          主站蜘蛛池模板: 克东县| 荣成市| 保靖县| 永川市| 滕州市| 元朗区| 巴楚县| 健康| 通渭县| 彰化县| 瑞丽市| 资溪县| 泰兴市| 西乌珠穆沁旗| 常熟市| 文水县| 木里| 自治县| 黑山县| 德阳市| 阿勒泰市| 平顶山市| 庆安县| 自贡市| 塘沽区| 奉化市| 措勤县| 文水县| 寿宁县| 平阴县| 理塘县| 梓潼县| 宣威市| 沙坪坝区| 富宁县| 大埔县| 信阳市| 扎兰屯市| 文成县| 固原市| 封开县|