有一个synedit包与firemonkey(或工作的人)一起工作吗？ 从我可以收集有更早的VGScene端口(见：this site)，但它似乎已被删除。 另见this site： 最有可能不是(目前)： 从homepage： 它是一个纯VCL / CLX控件，这意味着它不是Microsoft Windows的包装器     控件等，因此不需要运行时库。 用于Cross Platform的CLX

我想自动检出一个文件，当我开始编辑它在Delphi 7 IDE。 ClearCase是我的版本控制系统，我真的讨厌需要检出一个文件，然后开始编辑。它总是打破我的思想流程：我试图解决一个问题，找到我需要改变，尝试编辑它，失败，因为文件是只读，打开清除，搜索文件，最后签出，尝试编辑文件，失败，因为IDE仍然认为它是readonly，告诉IDE不是readonly。当我终于回到代码，我忘了我在做什么。

假设我在Firemonkey有一个小的位图(例如32×24像素)。所以我把一个TImage到一个窗体，在构造函数中有这样的代码： Image1.Bitmap.Create(32, 24); if Image1.Bitmap.Canvas.BeginScene then try Image1.Bitmap.Canvas.Fill.Color := claBlack; Imag

[Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID，点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName=ISsample ;版本号 AppVerName=ISsample 1.0.0.0 ;发布者名 AppPu

有些程序需要随系统启动，或者需要建立某些文件关联等问题，这些都是通过在安装程序中对注册表进行操作的结果。Inno Setup中通过[registry]段实现对注册表的操作。 本段说明： 参数列表： 参数 说明 Root 根键。必须是下列中的一个: HKCR (HKEY_CLASSES_ROOT) HKCU (HKEY_CURRENT_USER) HKLM (HKEY_LOCAL_MACHINE)

先把logo文件加载进来； 然后按以下设置： [Icons] Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Name: "{group}\卸载{#MyAppName}"; Filename: "{uninstallexe}" Name: "{commondesktop}\{#MyAppName}"; Filenam

我有几个大(〜600k行代码)Delphi项目。它们包括我们团队开发的一些定制组件。 通常，当我使用ctrl空间调用代码完成，或者只是按“。”，IDE锁定并认真考虑很长时间。有时延迟可能是一分钟或更多。其他时候，它立即弹出建议。 什么因素影响德尔福智能感知的表现？有什么办法可以提高这种表现吗？ 到目前为止，我最好的解决方案是关闭自动完成，并使用ctrl空间，当我需要静静静思一分钟左右。 我不禁要提

首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( ′Excel.Application′ ); 注意程序结束时释放变量 ExcelApp:=unassigned; 1 显示当前窗口： ExcelApp.Visible := True; 2 更改 Excel标题栏： ExcelApp.Caption

在Delphi中，DBGrid控件是一个开发数据库软件不能不使用的控件，其功能非常强大，可以配合SQL语句实现几乎所有数据报表的显示，操作也非常简单，属性、过程、事件等都非常直观，但是使用中，有时侯还是需要一些其他功能，例如打印、斑马纹显示、将DBGrid中的数据转存到Excel97中等等。这就需要我们定制DBGrid，以更好的适应我们的实际需要。本人根据使用Delphi的体会，定制了DBGrid

文件格式为： Day 制1課 U12 ASSY01 Wrist 1009 0 2018/05/18 09:35:59 Day 制1課 U12 ASSY02 Wrist 1010 0 2018/05/18 09:36:01 Day 制1課 U12 ASSY03 Wrist 1011 0 2018/05/18 09:36:03 Day 制1課 U12 ASSY04 Wrist 1012 0 20

    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, DateUtils; ... //获取文件的创建时间 function GetFileCreationTime(const FileName: String): TDateTime; v

procedure TForm1.Button1Click(Sender: TObject); var   b: Boolean;   s: string; begin   b := True;   s := BoolToStr(b);   ShowMessage(s);        {-1}   b := False;   s := BoolToStr(b);   ShowMessage(

本博客的Delphi代码使用的版本均为DelphiXE10.x 1.1 .枚举进程 通过进程名称获取指定的进程ID,代码很详细,不再赘述 unit Uuitls; interface uses TlHelp32, Winapi.Windows; function GetPidByProName(proname: string): DWORD; implementation funct

     这段时间，腾讯课堂各种教程各种作，看看真是热闹啊，就是没有Delphi的课程。      啊，你说有，屁的有，大牛一个都不见，真是冷清啊。      C++那个啥，叫逼得多厉害，高并发服务端大型项目等你来啊。      啥，你不打算参加大型项目的开发？？不打算赚大钱？      其实真是的，我在想啊，真有大型项目，轮得到咱们去做？去，真有那么多大型项目，他们这些人用得着卖力地赚麦吗？  

https://blog.csdn.net/luojianfeng/article/details/53959175   2016年12月31日 23:40:15 阅读数：2295 Delphi     IdTCPClient 点对点传送文件 客户端向另一个客户端传送文件，不通过服务端中转 那一个很重要的点是，这个客户端也要放一个IdTCPServer，也就是说这个客户端既是客户端，当接收文件的时

  https://blog.csdn.net/zisongjia/article/details/69398143 正好要用，做个记录。Mark下。   使用了第一种 uses shellapi procedure TForm1.Button2Click(Sender: TObject); begin ShellExecut(Application.Handle, nil, ‘http:

            HKEY_LOCAL_MACHINE写这个主键下的项，在64位系统下可能会重定向，所以构造时要加KEY_WOW64_64KEY   reg := TRegistry.Create(KEY_WRITE or KEY_READ or KEY_WOW64_64KEY); reg.RootKey := HKEY_LOCAL_MACHINE;     另一种方法   reg.Root

  最近一直在使用IDHTTP，下面是一些关于 GET、POST 请求基本使用方法的代码 一、GET 请求 1 procedure GetDemo; 2 var 3 IdHttp : TIdHTTP; 4 Url : string;//请求地址 5 ResponseStream : TStringStream; //返回信息 6 ResponseStr : string

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

 Abort 函数 引起放弃的意外处理  Abs 函数 绝对值函数  AddExitProc 函数 将一过程添加到运行时库的结束过程表中  Addr 函数 返回指定对象的地址  AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列  Align 属性 使控件位于窗口某部分  Alignment 属性 控件标签的文字位置  AllocMem 函数 在堆栈上分配给定大小的

取文件名 ExtractFileName(FileName); 取文件扩展名： ExtractFileExt(filename); 取文件名，不带扩展名： 方法一：   [delphi]  view plain  copy   Function ExtractFileNameNoExt(FileString: String): String;   Var     FileWithExtString

      链式写法有很多优点：连贯、语意集中、简洁、一气呵成、可读性强。比如要把 3.1415926 中的 59 提取为一个整数：Pi.ToString().Substring(5,2).ToInteger() 轻车熟路的感觉，让人觉得，哇！好帅的写法，牛x。       以前以为只有 TJSONBuilder 才支持链式语法，今天发现 TJSONObject 也支持，比如要生成下面的 JSON

function TForm1.IsHaveChinese(judgeStr: string; var posInt: integer): boolean; var p: PWideChar; // 要判断的字符 count: integer; // 包含汉字位置 isHave: boolean; // 是否包含汉字返回值 begin isHave := false; // 是否

模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件，也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起)，但是没有直接用这个函数方便。 Keybd_event共有四个参数: 第一个为按键的虚拟键值，如回车键为vk_return,　tab键

1. 新建一个FORM。在控件栏找到ADO一栏，把里面的ADOConnection和ADOQuery两个各建立一个放在FORM里。这两个控件运行后是不可见的，所以你可以随便放在FORM的任何位置。然后再找到DATA ACCESS一栏，把它下属的DataSource控件拖一个放到FORM里。用这三个控件就可以建立连接了。 2.设置相关属性，首先我们设置ADOConnection，这个控件就是与

要在一个Delphi程序中调用Mysql数据库，查到有个资料如下，待验证，验证后会给出结果。暂时做个标记   用libmySQL.dll(来自于Mysql安装后的文件） 和MySql.pas 以下是mysql.pas // ----------------------------------------------------------------------------------------

有没有一个快速有效的方法来应用一个要在项目中使用的全局字体？ 这意味着我想设置一个特定的字体名称，我的项目中的所有控件将使用，如TButton，TEdit，TLabel等。 通常，为Form而设置Font而不是特定的控件会将该窗体上的所有控件都更改为指定的Font。 但是，如果您在特定控件上手动更改字体，则会出现一个小问题，然后通过表单设置字体将不再更新以前已手动更改的控件。 想法1 我正在考虑使

delphi中经常见到以下两种定义 Type TMouseProc = procedure (X,Y:integer); TMouseEvent = procedure (X,Y:integer) of Object; 两者样子差不多但实际意义却不一样, TMouseProc只是单一的函数指针类型; TMouseEvent是对象的函数指针,也就是对象/类的函数/方法 区别在于类方法存

标准请看帮助文件里的：XML Documentation Comments     个人常用 <summary></summary>：摘要 /// <summary> /// 这是摘要 /// </summary> <remarks></remarks>：描述 /// <remarks> /// 这是描述 /// </remarks> <returns></returns>：返回 /// <ret

本人设计了一个高效读写锁，可实现多个线程读一个线程写的锁，应该比Delphi自带的读写锁高效，本人没有做对比测试。 本文的锁不可以在一个线程里重入，否则会锁死，另外读写锁最多支持65535个线程同时读。 // [email protected] // 跨平台简易高效锁 unit utLocker; interface type // 多读单写锁 // 1.写的时候阻塞其他所有写