摘要：
1 --这样是不行的 2 select sys.dm_exec_sql_text(most_recent_sql_handle) from sys.dm_exec_connections 3 4 --这个可以 5 select text from sys.dm_exec_connections a 阅读全文
2022年4月8日 #
摘要：
D7 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 阅读全文
摘要：
1. 不可思议的函数调用--开始- 开发环境D7 1 function TForm1.GetssA: string; 2 begin 3 Result:=Result+'AA'; 4 end; 5 6 procedure TForm1.Button1Click(Sender: TObject); 7 阅读全文
2022年3月15日 #
摘要：
IEEE 754了解可以参考https://www.cnblogs.com/gyunf/p/12816817.html 浮点数的内存方式以及由内存转化为浮点数_chenchaoflight的专栏-CSDN博客 https://blog.csdn.net/chenchaoflight/article/ 阅读全文
2022年3月9日 #
摘要：
开发环境D7 获取所有菜单的Caption 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, Std 阅读全文
2022年3月7日 #
摘要：
直接复制过来的，做个笔记 1.创建窗口并响应事件（不使用VCL） 1 program WindowDemo; 2 3 //{$APPTYPE CONSOLE} 4 5 uses Windows, Messages; 6 7 // 窗口函数，窗口接到消息时被Windows所调用 8 function 阅读全文
2022年1月10日 #
摘要：
//资料来源 ：一个把字符转换成各种编码文件的delphi2010函数. - textbox - IT博客 http://www.cnitblog.com/textbox/archive/2011/03/03/72913.aspx 1 procedure SaveFile(const FileNam 阅读全文
2022年1月8日 #
摘要：
superobject版本为1.2 开发环境D7 太容易忘记了，做个笔记 //1. Json的数组添加和赋值 1 var 2 Ijson,Ijson_01:ISuperObject; 3 s:string; 4 i:Integer; 5 begin 6 Ijson:=superobject.SO(' 阅读全文
2022年1月7日 #
摘要：
开发环境D7只是部分代码StringGrid1事先固定了行数为20，固定了一行为标题行 实现单行删除内容(StringGrid1事先固定了行数为20，固定了一行为标题行),没有固定多少行的时候请适当改写，这个是本人测试代码 1 var 2 i:Integer; 3 begin 4 if String 阅读全文
2021年12月14日 #
摘要：
开发环境Delphi7 self报错问题 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdC 阅读全文