阳光有点冷_再创世纪_CSDN博客-经典常用代码,【Delphi数据库类】,【Delphi网格相关】领域博主

原创 Delphi 中如何禁止重复运行程序的方法

第一种方法，使用“过程调用”procedure Del; // 自定义过程var Mutex: THandle;begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_ALREADY_EXISTS then begin Application.MessageBox('重复登录！','系统提示', MB_ICONERROR); ReleaseMut...

2020-12-03 16:13:27 34 1

原创 Delphi 中SQL模糊查询和字段查询

procedure TFrmain.scGPEdit1Change(Sender: TObject);var ASql, AKey: string; //模糊查询和字段查询const vsql1: string = 'select * from delphi where Title like '; vsql2: string = 'select * from delphi';begin AKey := Trim(scGPEdit1.Text); //获取关键词...

2020-12-03 16:10:52 30 1

原创 Delphi控件DEV插件--Spreadsheet1电子表格使用说明

常用操作Spreadsheet常用属性标题栏是否可见 Spreadsheet1.TitleBar.Visible=true标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green"标题栏标题内容 Spreadsheet1.TitleBar.Caption="test"标题栏字体颜色 Spreadsheet1.TitleBar.Font.Color="Red"标题栏字体名称 Spreadsheet1.TitleBar.Font.Name="Vendan

2020-12-03 16:08:49 91

原创 Delphi中关于DevExpress VCL汉化方法

用法1：在工程中加入控件cxLocalizer;在程序中加入如下语句：Localizer.LoadFromFile(‘DevLocal.ini‘);Localizer.Language:='中文(简体，中国)';Localizer.Active:=true;用法2：用DevExpress提供的工具cxLocalizerEditor打开这个ini文件，然后File->BuildResourceFile...;在工程中加入控件cxLocalizer;在程序中加入如下...

2020-12-03 16:07:48 27

原创 Delphi中如何让tcxGrid左边显示序号

第一步：设置cxgrid的属性， OptionsView.Indicator = True第二步：写OnCustomDrawIndicatorCell方法procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean

2020-12-03 16:06:56 18

原创【阳光有点冷】Delphi+SQL数据库增加，删除，修改，查询操作

SQL需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Value:=t

2020-12-03 15:22:33 41

原创【Delphi Stringgrid 设置表格文字居中后有重影，去除重影方法】

未设置前效果，没有居中居中代码procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender as TStringGrid do begin Canvas.FillRect...

2020-04-23 15:33:24 147

原创开发测试技巧|辅助开发调试：goolge谷歌浏览器利用F12在控制台输入脚本实现表单自动填充

一个开发测试技巧的指引和截图，利用google浏览器的F12调试和Console执行，注入JavaScript脚本实现表单的自动填充和测试。执行的JS脚本.- 文本隐藏/显示 functionDevFillClick(){ document.getElementById("txtd...

2020-03-19 09:00:20 316

原创 android DPI与分辨率的关系及计算方式

　 Low density (120),ldpi Medium density (160),mdpi High density (240),hdpi Extra high density (320),xhdpi xxhdpi (320) 小屏幕 QVGA (240x320) 　 480x640 　　正常...

2019-12-04 10:48:18 258

原创 Excel获取列名AA-ZZ等这样的列名，代码如下

=SUBSTITUTE(ADDRESS(1,COLUMN(),4),1,"")复制代码或者这样也可以：=LEFT(ADDRESS(1,COLUMN(),4),LEN(ADDRESS(1,COLUMN(),4))-1)复制代码

2019-11-26 20:27:17 702

原创 PHP从A到ZZ的方法

<?phpfor ($i = 0; $i <= 1000; $i++) {$y = ($i / 26);echo $i,"=>";if ($y >= 1) { $y = intval($y); echo chr($y+64); echo chr($i-$y*26 + 65);} else { echo chr($i+65);}e...

2019-11-22 16:39:27 389

原创 PHPExcel的一些小tips

PHPExcel的一些小tips前言1、导出的Excel内容缺失或打开时报“部分内容有问题，是否让我们尽量尝试恢复”2、如果字符串中有“=”符号，PHPEXCEL将会报错3、需要Z以上的列数(AA-ZZ)4、两种保存方式前言用了PHPExcel有大半年了，这里是关于PHPEXCEL的一些小心得、踩过的坑1、导出的Excel内容缺失或打开时报“部分内容有问题，是否让我们尽量尝试恢复...

2019-11-22 16:19:54 41

原创 Delphi中让图片大小随TImage控件大小变化【阳光有点冷】

需求：如题实现如下：Anchors 下面的全部设为TrueAutoSize := False;Strech := True;

2019-11-11 13:02:32 285

原创 Delphi全局注册自定义快捷建功能

方法一procedure hotykey(var msg:TMessage); message WM_HOTKEY;varF1_ID,F2_ID,F3_ID,F4_ID,F5_ID,F6_ID,F7_ID,F8_ID,F9_ID,F10_ID,F11_ID,F12_ID,DCP_Key1,DCP_Key2,DCP_Key3,DCP_KeyQ:integer; //注册全局快捷键p...

2019-08-22 01:47:47 29

原创 IDHTTP.Get时界面卡死的解决方法

今天做了个IDHTTP.get采集网页的时候，网站网络情况不好，界面就卡死了，通过百度发现使用下面的方法可以实现水卡死情况放一个TIdAntiFreezeControl控件,然后在执行的任务前面加上下面这句即可IdAntiFreeze1.OnlyWhenIdle:=False;//设置使有反应比如：procedure TForm1.Button2Click(Sender: TOb...

2019-08-18 16:12:21 524

原创【Delphi checklistbox的简单用法】

procedure TDcpMain.N1Click(Sender: TObject); //删除选中行begin //cxListBoxmovie.Items.Delete(cxListBoxmovie.ItemIndex);//只能删除单行 cxListBoxmovie.DeleteSelected;//删除单行也可以删除多行end;procedure TDcpMai...

2018-05-27 13:36:55 3101

原创 Delphi直接修改文件十六进制的文法

procedure TForm1.Button1Click(Sender: TObject);var MS : TMemoryStream; P0 : PByte; P1 : PByte;begin MS := TMemoryStream.Create; try MS.LoadFromFile( 'A.exe' ); P0 ...

2018-05-06 15:45:13 779

转载 Delphi 往IC卡中写入汉字

往CPU卡中写入汉字或特殊字符，需要先建一个透明文件，然后用APDU命令去修改这个文件，但APDU命令的数据域是不接受汉字或特殊字符的，所以需要把要写入的汉字转成16进制的字节码。读出的时候同样需要把16进制的数据转化成汉字，在此可提供三个函数供参考：//--------------------此函数可把汉字转化为16进制字符串输出---------------------------------...

2018-05-06 14:40:31 452

原创 Delphi用timer运动文字不闪烁问题

正常timer做动画效果会出现闪烁问题以下代码可以解决此问题procedure TForm1.FormCreate(Sender: TObject);beginform1.DoubleBuffered := True; //开启双缓冲，使得lbl_ShowWorking描述不闪烁beginend;...

2018-04-23 12:21:43 616

原创【Delphi 产生了范围随机数条件可以自己改】

procedure TForm1.Button1Click(Sender: TObject);vari:Integer;begin //产生了100-999的数条件可以自己改Randomize;i := random(999);while (i < 100) doi := random(999);edit1.Text:=inttostr(i);end;第...

2017-06-08 01:03:24 563

原创【Delphi在一个范围内获取随机时间】

uses math;...procedure TForm1.Button2Click(Sender: TObject);var d1,d2,r1,r2:double;a:tdatetime;d:tdatetime;begin d1:=encodedate(1999,1,1); d2:=encodedate(2000,1,1); randomize; r1:=rando...

2017-06-08 00:57:53 543

转载获取指定地址的 JPG 图片，验证码

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;ty

2013-10-15 10:10:33 654

转载如何使用 SendMessage 选择 ListBox、ComboBox 中的项

const i = 1;//初始测试数据procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//对 ListBox1procedure TForm

2013-10-15 10:07:53 2178

转载使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题

uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEnco

2013-10-15 10:06:41 923

转载 System.Copy - 从字符串或数组中复制

2013-10-15 09:57:47 568

转载 System.Delete - 从字符串中删除

procedure Delete( var S: String; {源字符串; 因为是 var 参数, 不可能是个常量} Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 } Count: Integer {要删除的字数});举例:var s: string;begin s := 'Delphi

2013-10-15 09:57:15 559

转载 System 单元下的公用函数目录

有简单提示的链接有效.过程或函数名分类简单提示 Abs 绝对值AcquireExceptionObject AddModuleUnloadProc Addr AllocMem

2013-10-15 09:55:22 469

转载 System.Odd - 判断一个整数是不是奇数

var i: Integer; b: Boolean;begin i := 11; b := Odd(i); {是奇数返回真} ShowMessage(BoolToStr(b)); {True} i := 12; b := Odd(i); ShowMessage(BoolToStr(b)); {False}end;

2013-10-15 09:54:54 571

转载 Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪

TWICImage 的大多功能都非常容易使用, 它最强大的功能是 ImagingFactory: IWICImagingFactory 属性, 这是个类工厂的接口.所谓类工厂是 COM 里的概念, COM 通过类工厂可以自己实例化一些类, 实例化后我们只管使用就是.通过 TWICImage.ImagingFactory 获取类工厂后, 再调用 CreateBitmapFlipRot

2013-10-15 09:47:03 750

转载 Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换

Graphics 单元新增了 TWICImage 类, 该类的功能源于新增的 Wincodec.pas 单元.WIC(Windows Imaging Component) 是 Windows 为 Vista 和 WPF 提供的用于图像编码、解码的 COM 组件, 但在 XP 下也能使用它.WIC 支持的图像有 BMP、PNG、ICO、JPEG、GIF、TIFF、HDP(HDP 是微

2013-10-15 09:44:59 922

转载 Graphics 单元下的公用函数目录

有简单提示的链接有效.过程或函数名分类简单提示 AllocPatternBitmap BytesPerScanline CharsetToIdent ColorToIdent ColorToRGB

2013-10-15 09:43:50 487

转载 StrUtils 单元下的公用函数目录

有简单提示的链接有效.过程或函数名分类简单提示 AnsiContainsStr AnsiContainsText AnsiEndsStr AnsiEndsText AnsiIndexStr

2013-10-15 09:40:21 712

转载 SysUtils 单元下的公用函数目录

有简单提示的链接有效.过程或函数名分类简单提示 Abort AddExitProc AddTerminateProc AdjustLineBreaks Unix 与 Windows 的换行符互换AnsiC

2013-10-15 09:39:08 516

转载 SysUtils.Trim、SysUtils.TrimLeft、SysUtils.TrimRight - 删除空格

var ss,s: string;begin ss := ' Delphi '; s := Trim(ss); {删除两边空格} ShowMessage('^' + s + '$'); {^Delphi$} s := TrimLeft(ss); {删除左空格} ShowMessage('^' + s + '$'); {^D

2013-10-15 09:37:24 655

转载 SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置

该函数不区分大小写, 举例:var s: string; i: Integer;begin s := 'CodeDear Delphi'; i := LastDelimiter('Del',s); ShowMessage(IntToStr(i)); {12}end;

2013-10-15 09:35:48 531

转载 SysUtils.IsDelimiter - 判断字符串的某个位置是不是指定的字符串

var s: string; b: Boolean;begin s := 'CodeDear Delphi'; b := IsDelimiter('de', s, 3); ShowMessage(BoolToStr(b)); {返回 -1, 就是 True}end;

2013-10-15 09:33:34 423

转载 IsLeapYear、IsInLeapYear - 是否是闰年

SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = cl

2013-10-15 09:30:09 651

转载 DateUtils.IsPM - 判断时间是否是下午

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

2013-10-15 09:29:11 332

转载 Yesterday、Today、Tomorrow - 昨天、今天、明天

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;va

2013-10-15 09:28:28 487

转载 StrUtils.LeftStr、StrUtils.RightStr - 提取左右字符串

举例:var ss,s: string;begin ss := 'CodeGear Delphi 2007'; s := RightStr(ss,4); ShowMessage(s); {2007} s := LeftStr(ss,4); ShowMessage(s); {Code}end;

2013-10-15 09:14:17 512

【ACR122U破解软件集合个人收藏】

amo计算器16进制计算 dump文件对比软件 Dump转txt EasyKey IC卡读写软件V1.56-CR IC卡分析工具 NFCGUIFreeVer PCSC+Mifare2 TTHexEdit UID卡克隆软件复制软件进制转换卡匠1复制克隆工具卡匠1密钥分析器逆向工程计算器/破解辅助计算工具破解软件任意进制转换源码日期算法四位时间转换智能卡算法工具集v1.0 ic卡uid卡万能复制软件普通ic卡复制

2018-05-10

StyleControls_3.89_for_XE2-XE10.2_超级漂亮的皮肤控件+国外网站下载来的+个人收藏

StyleControls_3.89_for_XE2-XE10.2_超级漂亮的皮肤控件+国外网站下载来的+个人收藏，完爆国内的其它皮肤，喜欢的朋友可以下载下来玩玩，相当不错！

2018-05-21

绿茵视频定时播放系统13.8-破解版

绿茵视频定时播放系统13.8-破解版,很好用，非常不错！推存给大家

2018-05-21

Delphi+源码+界面漂亮的个人通讯录

2012-08-16

DevExpress VCL V17.2.4 FullSource〖D6-XE10.2Tokyo〗内含安装工具和汉化包+【阳光有点冷2018收集】002包

解压后包括：分两个包，001包和002包，下载后放到一起解压即可，1套是源码文件（每种组件一个文件夹），1个是一键编译安装工具，1个是汉化文件。拥有180多种VCL界面控件，功能丰富且易于上手 DevExpress VCL Subscription 是 Devexpress公司旗下用户界面产品套包，包含该公司所有VCL控件产品和 ASP.NET控件产品以及相关产品的完整源码。所包含的控件有：数据录入，图表，数据分析，导航，布局，网格，日程管理，样式，打印和工作流等，让您快速开发出完美、强大的VCL应用程序！DevExpress VCL Subscription曾用名为"Developer

2018-04-30

DevExpress VCL V17.2.4 FullSource〖D6-XE10.2Tokyo〗内含安装工具和汉化包+【阳光有点冷2018收集】001包

2018-04-30

TRichView 17.3+【Delphi-Tokyo-10.2.3】安装视频教程+安装说明

2018-08-02

【阳光有点冷Delphi系列】D10.3 Rio可用谷歌控件+CEF4Delphi+DcefBrowser+TChromeTabs+JS网页元素交互实例源码_总裁爹地超给力

【阳光有点冷Delphi系列】 D10.3 Rio可用谷歌控件 CEF4Delphi DcefBrowser TChromeTabs JS与网页元素交互控制实例源码本人在DelphiXE10.3下亲自测试成功！

2020-12-03

琪胜多媒体定时播放系统5.2+小邓破解注册版

注册请先运行原程序随便注册然后运行keygen点获取序列号复制序列号然后进行软件注册 2018-5-21

2018-05-21

Delphi7皮肤控件

Delphi7皮肤控件 VCLSKIN控件使用的skn皮肤，有需要的下吧！

2012-08-05

科鼎网页抓包工具 v1.3绿色版

科鼎网页抓包工具自己经常来做抓包

2015-12-09

Delphi系统短日期修改+【阳光有点冷】

2018-04-23

Delphi7之ADO组件+DBGrid增删改查

Delphi7之ADO组件+DBGrid增删改查！Delphi7之ADO组件+DBGrid增删改查!

2018-04-28

Delphi读取ini，测试连接MSSQL+源码

Delphi读取ini，测试连接MSSQL+分享给写Delphi数据库的新手门！

2018-04-28

美团爬虫-分类查询【Delphi个人源码】

美团爬虫-分类查询【Delphi个人源码】美团爬虫-分类查询【Delphi个人源码】

2018-04-28

Delphi DevExpressVCL安装教程

Delphi DevExpressVCL安装教程，录制给不会安装此控件的新手门，老手飘过！

2018-06-26

【Delphi 控件组Raize 6.2.3 XE10.2 Tokyo】 +【安装包和源码并带使用说明+个收收藏+亲身测试可以用】

【Delphi 控件组Raize 6.2.3 XE10.2 Tokyo】 +【安装包和源码并带使用说明+个收收藏+亲身测试可以用】非常经典好用的控件，XE10.2.3 Tokyo下完美运行！

2018-07-08

BusinessSkinForm11.51 XE10.2 Tokyo+亲自测试可用

BusinessSkinForm11.51 XE10.2 Tokyo+亲自测试可用,非常漂亮的控件，很好用，经常在用！

2018-07-08

MSSQL2008 绿色版 (个人Delphi 数据库使用收藏版)

MSSQL2008 绿色版，不用装那么大的sql了，装这个就可以，(个人Delphi 数据库使用收藏版)，有需要的可以下载！

2018-04-28

Delphi XE3 v17.0.4625.53395.Lite.v6.0 精简汉化一键安装版+【阳光有点冷个人收藏】A包

分两个包，A包和B包,都下载下来后，放一起解压即可 Delphi XE3 v17.0.4625.53395.Lite.v6.0 精简汉化一键安装版+【阳光有点冷个人收藏】

2018-04-30

windows10远程桌面多用户登陆补丁+新测非常好用

windows10远程桌面多用户登陆补丁+新测非常好用！！！！

2018-04-28

2018全能数据库工具Navicat Premium_12.0.7简体中文完美破解版(32位和64位)+个人收藏版

Navicat Premium_12.0.7简体中文版最新完美破解版，紧随官网更新而更新， Navicat Premium_12.0.7简体中文最新完美破解版(内含32位和64位版本)。内有破解程序，破解过程简单，安装好程序后，直接运行破解补丁即可，请勿用于商业用途，如有版权纠纷，本人概不负责！！！！

2018-04-30