Delphi/Pascal论坛 今日: 0|主题: 610|排名: 34 

DELPHI安卓定位权限申请 安卓8及以后版本的权限分为静态和动态申请2部分，而之前的安卓版本只需要静态申请权限。 1）静态申请定位权限： 2）动态申请定位权限： uses System.Permissions, {$IFDEF ANDROID} Androidapi.Jni.Os, Androidapi.Helpers, {$ENDIF} ... FPermissionCoarseLocation: string; FPermissi ...

DELPHI安卓动态权限申请 安卓8.0以前的版本，只需要给静态权限就可以了，但安卓8.0及以后的版本，还需要运行期用代码动态申请权限。 下面以《蓝牙权限》为例，其他权限类似。 Delphi 10.3 社区版，提供的 Sample 里面有一个例子程序在： C:%users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-De ...

简介： Debenu Quick PDF Library(PDF编程开发工具)提供一套全方位的 PDF API 函数，帮助您快速简便地处理 PDF 文件。从文档属性的基本操作到创建您自己的 PDF 查看器和 PDF 编辑器，这款软件满足您的所有需求。Quick PDF Library是一款供 PDF 开发人员使用的 SDK，功能强大、无需版税，其中包括超过500个函数，可用于 Delp ...

// 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function Encode(Str: string): string;function Decode(Str: string): string;//加密方法三（异或加密解密）function Enc(str: string): stri ...

TObject是所有对象的基本类，DELPHI中的任何对象都是一个指针，这个指针指明该对象在内存中所占据的一块空间！   　　 对象空间的头4个字节是指向该对象类的虚方法地址表（VMT-Vritual   Method   Table）。接下来的空间就是存储对象本身成员数据的空间，并按从该对象最原始祖先类 ...

http://anony3721.blog.163.com/blog/static/51197420107105132120/?ignoreua 1 Property 2 Keyword Defines controlled access to class fields System unit 3 ?1.Property Name : Type read Getter|nodefault; 4 ?2.Property Name : Type write Setter; 5 ?3.Property Name : Type read Getter write S ...

在经过一系列的波折后，还是觉得delphi读取并修改json文件来的方便； 在网络上找到一个delphi的三方库ISuperObject，添加到项目后直接引用就行； 下载地址 ISuperObject中几个常用的函数： function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串，并返回一个ISuperObject ...

官方已经发布消息，招内测人员了！   https://www.barnsten.com/default/newsupdates/details?news_id=328 https://docs.google.com/forms/d/e/1FAIpQLSdap6VZ1nP8vk_npnRetCs-V3VbuCRewV7BL7ybvJF8aLTu7A/viewform QC上也有官方消息，即将发布10.3.2！  最近几天，官方开始清理bug:  今天，有人收到内 ...

if not Assigned(Modeless) then Assigned()什么意思！   assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空)，如果为空则返回假（false）。   用法示例(防止窗体被实例化多次)：     unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classe ...

Delphi 对GZIP解压 作者：admin 来源：未知 日期：2010/5/9 13:08:46 人气：获取失败 标签： QQ空间新浪微博腾讯微博腾讯朋友QQ收藏百度空间百度贴吧更多0 呵呵，终于做出来了，有一定收获， 在算法上还是花了不少时间， 以前解gzip内容，现在是deflate，少了文件头内容，所以 用以前思路老是 ...

已经钻DELPHI很深了，当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去，而不转向其它的?这是不是死脑筋？ 我看了一下C#的LINQ的产生，然后又被实体框架所代替。思考了一下： 1）LINQ的确是有好处，但是所用的场景又不多，这样就会变得很鸡肋。所以说学新的东西，有时对自己来说不一定有相当大的好处。 2）软件编 ...

本文为大家分享了菜单组件TMainMenud的使用方法，供大家参考，具体内容如下 菜单组件TMainMenu 创建菜单双击TmenuMain，单击Caption就可以添加一个菜单项 菜单中添加分割线只需加“-”就可以添加一个分割线 级联菜单的设计 单击鼠标右键弹出菜单中选择Create Submenu菜单项 单选功能设计 要在设计的菜单项目中选择RadioI ...

Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说一下ISuperObject中几个常用的函数 f ...

　　在Windows Vista、 Windows7以上Windows系统中可以支持大图标显示了，但是Delphi编译出来的程序却只能显示32x32的图标，这使Delphi编译的程序看起来很不专业。下面就把Delphi编译大图标程序的方法分享一下。 　　要想使用大图标编译，首先要准备一个256x256的图标图片。 　　使用图标编辑软件，如IconWorkshop打开你的 ...

Delphi 实现软件自动升级的功能 原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件， ...

Delphi实现获取进程列表及相关信息的实例 前言： 闲着没事，看着任务管理器好玩，查资料先简单实现一下，代码中没有加入获取CPU占用率的代码，这个代码网上很多，只是不喜欢那种写法，这里就不写了。以后继续完善，对于System Process和System的信息还没法获得，那位兄弟知道可以提个醒。  代码如下 unit Main; i ...

Delphi 常见文件处理及注册表文件的使用实例 前言：  Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法: function CreateKey(const Key: ...

Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。     用到的API函数如下 GetTextMet ...

Delphi 用DLL实现插件的简单实例 这是DLL的代码   实现代码：  library MyDll; uses SysUtils, Dialogs, Classes; procedure ShowInfo(infoChar);stdcall; begin ShowMessage('您选择了【'+info+'】'); end; function GetCaptionchar; begin Result := '中国'; end; exports ...

Delphi 根据字符串找到函数并执行的实例  关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 实例代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TShowInfo = procedure(info:string ...