- 博客(14)
- 收藏
- 关注
原创 Delphi 进制转换函数
N 进制转 10 进制uses Math;{ N 进制转 10 进制 ANBaseCode:N 进制码,如 16 进制为 '0123456789ABCDEF',34 进制为 '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ'。也可以自定义,如 'ABC' ANBaseValue:N 进制值}function NBaseToDecimal(const ANBaseCode, ANBaseValue: string): Int64;var t..
2021-12-14 16:21:57
583
原创 SQL Server 进制转换函数
N 进制转 10 进制IF EXISTS(SELECT TOP 1 1 FROM [sys].[objects] WHERE object_id =OBJECT_ID(N'[dbo].[f_NBaseToDecimal]') AND type IN(N'FN', N'IF', N'TF', N'FS', N'FT')) DROP FUNCTION [dbo].[f_NBaseToDecimal]GO/* 2021-10-13 YiCong.Zhuang Create N 进制..
2021-10-13 18:20:02
814
原创 Delphi 字节位操作
位操作说明and按位与,对操作数的二进制数按位与not按位取反,对操作数的二进制数按位取反and按位与,对操作数的二进制数按位与or按位或,对操作数的二进制数按位或xor按位异或,对操作数的二进制数按位异或shl向左移位,对操作数的二进制数按位左移shr向右移位,对操作数的二进制数按位右移举例:字节型变量 a 和 b,它们的值分别为:00000101 和 00000110,即十进制中的 5 和 6a:00000101b:000...
2021-09-14 17:06:24
1226
原创 Delphi Unicode 转 中文
工作需要用到 Unicode 转 中文,习惯性的度娘了一番,把找到的函数拿来试用后发现速度有点慢,便自己写了一个:function UnicodeToChinese(const ASourceStr: string): string;var tmpIdx: Integer; tmpStr: string;begin Result := ASourceStr; repeat tmpIdx := Pos('\u', Result); if tmpIdx =0 then
2021-07-31 15:59:42
503
原创 SQL Server 查看表名和表占用空间信息
---- 查看表名和表占用空间信息-- reserved = data +index_size +unused--IF OBJECT_ID('tempdb..#tmpTable') IS NOT NULL DROP TABLE #tmpTableGOCREATE TABLE #tmpTable ( name VARCHAR(255) , rows VARCHAR(255) , reserved VARCHAR(255) , data
2021-07-07 17:25:28
223
原创 Nginx启动、关闭脚本
创建bat文件,放于 nginx.exe 所在目录。如启动bat:@echo offrem 如果启动前已经启动nginx并记录下pid文件,会kill指定进程nginx.exe -s quitrem 测试配置文件语法正确性nginx.exe -t -c conf/nginx.confrem 按照指定配置去启动nginxnginx.exe -c conf/nginx.conf正常运行启动脚本后,会出现一个Dos界面,此界面关闭不影响使用。如:如果运行启动脚本后Dos界面
2021-07-07 17:03:30
470
原创 Nginx配置TCP负载均衡+关闭日志
修改 \conf\nginx.conf 文件,修改后的内容如下:#user nobody;worker_processes 1;#error_log logs/error.log;#error_log logs/error.log notice;#error_log logs/error.log info;#pid logs/nginx.pid;events { worker_connections 1024;}error_log nul
2021-07-07 16:51:57
426
原创 Delphi 执行cmd命令
说明: 主要代码是从 http://tieba.baidu.com/p/3214053453 抄录的 Demo下载:执行cmd命令主要思路{ 建立两条管道,一条负责从程序(进程)往新建立的cmd进程传信息,另一条则反过来,从cmd进程传信息给程序 程序通过 WriteIn 写入,cmd进程 从 ReadIn 读到程序写入的信息 cmd进程 的返回值或错
2017-07-07 17:15:58
636
原创 Delphi 修改资源字符串
Demo下载:修改资源字符串主要代码procedure SetResourceString(OldValue, NewValue: PResStringRec);var OldProtect: DWORD;begin { 通过 VirtualProtect 修改指定数据所在区域的内存属性为可读写,该区域原来的属性保存在 OldProtect 中 } VirtualProtect(O
2017-07-02 18:13:09
709
原创 Delphi新注释
标准请看帮助文件里的:XML Documentation Comments个人常用:摘要/// /// 这是摘要/// :描述/// /// 这是描述/// :返回/// 返回值:参数的名称和描述/// 类型:形成类似超链接的效果,字下面有横线,但点了后不会跳转/// :新段落/// aabbcc:用了这个后,英文看起来字体小了一号///
2017-07-02 17:38:56
1017
转载 Delphi的函数大全
delphi(pascal)的函册 名称 类型 说明 ----------------------------------------------------------------------------------Abort 函数 引起放弃的意外处理Abs 函数 绝对值函数AddExitProc 函数 将一过程添加到运行时库的结束过程表中Addr 函数 返回指
2011-12-18 07:38:17
1266
转载 Delphi中的时间操作技术
在编写应用程序时,我们需要经常与时间和日期打交道,因此经常需要一些对时间的控制技术,在Delphi中,提供了一整套对日期和时间的操作函数,在此,我将详细介绍一下在Delphi中的时间操作技术,希望能对大家有所帮助。 一、Delphi中的用于表示时间的类型 首先,看一看在delphi中用于描述时间的几种数据结构,对时间的操作,其实就是对这些结构的操作。 1、TDat
2011-12-18 07:36:23
387
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人