各位好好: 小弟有一變數,需在執行時期才能決定其型態 小弟使用以下程式碼: TKeyField=packed record case x:TFieldType of ftString : (SKEYFIELD1: ftstring); ftSmallint :(skeyfield1:integer); end; 却編譯不過出現 '..' excepted but ')' found 的錯誤 不知是那裡錯了呢? 謝謝 Thomas Chiou

------
Thomas Chiou

你好：     紅色的部分是你這個錯誤訊息錯誤的地方，藍色的部分是是你修復紅色錯 誤後會發生問題的地方，你可以做下列的修改。但其實你這個宣告可以 用 Variant 型態取代，不知你這樣宣告的用意為何 原始 < class="code"> TKeyField=packed record case x:TFieldType of ftString : (SKEYFIELD1: ftstring); ftSmallint :(skeyfield1:integer); end; 修正

TKeyField=packed record
  case x:TFieldType of
    ftString : (SKEYFIELD1: String [20]);
    ftSmallint :(skeyfield2:integer);
end;

用 variant 果然更直接了當 謝謝! Thomas Chiou

------
Thomas Chiou