2021年5月6日
获取文件版本号
摘要： function GetVer(FName: string): string;var InfoSize, Wnd: DWORD; VerBuf: Pointer; szName: array[0..255] of Char; Value: Pointer; Len: UINT; TransStrin 阅读全文
posted @ 2021-05-06 11:36 绿水青山777 阅读(85) 评论(0) 推荐(0) 编辑
日期选项
摘要： // 根据cxCombox框选择，输出开始时间，结束时间procedure GetCurSetDate(AcxCombobox: TcxCombobox; var AFromDate, AToDate: TcxDateEdit);var iYear, iMonth, iDay: Word; iWee 阅读全文
posted @ 2021-05-06 10:10 绿水青山777 阅读(65) 评论(0) 推荐(0) 编辑
全角转半角
摘要： function SbctoDbc(s: string): string;var nlength, i: integer; str, ctmp, c1, c2: string;begin nlength := length(s); if (nlength = 0) then exit; str := 阅读全文
posted @ 2021-05-06 10:09 绿水青山777 阅读(60) 评论(0) 推荐(0) 编辑