- 博客(14)
- 收藏
- 关注
RSS订阅原创 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
674
原创 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
924
原创 Delphi 字节位操作
位操作说明and按位与，对操作数的二进制数按位与not按位取反，对操作数的二进制数按位取反and按位与，对操作数的二进制数按位与or按位或，对操作数的二进制数按位或xor按位异或，对操作数的二进制数按位异或shl向左移位，对操作数的二进制数按位左移shr向右移位，对操作数的二进制数按位右移举例：字节型变量 a 和 b，它们的值分别为：00000101 和 00000110，即十进制中的 5 和 6a：00000101b：000...
2021-09-14 17:06:24
1429
原创 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
624
原创 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
312
原创 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
557
原创 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
513
原创 Delphi 执行cmd命令
说明： 主要代码是从 http://tieba.baidu.com/p/3214053453 抄录的 Demo下载：执行cmd命令主要思路{ 建立两条管道，一条负责从程序（进程）往新建立的cmd进程传信息，另一条则反过来，从cmd进程传信息给程序 程序通过 WriteIn 写入，cmd进程 从 ReadIn 读到程序写入的信息 cmd进程 的返回值或错
2017-07-07 17:15:58
758
原创 Delphi 修改资源字符串
Demo下载：修改资源字符串主要代码procedure SetResourceString(OldValue, NewValue: PResStringRec);var OldProtect: DWORD;begin { 通过 VirtualProtect 修改指定数据所在区域的内存属性为可读写，该区域原来的属性保存在 OldProtect 中 } VirtualProtect(O
2017-07-02 18:13:09
836
原创 Delphi新注释
标准请看帮助文件里的：XML Documentation Comments个人常用：摘要/// /// 这是摘要/// ：描述/// /// 这是描述/// ：返回/// 返回值：参数的名称和描述/// 类型：形成类似超链接的效果，字下面有横线，但点了后不会跳转/// ：新段落/// aabbcc：用了这个后，英文看起来字体小了一号///
2017-07-02 17:38:56
1140
转载 Delphi的函数大全
delphi(pascal)的函册 名称 类型 说明 ----------------------------------------------------------------------------------Abort 函数 引起放弃的意外处理Abs 函数 绝对值函数AddExitProc 函数 将一过程添加到运行时库的结束过程表中Addr 函数 返回指
2011-12-18 07:38:17
1393
转载 Delphi中的时间操作技术
在编写应用程序时，我们需要经常与时间和日期打交道，因此经常需要一些对时间的控制技术，在Delphi中，提供了一整套对日期和时间的操作函数，在此，我将详细介绍一下在Delphi中的时间操作技术，希望能对大家有所帮助。 一、Delphi中的用于表示时间的类型 首先，看一看在delphi中用于描述时间的几种数据结构，对时间的操作，其实就是对这些结构的操作。 １、TDat
2011-12-18 07:36:23
464
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人