加载中
Delphi 赋

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

2018/03/30 23:09
37
军事联盟

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

2018/01/10 11:27
18
// 阿里云短信接口 (未测试 非原创 来自 qq 群)

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

01/14 15:04
0
在delphi里的RichEdit指定光标到某行某列

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

2018/11/15 21:55
10
Delphi读取和写入utf-8编码格式的文件

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

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

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

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

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

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

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

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

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

2018/09/13 12:55
5
Zeosdbo 连接 Mysql

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

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

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

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

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

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

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

2018/07/11 11:13
22
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...

2018/07/09 15:31
36
VBA 提速

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

2018/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:\...

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

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

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

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

2018/05/30 06:36
24
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 ...

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

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

2018/05/03 05:04
22

没有更多内容

加载失败,请刷新页面

返回顶部
顶部