摘要：
开发环境DelphiXe11； 这个代码不适用于Delphi7,一般不适用于Delphi2007之前的版本； 这个图片：12个字(汉字)换行；2数字和2字母认为等于1汉字； 这个换行不大行，全是小写的字母占占用的位置比较少，如果要效果好的，请自己写； --Unit-- unit Unit1; int 阅读全文
2024年7月3日 #
2023年8月7日 #
摘要：
开发环境Delphi Xe11.3 调用的程序 procedure TForm2.Button1Click(Sender: TObject); begin //某个参数包含空格时(用""),如下面这行 ；这里传递过去是3个参数 ShellExecute(handle,'open',pchar( 'C 阅读全文
2023年7月31日 #
摘要：
开发环境：DelphiXE11.3 做个笔记 链接1： 链接2 链接1是某位大佬的源码，被俺收藏了； 链接2是本人从链接1中提取一部分，改了一点点东西；(比如下面的代码 fRSAOpenSSL.PublickEncrypt(aRSAData,memPubKey.Text); //公钥加密（公钥是字符 阅读全文
2022年12月21日 #
摘要：
开发环境Delphi XE10 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics 阅读全文
2022年9月28日 #
摘要：
测试环境SQL Server 2012 select a.definition , b.name,b.is_disabled from sys.sql_modules a inner join sys.triggers b on a.object_id=b.object_id --所有的触发器 se 阅读全文
2022年5月27日 #
摘要：
开发环境是Delphi XE10 这里要说的是BUG问题， var respStream : TStringStream; respStream.DataString有问题，中文部分乱码！ 解决方法也在代码当中 1 unit u_Main; 2 3 interface 4 5 uses 6 Wina 阅读全文
2022年5月7日 #
摘要：
Delphi7中测试idHttpServer，自带的idHttpServer 仅放上测试的部分代码，便于自己查看 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphi 阅读全文
2022年5月6日 #
摘要：
SQL Server 1.使用row_number分页 declare @PageSize int = 5 declare @PageIndex int = 1 select * from (select ROW_NUMBER() over(order by SId) RowId,Student.* 阅读全文
2022年4月30日 #
摘要：
来源：http://www.itpub.net/thread-193247-1-1.html 先保存，以后研究一下 1 *--获取连接SQL服务器的信息 2 3 所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,IP地址,程序名 4 -*/ 5 6 /*--调用示例 7 --显示所有本 阅读全文
2022年4月21日 #
摘要：
此处代码只是测试代码，仅仅是测试 //环境：D7+SQL Server 2008 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo 阅读全文