在Txxform=class(TForm)這行前面放一行 TFormState=(InPrint,InEdit,InInsert);<==請問這是什麼用法?

可以參考 TFormStyle 的 help, 它們的用法是相同的

引言: 可以參考 TFormStyle 的 help, 它們的用法是相同的

版主你好 1.看過formstyle之後似乎是property的value的意思 但我這程式中寫法是用在類別屬性的定義,還是不太了解其中用法??code如下 interface uses .... type TFormState=(InPrint,InEdit,InInsert); TBW_Root = class(TForm) private FFormState:TFormState; published property FormState:TFormState read FFormState write FFormState; 2.另外發現一個問題,如下這行也是跟上面那題一樣是用在類別屬性的定義.也不 太了解用法,請指教謝謝

1.TFormStyle 與 TFormState 相同, 屬於 Data Types 中的 Enumerated Types 因此若宣告一個變數其型態為 TFormSate 的話 那它的值只可能為 InPrint 或 InEdit 或 InInsert 其中一種 其實在 delphi 內, 這幾個值是從 0 開始的 也就是 Ord(InPrint) 所得的值為 0 Ord(InEdit) 所得值為 1, ... 在您貼的一段程式中, 先宣告了一種 Data Type 名稱為 TFormSate 其值的範圍為 InPrint/InEdit/InInsert 三種 然後宣告了一個私有變數 FFormState, 其形態為 TFormState 然後宣告發一個屬性 FormSate(此屬性會出現在 Object Inspector 上) 從字面上來看, 此屬性大概是用來判斷這個 Form 是在 Print 還是 Edit 還是 Insert 的狀態吧. 2.TLocateRecordEvent 這部份的解釋參考底下的說明及 Procedural types 的 help http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28918 發表人 - hagar 於 2004/06/21 17:36:29

引言: 1.TFormStyle 與 TFormState 相同, 屬於 Data Types 中的 Enumerated Types 因此若宣告一個變數其型態為 TFormSate 的話 那它的值只可能為 InPrint 或 InEdit 或 InInsert 其中一種 其實在 delphi 內, 這幾個值是從 0 開始的 也就是 Ord(InPrint) 所得的值為 0 Ord(InEdit) 所得值為 1, ... 在您貼的一段程式中, 先宣告了一種 Data Type 名稱為 TFormSate 其值的範圍為 InPrint/InEdit/InInsert 三種 然後宣告了一個私有變數 FFormState, 其形態為 TFormState 然後宣告發一個屬性 FormSate(此屬性會出現在 Object Inspector 上) 從字面上來看, 此屬性大概是用來判斷這個 Form 是在 Print 還是 Edit 還是 Insert 的狀態吧. 2.TLocateRecordEvent 這部份的解釋參考底下的說明及 Procedural types 的 help http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28918 發表人 - hagar 於 2004/06/21 17:36:29

經過你的詳細解說,都了解 針對第1題,若在TFormState=(InPrint,InEdit,InInsert);的下一行加上 TFormStates = set of TFormState;<==請問又是什們用法?

如果加上 TFormStates = set of TFormState; 這句的話 表示 TFormStates 是一種 Set Types 那 TFormStates 的值可能為 Inprint, 可能為 InEdit, 可能為 InInsert 可能是 Inprint 同時也是 InEdit 可能是 InPrint 同時也是 InInsert 可能是 InEdit 同時也是 InInsert 可能是 InPrint 同時也是 InEdit 同是還是 InInsert 也可能是空的, 即三者都都沒有 用程式的表示(要用中括號)的話如下:

var
  fs: TFormStates;
begin
  fs := [InPrint]; // 等於其中一個值
  fs := [InEdit];
  fs := [InInsert];
  fs := [InPrint, InEdit]; // 等於其中二個值
  fs := [InPrint, InInsert];
  fs := [InEdit, InInsert];
  fs := [InPrint, InEdit, InInsert]; // 三個都是
  fs := []; // 一個都沒有
end;

另外要說的是如果要將 fs 這變數加減值的話就用 或 - 例:

begin
  fs := [InPrint, InEdit];
  fs := fs   [InInsert];
  fs := fs - [InPrint];
end;

引言: 如果加上 TFormStates = set of TFormState; 這句的話 表示 TFormStates 是一種 Set Types 那 TFormStates 的值可能為 Inprint, 可能為 InEdit, 可能為 InInsert 可能是 Inprint 同時也是 InEdit 可能是 InPrint 同時也是 InInsert 可能是 InEdit 同時也是 InInsert 可能是 InPrint 同時也是 InEdit 同是還是 InInsert 也可能是空的, 即三者都都沒有 用程式的表示(要用中括號)的話如下:

var
  fs: TFormStates;
begin
  fs := [InPrint]; // 等於其中一個值
  fs := [InEdit];
  fs := [InInsert];
  fs := [InPrint, InEdit]; // 等於其中二個值
  fs := [InPrint, InInsert];
  fs := [InEdit, InInsert];
  fs := [InPrint, InEdit, InInsert]; // 三個都是
  fs := []; // 一個都沒有
end;

另外要說的是如果要將 fs 這變數加減值的話就用 或 - 例:

begin
  fs := [InPrint, InEdit];
  fs := fs   [InInsert];
  fs := fs - [InPrint];
end;

版主說得真清楚,都明白,感謝^^