程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delph i2007學習筆記(二)

delph i2007學習筆記(二)

編輯:Delphi

現在學的是Delphi 的類,原D7的類我不就不記了,記下與D7不同的地方

  a.class abstract 純虛類,不能實例化的類

type
 TAbstractClass = class abstract
  procedure SomeProcedure;
end;

   以前的做法是在 procedure 的後面與 abstract ,現在只移類的說明上,只是意思一樣,就是直觀點少打字 呵呵.

  b.class sealed 這個我目前不知是什麼意思,可能是不能繼承的類

type
 TAbstractClass = class sealed
  procedure SomeProcedure;
end;

  c.class const 類的常量,這個地方在D7內可以定類的方法一樣能實現

type
 TClassWithConstant = class
  public
   const SomeConst = 'This is a class constant';
 end;
      
procedure TForm1.FormCreate(Sender: TObject);
begin
 ShowMessage(TClassWithConstant.SomeConst); //引用時,只寫類名就可能引用,不必實例化
end;
d.class type 類的類型, 在類的層次下可以定record,class子類什麼的,這個將數據的集中體現....
type
 TClassWithClassType = class
 private
  type
   TRecordWithinAClass = record
   SomeFIEld: string;
  end;
 public
    class var
   RecordWithinAClass: TRecordWithinAClass;
 end;
 ...
procedure TForm1.FormCreate(Sender: TObject);
begin
 TClassWithClassType.RecordWithinAClass.SomeField := 'This is a fIEld of a class type declaration';
 ShowMessage(TClassWithClassType.RecordWithinAClass.SomeFIEld);
end;
type
 TOuterClass = class
 strict private
  MyFIEld: Integer;
 public
  type
   TInnerClass = class
   public
    MyInnerFIEld: Integer;
    procedure InnerProc;
   end;
   procedure OuterProc;
 end;
  
procedure TOuterClass.TInnerClass.InnerProc;
begin
 ...
end;


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved