最新发布
茶小宝 鲜茶叶称重收购系统 Delphi  漂亮的UI界面全源码-Delphi编程技巧大全置顶

茶小宝 鲜茶叶称重收购系统 Delphi 漂亮的UI界面全源码

本系统基于Delphi XE 10.2.3开发,使用了三方控件库StyleControl5+DevExpress 19.本源码只有框架代码,基本的交互代码,没有业务代码。​
Top_Admin的头像-Delphi编程技巧大全Top_Admin44天前
07609

delphi Adoquery filter使用

当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为Customer的数据表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看国别为China或顾客号大于10...
Top_Admin的头像-Delphi编程技巧大全Top_Admin42天前
011317
Delphi 开发 PLC在线模拟器 工具源码 (开发利器)-Delphi编程技巧大全

Delphi 开发 PLC在线模拟器 工具源码 (开发利器)

1)该模拟器可在线模拟硬件PLC, 方便开发人员在无硬件的情况下直接调试自己的上位机程序。大大节省了开发硬件成本。 2)模拟器目前支持三菱MC协议,后续会更新支持所有品牌PLC(100多款)。如果没...

Delphi 复制文件到剪贴板

将文件复制或剪切到剪贴板,可以在资源管理器、桌面等地方粘贴。在网上找了下,找到一些代码,不过发现都有点bug,现在将修正后的分享出来。procedure CutOrCopyFiles(FileList: Ansi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04716

delphi Pointer 转成string

var  s: string;  p: pointer;  s := PChar(p);前提p指向的字符串要以#0结尾。 来源 https://www.cnblogs.com/zhangzhifeng/p/5888823.html
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04315

delphi一句话获取本机IP

delphi一句话获取本机IP//添加 TIdIPWatch 控件: IdIPWatch1procedure TForm1.Button1Click(Sender: TObject);varip: string;beginip := IdIPWatch1.LocalIP;ShowMessage(ip);end;本文来源转载...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03115
Delphi IFileOperation拷贝复制文件带进度条-Delphi编程技巧大全

Delphi IFileOperation拷贝复制文件带进度条

uses ActiveX, ComObj, ShlObj,ShellApi;type  TFileSystemBindData = class (TInterfacedObject, IFileSystemBindData)    fw32fd: TWin32FindData;    function Set...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04815

Delphi发送邮件

1. 在窗体上添加一个TidSMTP控件(在Indv Clients页)和一个TidMessage控件(在Indv Misc页)。2. 编写代码procedure TForm1.Button1Click(Sender: TObject);begin ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin31天前
05315

Delphi 如何使用FindFirst搜索不同的文件类型?

procedure FileSearch(const PathName: string; const Extensions: string; var lstFiles: TStringList);const  FileMask = '*.*';var  Rec: TSearchRec;  Path: string;be...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04615

delphi加载驱动的代码演示

*********************************************************************** }{ 模块名称:MyDriver }{ 模块功能:加载/卸载驱动程序 }{ 版 本号:v1.0.0 }{ 日 期:2008-5-18 }{ *****************...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04915

Delphi实现QQ右下角弹出信息窗口

 unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Timer1...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05115

delphi 组件值实现增减

procedure TForm1.Button1Click(Sender: TObject);begin  Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);end;procedure TForm1.Button2Click(Sender: TObject);begin  L...
Top_Admin的头像-Delphi编程技巧大全Top_Admin30天前
03215
Delphi XE8 TStyleBook的使用-Delphi编程技巧大全

Delphi XE8 TStyleBook的使用

Delphi XE8来了,FMX的性能有了巨大的提升,比如:XE7下ListBox上下滑动的卡顿已经不复存在,直接用xe8编译后,再上下划动ListBox,已经变的非常流畅。另外,也见到有网友说,通过测试内存...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04015
汇编数据宽度和字节序-Delphi编程技巧大全

汇编数据宽度和字节序

数据的宽度数据的宽度是指数据在存储器中存储的尺寸。在计算机中,所有数据的基本存储单位都是字节(byte),每个字节占8个位(位是计算机存储的最小单位,而不是基本单位,因为在存储数据时几...
Top_Admin的头像-Delphi编程技巧大全Top_Admin21天前
03815

Delphi 收藏字符串处理单元

unit MyStrUtils;interfaceuses  Types;function Right(S: String; Count: Integer): String;function StartsWith(S, Head: String): Boolean;function EndsWith(S, Tail: String): Boolea...
Top_Admin的头像-Delphi编程技巧大全Top_Admin21天前
04415

delphi获取dll的函数列表

function GetDLLFileExports(   szFileName: PChar;   mStrings: TStrings ): Boolean; var   hFile: THANDLE;   hFileMapp...
Top_Admin的头像-Delphi编程技巧大全Top_Admin34天前
06415

Delphi XE android判断程序是否在运行

function SharedActivityManager: JActivityManager;var  AService: JObject;beginAService := SharedActivityContext.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE);Result :=...
Top_Admin的头像-Delphi编程技巧大全Top_Admin21天前
04715

DELPHI 获取Android package name:

uses  Androidapi.Helpers;function PackageName: string;begin  Result := JStringToString(SharedActivityContext.getPackageName);end;Reading iOS bundle name:uses  Macapi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin19天前
05215

Delphi中常用字符串处理函数

1.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 2.concat(str1,str2{,strn}) 把各自变量连接...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03515

Delphi 解析JSON生成JSON

unit Unit1;interfaceuses   System.SysUtils, System.Types, System.UITypes, System.Classes,  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dia...
Top_Admin的头像-Delphi编程技巧大全Top_Admin19天前
06315
DELPHI 控制台程序获取系统信息-Delphi编程技巧大全

DELPHI 控制台程序获取系统信息

// 经过整理的DELPHI控制台程序,体积小,功能不少。呵呵  --XIAO 2013.5program Console;{$APPTYPE CONSOLE}usesWindows,SysUtils,TLHelp32; {$R *.RES}function GetWinDir: string;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04215

delphi 在线程中运行窗体

-------------------------var wClass: TWndClass; Msg: TMsg; function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall; begin if Msg = WM_DESTROY then PostQuitMessage(0) e...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03915

Delphi 的RTTI机制浅探一

作者:Savetime|savetime2k@yahoo.com    转贴自:Delphibbs.com目录===========================================================⊙ RTTI 简介⊙ 类(clas...
Top_Admin的头像-Delphi编程技巧大全Top_Admin31天前
05215

delphi 公历到农历的转换法

unit CNYear; interface uses sysutils; type TCNDate = Cardinal; function DecodeGregToCNDate(dtGreg:TDateTime):TCNDate; functio...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
05615

VB+Delphi实现进程保护

学学delphi做点东东玩玩吧。还是老思路不过是换了DLL看守了。           1.DLL注入。       &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04515

delphi DLL初始化和退出处理

1. 概述 一般的DLL不需要做初始化和善后工作,但如果想让DLL在被载入时先作一些初始设定,或者退出时释放资源,则可以用以下方法达到目的。 #2. 利用Unit的Initalization与Finalization这两个小...
Top_Admin的头像-Delphi编程技巧大全Top_Admin34天前
03415
Delphi跨平台线程等待动画-Delphi编程技巧大全

Delphi跨平台线程等待动画

在Delphi Firemonkey中使用Thread 查看更多关于 Thread 的文章 操作线程的图形界面。 unit FormMain;   interface   uses   System.SysUtils, System.Types, System.UITypes, Sy...
Top_Admin的头像-Delphi编程技巧大全Top_Admin34天前
05615

Delphi XE5 android实现繁体字到简体字的转换函数

介绍 本文章介绍了Delphi XE5实现繁体字到简体字的转换,下面直接上函数代码,经过测试有效。 function GBChs2Cht(GBStr:string):string; var   SourceLength :Intege...
Top_Admin的头像-Delphi编程技巧大全Top_Admin34天前
04015

Firemonkey下使用StyleBook的一些经验

1、编辑style后关闭style designer再次打开发现之前的设置无效了,比如给一个StyleObject.SourceLink指定图像区域,失效后区域又变成整张图片了2、窗体上本来有StyleBook,然后用StyleBook加载...
Top_Admin的头像-Delphi编程技巧大全Top_Admin19天前
04615

Delphi 单击Android上的Web浏览器链接以启动Delphi应用程序

单击Android上的Web浏览器链接时,以下是启动Delphi应用程序的方法。创建一个Delphi应用程序启动应用程序时,将获取链接的URL并将其显示在浏览器组件上。procedure TForm1.FormCreate(Sender: T...
Top_Admin的头像-Delphi编程技巧大全Top_Admin19天前
05215