程式碼範例:你是真的對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內部就搜尋該欄位類型對應的編輯器類別；然後由找到的類別的類，建立該類別的一個實例；

進行相關的操作（決定是否有下拉框，是否有一個按鈕等等）

更多文章