摘要: 、 阅读全文
posted @ 2025-06-10 19:47 绿水青山777 阅读(2) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2025-06-10 19:43 绿水青山777 阅读(2) 评论(0) 推荐(0)
摘要: 1.创建文件 2.加入调试异常 3.跳过系统文件 阅读全文
posted @ 2025-05-30 21:23 绿水青山777 阅读(3) 评论(0) 推荐(0)
摘要: Delphi中取得程序版本号 Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info 选项卡中选中“Include version information in pr 阅读全文
posted @ 2022-07-05 17:09 绿水青山777 阅读(633) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2022-06-09 11:33 绿水青山777 阅读(20) 评论(0) 推荐(0)
摘要: function RoundFloat(f: double; i: integer): double;var s: string; ef: extended;begin s := '#.' + StringOfChar('0', i); ef := StrToFloat(FloatToStr(f)) 阅读全文
posted @ 2022-06-09 11:31 绿水青山777 阅读(68) 评论(0) 推荐(0)
摘要: CREATE OR REPLACE Function GetTianXiaoSFenZ(InYingWCSJ ZK_ShiXWDXX.YingWCSJ%Type, InWanCSJ BingRBL.WanCSJ%Type) Return VarChar2 is Result VarChar2(40) 阅读全文
posted @ 2022-06-03 21:44 绿水青山777 阅读(43) 评论(0) 推荐(0)
摘要: select t.COLUMN_NAME, Decode(t.DATA_TYPE,'NUMBER',DATA_TYPE||'('||DATA_LENGTH||','||DATA_PRECISION||')',DATA_TYPE||'('||DATA_LENGTH||')') DATA_TYPE, t 阅读全文
posted @ 2022-04-10 10:48 绿水青山777 阅读(307) 评论(0) 推荐(0)
摘要: 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 阅读(88) 评论(0) 推荐(0)
摘要: // 根据cxCombox框选择,输出开始时间,结束时间procedure GetCurSetDate(AcxCombobox: TcxCombobox; var AFromDate, AToDate: TcxDateEdit);var iYear, iMonth, iDay: Word; iWee 阅读全文
posted @ 2021-05-06 10:10 绿水青山777 阅读(67) 评论(0) 推荐(0)