码农的笔记

摘要： Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 阅读全文

摘要： 来自网上 此程序开发环境为Delphi XE Unit开始 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dial 阅读全文

摘要： adoconnection1.connectionstring:=promptdatasource(handle,'') 阅读全文

摘要： 本程序刚开始是别人的，无法实现全局钩键盘消息；修改后能钩中键盘消息，但是没有去解析，那些解析暂时不正确，本人没有那么多时间弄这玩意-- 先把代码贴上，不管了，以后有时间可以玩玩。 再次强调，本程序不是本人的，网上下载而来..... DLL部分 library KeyboardHook; uses S 阅读全文

摘要： 开发环境D7 需要Uses superobject,superobject需要下载 本人电脑上有Web服务器,提供Web服务， JSON数据形式：[{"name":"A000000","teacher":"Tea000000","classroom":"C_R000000"},{"name":"A0 阅读全文

摘要： 资料有点乱，忘记出处了 var file_name:string; file_name:='c:\luther.gliethttp.txt'; FileWrite(com.log_fd, PChar(file_name)^, length(file_name)); 文件是同一种类型元素的有序集合，是 阅读全文

摘要： 贴上最有用的代码部分 program Project1; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1},//主窗体 Unit2 in 'Unit2.pas' {Form2};//登入窗体 {$R *.res} begin Application. 阅读全文

摘要： 规则路线：上一个数只能走正下方和右下方，比如下图，3只能走45和8，45只能走0和97，以此规则找出某路线数字的最大和（路线上所有的数字之和，要求是最大和，任意一条路线的数字和都不能比您找出的这个最大和大），这里只求最大和，不管具体路线！ 如果按正常的递归，由上而下的去获取路线最大值相加和，需要的时 阅读全文

摘要： Unit开始- unit Multi_Thread; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls ; type TForm1 = 阅读全文

摘要： 请先下载HID控件 DelphiXE测试可行 本程序的DBgrid显示无用处，因为没有对其做什么处理，本例子仅作为监听USB参考 Unit 开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Gr 阅读全文

摘要： 源码出处：https://download.csdn.net/download/guofang/3691061 只为记录本人需要的部分 以下代码有对源码进行少量修改，但是还有一点小问题，不影响正常使用，本人不想弄，弄了也是浪费时间- 废话不多说 unit Unit1; interface uses 阅读全文

摘要： --文章资料来源：https://blog.csdn.net/weixin_30426957/article/details/96224027?utm_medium=distribute.pc_relevant.none-task-blog-title-3&spm=1001.2101.3001.42 阅读全文