摘要： function GetGUID: string; var vGUID: TGUID; vTemp:string; begin if S_OK = CreateGuid(vGUID) then begin vTemp := GUIDToString(vGUID); //去掉字符串中的{,-字符 vT 阅读全文

摘要： 日期格式的处理总是会很复杂，因为不同的环境日 期格式也不一样。为了程序统一处理， 最好把格式给统一了： 可以在程序的初始化段： 其中 sNames 是自己定义的月份名的全局数组， 如果你显示的格式例如： 'dd mmm yyyy' 那 'mmm' 就显示的这个数组中对应的string， 定义可以是： 阅读全文