摘要：分享给大家，本人踩到的坑，和解决的办法。谢谢！ 本人在使用ini文件做配置时发现，写进去4K个字节，读取到的长度只有2047； 本例子开发的场景：本人的一个软件需要高度的用户自定义功能，ini文件存取开始还是好好的，突然一个界面的内容较多， 加载时发现界面没有按用户自定义的展示，读取时做了判断，读取
阅读全文
随笔分类 - delphi
记性不好，博客园真是个好地方
摘要：上篇 上篇的简单介绍 以下为此篇内容 【DBGrid的字体颜色控制之模拟条件的判断】 写到这里就算完成，项目的代码不会展示 这里只展示测试代码，试了好多方法，开发这个颜色控制的思路都在这里，代码的注解较少 Unit unit Unit1; interface uses Windows, Messag
阅读全文
摘要：本人写的一个例子，可能有错误，随便测试了一下，没有问题，先贴上 说明：要按自定义的条件来控制Dbgrid的显示问题 为此，必须先实现，逻辑AND和逻辑OR的运算，既然是串在一起的，就会让人想到逻辑AND和逻辑OR的优先级， 逻辑AND的优先级大于逻辑OR，此处测试就是模拟自定义条件； 条件：（1 A
阅读全文
摘要：Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 =
阅读全文
摘要：此处的句柄请不要用另一个程序中的控件句柄！就算用了，也找不到控件！ procedure TForm1.Button1Click(Sender: TObject);begin if FindControl(StrToIntdef(Edit1.Text,0))<>nil then ShowMessage
阅读全文
摘要：本人C++是个菜鸟， C++编写的DLL，Delphi调用，先弄个简单的C++的DLL； C++ Delphi： Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con
阅读全文
摘要：开发环境是Delphi7 此处用的是临界；信号量，互斥就不做测试了！ 仅仅是测试，哈哈 Unit unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
阅读全文
摘要：资料来源别处，谢谢 Application.HintHidePause:=30000;//显示多久隐藏 HintHidePause，HintPause，HintShortPause，控制着提示窗显示的时间等。HintHidePause指定提示窗口在屏幕上显示的时间，以毫秒为单位。HintPause则
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, Grids, DBGrids, StdCtrls,
阅读全文
摘要：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
阅读全文
浙公网安备 33010602011771号