Compile 不過, 只有一個 case 的話就ok,  請問怎麼處理, 謝謝.    

  TFruit = record
    name : string[20];
    Case isRound : Boolean of 
      True:
        (diameter : Single);  
      False:
        (length   : Single;   
         width    : Single);        Case isSomething : Boolean of 
      True:
        (a: integer);
      False:
        (c: char);
  end; 
 

好像 record 定義本來就只能有一個 variant part 吧？不知道可不可以做成兩個 record type？像是     TFruitShape = record Case isRound : Boolean of True: (diameter : Single); False: (length : Single; width : Single); end; TFruit = record name : string[20]; shape: TShape; Case isSomething : Boolean of True: (a: integer); False: (c: char); end; 我沒有試過，你可以試試看。要是不行，可以再把 TFruit 裡的 shape 改成 ^TShape 試試看。 另外，你想設計的 type 好像可以用物件導向的繼承方式做？

HI yhchu, 我試出來了, 不過兩個 case 不能是平行的, 要在一個 case 裡面再放一個 case,  

      TProgramItem = record
    Name: string;
    FileLocation: string; // ??
    Owner: string;
    Tel: string;
    Enable: Boolean;        case SourceType: TSource of
      tsInternet: (
        IP: array[0..4] of string[128];
        EmergencyFileLocation: string[128];
        EmergencyEnable: Boolean;
        IntervalSec: Word;
        MaxToleranceSec: Word; // type Word = 0..65535;
        case PeriodType: TPeriodType of
          tpDay: ();
          tpWeek: (Weeks: TPeriodWeeks);
          tpSpecificDate: (DateList: TList);              );
      tsCallIn: (            );
  end;
 

不過想請問一下您說的 "你想設計的 type 好像可以用物件導向的繼承方式做？" 可以大概說明一下嗎? 謝謝.