摘要:
开发环境Delphi XE11.3 仅仅是测试 Unit unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphic 阅读全文
2024年9月10日 #
2024年8月7日 #
摘要:
开发环境Delphi XE11.3 Unit unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl 阅读全文
2024年7月3日 #
摘要:
开发环境DelphiXe11; 这个代码不适用于Delphi7,一般不适用于Delphi2009之前的版本; 这个图片:12个字(汉字)换行;2数字和2字母认为等于1汉字; 这个换行不大行,全是小写的字母占占用的位置比较少,如果要效果好的,请自己写; --Unit-- unit Unit1; int 阅读全文
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.* 阅读全文