Procedure TFORM1.Button1Click(sender:TObject); Type Ttest=(t1,t2,t3,t4); Begin 依上例宣告,要如何得知宣告裡有多少元素呢? 我使用了Showmessage(inttostr(high(Ttest));這樣行不通, 麻煩各位大大幫忙提供解答...謝謝 end;

A type declaration specifies an identifier that denotes a type. The syntax for a type declaration is    type newTypeName = type    where newTypeName is a valid identifier. For example, given the type declaration type TMyString = string; you can make the variable declaration var S: TMyString; A type identifier scope doesn't include the type declaration itself (except for pointer types). So you cannot, for example, define a record type that uses itself recursively. When you declare a type that is identical to an existing type, the compiler treats the new type identifier as an alias for the old one. Thus, given the declarations type TValue = Real; var X: Real; Y: TValue; X and Y are of the same type; at runtime, there is no way to distinguish TValue from Real. This is usually of little consequence, but if your purpose in defining a new type is to utilize runtime type information for example, to associate a Delphi property editor with properties of a particular type the distinction between "different name" and "different type"becomes important. In this case, use the syntax type newTypeName = type type For example, type TValue = type Real; forces the compiler to create a new, distinct type called TValue. ---------------- 局局棋盤步步新， 變化無常平常待。 人生相處平常心， 無憂無慮心事成。 ---------------- 發表人 - flyup 於 2003/01/23 01:11:04

procedure TForm1.Button1Click(Sender: TObject);
Type
  TTest = (t1, t2, t3, t4);
var
  FT: TTest;
  i: integer;
Begin
  i := 0;
  for FT := Low(TTest) to High(TTest) do
    Inc(i);      ShowMessage(IntToStr(i))
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

改成這樣就可以了 showmessage(inttostr(GetTypeData(Typeinfo(Ttest))^.MaxValue)); [note]傳回最大值, 故是3 GetTypeData可取得 PTypeData,定義在Typinfo.pas中, 對資料型態有詳細資料,如enum型態之minvalue,maxvalue等可參考看看 另使用enum 型態另有幾個function很有用順便提醒你參考 以你的case為例: GetEnumName(typeinifo(TTest), ord(t2)); //結果為t2之字串 GetEnumValue Succ ...

謝謝各位~問題以解決