我想在 statusbar 分兩個 panel, panels[0] 放 auto hint panels[1] 放 message 但是不想用 0, 1 這種沒有意義的索引, 若在 c 語言通常都用 enum { StatusHint,StatusMsg }; StatusBar1.Panels[StatusHint] 就會自動索引到 0 但 delphi 中,必須改成 type StatusIndexType=(StatusHint,StatusMsg); StatusBar1.Panels[Ord(StatusHint)] 就會自動索引到 0 請問各位有較方便的做法嗎?

如果你用 Const 去定義的話 ,也許也是可以做到同樣的功能囉    

 
const
  A = 0 ;
  B = 1 ;
  C = 2 ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do
    try
      Add( 'This ' ) ;
      Add( 'is ' ) ;
      Add( 'a book.' ) ;
    finally
      ShowMessage( Strings[ A ]   Strings[ B ]   Strings[ C ] ) ;
      Free ;
    end ;
end;

換種說法好了, 我就是覺得 const A=1 B=2 .. 這種寫法太麻煩,因為在 C 裡面 enum 會自動編號, 並相容於 integer type. 有人有更方便的做法嗎?

可以以enum之型態做為array之index如下 type MyType=(typeA, typeB, TypeC); var aa:array[MyType] of string;//宣告array 以mytype為index begin aa[typeA]:='this is a string'; showmessage(aa[typeA]); end; 在stausbar之panels其index已宣告為integer故一定要用ord(...) 無法像C 一樣