程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 代碼示例:你是真的對Delphi很了解麼?

代碼示例:你是真的對Delphi很了解麼?

編輯:Delphi
 Procedure StepEditor( strgrid: TStringGrid; Step: TStep );
  var
    sValue, sFIEld: string;
    EditorClass: TStepEditorClass;
    Editor: TStepEditor;
  begin
    sFIEld := strgrid.Cells[0, strgrid.Selection.Top];
    sValue := strgrid.Cells[1, strgrid.Selection.Top];
    EditorClass := EditorClassList.Editors[ sFIEld ];
    Editor := EditorClass.Create;
    Editor.Field := sFIEld;
    Editor.Step := Step;
    Editor.Edit( sValue );
    Editor.Free;
    strgrid.Cells[ 1, strgrid.Selection.Top ] := sValue;
  end;

  EditorClass 是一個Class of Class, 也就是類的類
  比如
    TFormClass = Class of TForm;
  但是不同於:TFormClass = Class( TForm ); 這是兩個概念!
  
  而 EditorClassList 裡面存放的就是 類的類的列表;
  
  Editor := EditorClass.Create;
  
  Create是類方法,而不是對象方法,所以可以由 EditorClass來創建EditorClass的一個實例

  補充:
   
    TStepEditor = Class( TObject )
    ...
    End;
  
    TStepEditorClass = Class of TStepEditor;
  

  Object Inspector 為什麼能夠提供一個方便的編輯環境?
  為什麼不同的字段,供選擇的值不一樣,校驗的方式不一樣,彈出的編輯框
  不一樣?因為根據不同的字段類型,注冊了不同的屬性編輯器 Propety Editor;
  簡化Delphi提供的注冊屬性編輯器的函數,可以描述為以下:
  RegisteryPropertyEditor( PropertyFIEldType, EditorClass );
                                             ^此處為類型名,如 Bool , Integer, ...等等
                                                                                 ^此處為對應的編輯器的類名,注意,不是類名的字符描述
  實際運行的時候,用戶點擊Object Inspector 的一個字段的時候,
  Delphi內部就搜索該字段類型對應的編輯器類;然後由找到的類的類,創建該類的一個實例;
  進行相關的操作(決定是否有下拉框,是否有一個按鈕等等)

     

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