加载中
Delphi 赋

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

03/30 23:09
30
军事联盟

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

01/10 11:27
14
Delphi读取和写入utf-8编码格式的文件

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

10/31 10:38
6
Ehlib 单元格 图像绘制 代码

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

10/31 10:32
2
ehlib 修改 使指示区背景色 和 数据区 背景色一致

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

09/26 06:56
4
收邮件 下载附件

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

09/22 10:06
6
获取桌面路径

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

09/13 12:55
3
Zeosdbo 连接 Mysql

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

08/27 10:02
11
AlphaControls 对 NoteBook 非首页未开启皮肤问题解决

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

08/23 09:00
6
Delphi访问网络共享文件夹

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

07/28 15:47
16
Pathon 连接数据库

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

win下MySQL 8.0.11 修改密码、开启远程访问

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

07/09 15:31
28
VBA 提速

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

06/30 06:39
5
vbs 取文件大小 字节

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

06/23 07:05
12
如何进行大数据分析及处理?

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

06/13 06:15
15
UindexFTP基于ICS实现的FTP操作类[转]

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

05/30 06:36
18
Delphi 10.2.3发布

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

05/08 09:06
92
面向对象的设计模式---工厂模式和单例模式

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

05/03 05:04
22
模拟鼠标点击操作

var point: TPoint; begin Application.BringToFront; Form1.WindowState := wsMaximized; Form1.FormStyle := fsStayOnTop; // edt1.SetFocus; point.x := edt1.left + 3; p...

04/23 14:41
26

没有更多内容

加载失败,请刷新页面

返回顶部
顶部