function GetApplicationVersion:String; // Added 取得程序版本号 var FileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO; begin Result:=‘0.0.0.0‘; FileName:=Application.ExeName; Info

         问题描述：在开发数据库程序时，我们经常要使用很多的表格显示组件DBGrid。当DBGrid显示某表格的数据时，其字段标题默认的就是后台数据库中的表格的字段名称。而为了数据库开发方便，后台数据库中的表格的字段标题通常是用英文表示的，如用Employees表中的EmployeesID表示雇员编号。但是我们开发给用户的程序必须以汉字显示字段标题，即我们要以‘雇员编号’显示给用户。假设我

　　Delphi中表示跳出的有break，continue，abort，exit，halt，runerror等 1.break 　　强制退出最近的一层循环（注意：只能放在循环里；而且是只能跳出最近的一层循环），用于从for、while、repeat语句中强制退出 　　类似于C/C++等语言中的break的功能   2.continue 　　用于从for、while、repeat语句中结束循环内的本

论DELPHI三层的数据序列格式的变化 要窥三层的数据序列格式，我们可以通过观察DELPHI官方的客户端内存表。 早先流行的是TClientDataSet，它的Data和Delta属性的数据类型都是：OleVariant。 OleVariant其实是微软公司为COM和COM+战略定义的统一的数据序列格式。 早年DELPHI的三层架构就是建立在COM的基础之上的，数据序列自然也就使用OleVaria

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender:

由于每个系统默认的时间格式不同：yyyy-mm-dd或yyyy/mm/dd等； 在中间层时间转换总是报错，特用以下方法比较保险； 方法一： function GetDateFormat():string; var SysFrset: TFormatSettings; begin Result:=‘‘; GetLocaleFormatSettings(GetUserDefaultLCID

完整的delphi拍照控件代码，实现利用摄像头进行拍照的功能。需要TVideoCap控件支持。 procedure Tfrm1.Button2Click(Sender: TObject); Var jpeg: TJPEGImage; bmp: TBitmap; MyStm:TMemoryStream; strfilename,strcard:String; begin inherited; st

最近delphi做一个小工具其中一个需求要把上W张照片存入数据库多媒体字段。 程序转到1，2W的时候即内在溢出了。最多一次转了3W张照片。很简单的一段代码后来仔细检查发现其中的坑。 下面放上代码 1 with DMConn.AdsEdit do 2 begin 3 Active := False; 4 CommandText := ‘SELECT ID, Data,

TField.CurValue Property   Represents the current value of the field component including changes made by other users of the database     Description Use CurValue to examine the value of a field when a

      Delphi中平常使用的消息框有四种形式，有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。下面来深入了解下这四种形式的实现和使用。 1.ShowMessage 显示一个带"OK"按钮的消息框   使用这个函数可以显示一个简单的带"OK"按钮的消息框，消息框的标题是应用程序的标题名，参数Msg字符串显示在消息框上。其源码

导读： 　　1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同Office一起安装到系统中。 　　2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设置，可以设置条码类型，内容，宽度、高度等等。 　　条码的数据是通过”Value

　　Delphi中的窗体，有模式窗体与非模式窗体两种。两种窗体的调用方式不同，模式窗体使用ShowModal显示，非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的，你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制，你可以从一个非模式窗体切换到另外一个非模式窗体上。两种窗体的区别仅仅在调用的方式上有区别。 窗体的创建： 当使用Delphi的IDE New

向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图2为设计完成的Image.db数据库。 图2 设计完成的数据库 为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。 设置TTable组件的TableName属性为Image.db，A

1 [Files] 2 Source: "C:\Documents and Settings\Administrator\桌面\4\abc.exe"; DestDir: "{app}"; Flags: ignoreversion 3 Source: "C:\Documents and Settings\Administrator\桌面\4\vccrt8_Win32.msi"; DestDir:

由于使用红鱼儿推荐的iTools安卓模拟器一打开virtualbox就消失，所以自己琢磨了使用逍遥安卓 首先在软件管理里面下载逍遥安卓，然后安装设置一下： 3.安装并启动虚拟机，Delphi IDE是无法检测到的，需要用ADB联接一下： c: cd C:\Program Files (x86)\Embarcadero\Studio\19.0\PlatformSDKs\android-sdk-win

  原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html 曾经想要实时监控您的Delphi应用程序，并能够查看日志消息吗？当然，您始终可以在RAD Studio IDE中以完全调试模式运行。另一种方法是输出日志消息，例如输出到文本文件。您还可以使用OutputDebugString函数。 这种方法的一个优点是它尽可能少地影响您

摘要: 在Delphi的VCL库中，为了使用以及实现的方便，应用对象Application创建了一个用来 处理消息响应的隐藏窗口。而正是这个窗口，使得用VCL开发出来的程序存在着与其他窗口不 能正常排列平铺等显得有些畸形的问题。本文通过对VCL的深入分析，给出了一个只需要对应 用程序项目文件作3行代码的修改就能解决问题的方案，且不需要原有的编程方式作任何改变。 一、引言 　　用Delphi所提供的

Delphi中打印条码的方法导读：　　1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同Office一起安装到系统中。　　2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设置，可以设置条码类型，内容，宽度、高度等等。　　条码的

参考这个博客 https://www.cnblogs.com/rogge7/p/6118588.html  function IsMBCSChar(const ch: AnsiString): Boolean; //转载时修改 begin Result := (ByteType(ch, 1) <> mbSingleByte); end; Delphi判断字符串中是否包含汉字，并返回汉字位置

若DBGrid.DataSource.DateSet为ADOQuery1，这样试一下：if ADOQuery1.Modified then ... procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   if ADODataSet1.Modified then     begin     Me

        AlphaControls是一个标准的独创的皮肤控件集合，它具有很多新的属性可以添加到普通的控件中以增强程序界面效果，同时还能够添加一些行为到普通的控件中，并且使用了一些新技术。AlphaControls是一个易于使用和强大的工具，用于开发具有独创的皮肤和无皮肤的业务/媒体应用程序。 网上有注册版和源码版，在这里我使用7.51 FS进行学习使用。 1.安装前需先卸载以前的版本，移除

delphi xe系列自带的控件都无法保存录像，经网友帮忙，昨天终于实现了录像功能（但有个问题是录像时无画面显示），程序主要使用了JMediaRecorder,MediaRecorder的使用方法可参考网上java的相关说明，下面代码是可以正常录像的： unit Unit8; interface uses System.SysUtils, System.Types, System.

Delphi xe7 up1 调用android振动功能 振动用到以下4个单元： Androidapi.JNI.App,Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers 使用方法: var   LVibrator: JVibrator; begin     LVibrator := TJVibrator.Wrap       ((S

这个实例在windows、OS X、IOS和Android等平台运行正常。 本文参考这个网站提供的方法：http://zarko-gajic.iz.hr/firemonkey-mobile-android-ios-qr-code-generation-using-delphi-xe-5-delphizxingqrcode/ 代码中用到的DelphiZXingQRCode.Pas点这下载 1 u

Delphi 10.1.2 edit控件在android默认的复制、剪切和粘贴样式太丑，经悟能-DelphiTeacher的提示，用最简单的代码修改后稍有改观。 默认的样式： 修改后的样式： 修改FMX.Platform.Android.pas 找到procedure TWindowManager.ShowContextMenu(const ItemsToShow: TContextMenuIte

Delphi has a well developed command line build process (via MSBuild) for Windows projects. After the introduction of FireMonkey, MSBuild was altered to allow users to build non-Win projects. After you

第18章数据感知组件 一、TDBText组件 用来以只读、一次一条记录的方式，显示DataSet中的某一字段值。因同样继承自TCustomLabel，TDBText组件除了数据感知功能外，与标准组件TLabel几乎一模一样。 DataField：设置或取得对应到数据源的字段名称。 DataSource：设置或取得TDBText组件连接到哪一个DataSet的数据源。 二、TDBEdit组件 与TD

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) DBGrid1: TDB

常数名称                          十六进制值          十进制值     对应按键 VK_LBUTTON                       01          1        鼠标的左键 VK_RBUTTON                       02          2        鼠标的右键 VK-CANCEL            

Delphi XE10，Json 生成和解析，再利用indyhttp控件Post 2017年09月20日 18:30:23 阅读数：1973 --不多说，直接上代码 procedure TFrmMain.Brand; var JSONObject, jsonparam: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数