【正文】
if SameText(SettingField, 39。ValEncoded39。) then result := 39。39。 else if SameText(SettingField, 39。SettingType39。) then result := 39。39。 else if SameText(SettingField, 39。ValInteger39。) then result := 0 else if SameText(SettingField, 39。ValBool39。) then result := false else if SameText(SettingField, 39。ValDateTime39。) then result := EncodeDate(2001, 1, 1) else if SameText(SettingField, 39。ValMoney39。) then result := 。 end。end。initialization CoInitialize(nil)。 // ADO 需要, USES: Ole2 This_ID_Depart := 0。 This_DoLogging := true。 // Added by 趙建 2017111 15:07:17 //建立臨時表 g_HerSettingTable:=(nil)。finalization // Added by 趙建 2017111 15:07:37 FreeAndNil(g_HerSettingTable)。 CoUnInitialize()。 // ADO 需要, USES: Ole2趙 建 2017年1月1