學生 有姓名,電話, 性別分成男女, 如果男學生的話要紀錄他有幾件褲子, 女學生的話要紀錄她有幾件裙子, 請問如何處理? 如果只用一組 record 的話? PStudentItem = ^TStudentItem; TStudentItem = record name: string; tel: string; ..... end; 請指教, 謝謝.

to zombit,參考看看

  TStuSex = (sexMaleness,sexFemale);      TStudent = record
    Name:String;
    TEL:String;
    Sex:TStuSex;
    case TStuSex of
      sexMaleness:(PantsNum:Integer);
      sexFemale:(SkirtNum:Integer);
  end;

謝謝 change.jian 可以了.