DELPHI者，经典开发工具、美奂美仑之开发环境也。 盖论DELPHI其身世，实为神界之神物，后借宝蓝公司之手，于1990年代，现于江湖。 DELPHI一出江湖，码农爱之，企业爱之。一时间，风雨雷动，群...

http://www.xinjuji.com/dianshi/cctvju/junshilianmeng2huxiaolongyin/zaixianguankan-0-7.html

// 阿里云短信接口 unit uAliyunSms; { Author: MarkWu Q Q: 77910086 } interface uses Classes, SysUtils, uSMSIntf, IdHTTP, flcHash, EncdDecd; type TAliYunSms = class(TInterface......

在delphi里的RichEdit指定光标到某行某列 procedure GotoRowCol(Row, Col : Integer; RichEdit : TRichEdit); var TextLen, i : Integer; begin if Row > RichEdit.Lines.Count then Exit; T...

读取UTF-8格式的文件内容 function LoadUTF8File(AFileName: string): string; var ffileStream:TFileStream; fAnsiBytes: string; S: string; begin ffileStream:=TFi......

// 绘制 BMP 格式图像 procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); var bmp : TBitmap;...

对ehlib 显示效果不够满意，而做的调整 修改这个过程： procedure TCustomDBGridEh.DrawIndicatorCell(ACol, ARow: Longint; AreaCol, AreaRow: Longint; ARect: TRect; AState: TGridDrawS...

uses IdMessage, IdMessageParts, IdAttachment, IdGlobalProtocols, ...; procedure SaveAttachmentsFromFile(FileName: String) var IdMessage: TIdMessage; MsgPart: TidMessagePart; Hea...

Function SHGetSpecialFolderLocation(hwndOwner: HWND; nFolder: Integer; var ppidl: PItemIDList): HResult; stdcall; Function SHGetPathFromIDList(pidl: PItemIDList; pszPath: PChar)...

之前发的 搜 不到了，为了方便，再补发如下： ZConnection1.Protocol := 'mysql-5'; ZConnection1.ControlsCodePage := cGET_ACP; ZConnection1.ClientCodepage := 'utf8'; ZConnection1.Aut...

AlphaControls 是 著名的 Delphi 第三方皮肤组件,使用非常方便，只需加一个 TsSkinManager 组件，再指定所用皮肤名，即可对 Delphi 开发的程序进行美化。但使用中发现有一个组件 NoteBook， ...

var NetResource: TNetResource; Result: cardinal; // ... NetResource.dwType := RESOURCETYPE_DISK; NetResource.lpLocalName := nil; NetResource.lpRemoteName := '\\192.168.0.100\dir...

SQL 数据库 Python 提供了一系列标准的数据库的 API，这里我们介绍 sqlite 数据库的用法，其他的数据库的用法大同小异： In [1]: import sqlite3 as db 首先我们要建立或者连接到一个数据库上...

MySQL 8.0.11 的用户授权语法发生改变了(这比较讨厌) 1.开启远程访问 use mysql; update user set host='%' where user='root'; 2.修改密码 ALTER USER 'root'@'%' IDENTIFIED WITH mysql_na...

Application.ScreenUpdating = FALSE '禁止屏幕刷新 Application.Calculation = xlCalculationManual '计算模式为手动 ‘一般在Sub结束前改回: Application.Calculation = xlCalculationAuto...

dim name dim fs, s 'name = Inputbox("姓名") 'msgbox(name) set fs = wscript.createobject("scripting.filesystemobject") 'fs为FSO实例 if (fs.folderexists("c:\temp")) then '判断c:\...

1.可视化分析 大数据分析的使用者有大数据分析专家，同时还有普通用户，但是他们二者对于大数据分析最基本的要求就是可视化分析，因为可视化分析能够直观的呈现大数据特点，同时能够非常容易...

unit UindexFTP; interface uses SysUtils, Classes ,StrUtils ,OverbyteIcsWndControl, OverbyteIcsFtpCli; type TFindFile = procedure(FileName,EditTime,Attribute,Owner,Group,Siz...

最好的消息，Delphi 10.2.3 发布 http://altd.embarcadero.com/download/radstudio/10.2/delphicbuilder10_2_3_2631.iso 1. 此版有100多个bug修正 2. 核心可视化框架的增强，更好的V​​DP ...

面向对象的设计模式---工厂模式和单例模式 1.工厂模式： 　　a.概述： 工厂模式主要是为创建对象提供过渡接口，以便将创建对象的具体过程（new 关键字和具 体的构造器）隐藏起来。...