该文被密码保护。 阅读全文
posted @ 2008-12-21 03:19 谭志宇 阅读(10) 评论(0) 推荐(0) 编辑
摘要: function ExportToWord(StrList: TStrings; SavePath: string): Boolean; var WordApp: TWordApplication; WordDoc: TWordDocume... 阅读全文
posted @ 2008-12-21 03:17 谭志宇 阅读(353) 评论(0) 推荐(0) 编辑
摘要: function GetNumSumFromStr(Str: string): Integer; function IsNumber(SoureChar: Char): Boolean; begin Result... 阅读全文
posted @ 2008-12-21 03:15 谭志宇 阅读(309) 评论(0) 推荐(0) 编辑