delphi 常用操作 - 随笔分类 - txgh

delphi 判断类是否实现接口，获取类实现的接口

摘要：判断类是否实现接口，获取类实现的接口代码 type ICeShi = interface ['{37CABB9D-CAA2-4589-A0C8-5AA1424E525B}'] function ToPrint: string; end; TCeShi = class(TInterfacedObje 阅读全文

posted @ 2024-03-09 18:57 txgh 阅读(164) 评论(0) 推荐(0)

delphi Byte 与字符串（AnsiString、WideString）相互转换

摘要：Byte 与字符串（AnsiString、WideString）相互转换代码 String转Byte procedure TForm1.Button1Click(Sender: TObject); var buf: TBytes; I: Integer; begin //ANSI编码 buf 阅读全文

posted @ 2024-02-28 19:08 txgh 阅读(1456) 评论(0) 推荐(0)

delphi Byte 与 AnsiChar、WideChar 相互转换

摘要：Byte 与 AnsiChar、WideChar 相互转换代码 AnsiChar、WideChar转Byte procedure TForm1.Button1Click(Sender: TObject); var ac: AnsiChar; wc: WideChar; bys: TBytes; b 阅读全文

posted @ 2024-02-24 11:16 txgh 阅读(321) 评论(0) 推荐(0)

delphi GUID相关操作

摘要：GUID相关操作代码 procedure TForm1.Button1Click(Sender: TObject); var GUID1, GUID2: TGUID; begin //创建GUID if CreateGUID(GUID1) <> 0 then Memo1.Lines.Add('创建阅读全文

posted @ 2024-02-06 14:02 txgh 阅读(441) 评论(0) 推荐(0)

delphi 增加32位应用程序内存地址空间，解决“Out of memory”问题

摘要：增加32位应用程序内存地址空间，解决“Out of memory”问题使32 位应用程序能够在64位Windows 访问最大 4GB 内存空间在应用程序的 .dpr 文件中添加编译指令 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} 。 uses Win 阅读全文

posted @ 2024-01-27 18:49 txgh 阅读(833) 评论(0) 推荐(0)

delphi Panel和PageControl中加载窗体

摘要：Panel和PageControl中加载窗体代码 Panel中载入窗体 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Panel1; Form2.Align := alClient; Form2.Bord 阅读全文

posted @ 2024-01-13 18:31 txgh 阅读(285) 评论(0) 推荐(0)

delphi 使用WIC（Windows 映像组件）加载图片

摘要：使用WIC（Windows 映像组件）加载图片 TWICImage 是 Microsoft Windows 映像组件的封装。 WIC映像是一个容器，允许加载多种映像格式。可以使用 TWICImage 实例来加载、存储和显示位图、JPEG、PNG、GIF、TIFF 或使用 WIC API 注册的任何阅读全文

posted @ 2023-12-23 14:20 txgh 阅读(253) 评论(0) 推荐(0)

delphi 变体Variant数组常用操作

摘要：变体Variant数组常用操作代码 procedure TForm1.Button1Click(Sender: TObject); var Arr1, Arr2, Arr3: Variant; I, J: Integer; begin //创建包含10个整数类型元素的变体数组 Arr1 := Va 阅读全文

posted @ 2023-12-13 19:13 txgh 阅读(403) 评论(0) 推荐(0)

delphi 遍历集合类型

摘要：遍历集合类型代码通过 for-in 循环遍历 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var vAnchors: TAnchors; vAnchor: TAnchorKind; begin vAnc 阅读全文

posted @ 2023-11-25 12:03 txgh 阅读(207) 评论(0) 推荐(0)

delphi 路径操作函数

摘要：路径操作函数 System.SysUtils.AnsiCompareFileName 根据当前语言环境比较文件名。在 Windows 下不区分大小写，在 MAC OS 下区分大小写。在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 A 阅读全文

posted @ 2023-11-16 19:21 txgh 阅读(417) 评论(0) 推荐(0)

delphi 运行时动态设置控件（类）属性值

摘要：运行时动态设置控件（类）属性值代码运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt 阅读全文

posted @ 2023-10-27 18:50 txgh 阅读(274) 评论(0) 推荐(0)

delphi 运行时动态获取控件（类）属性值

摘要：运行时动态获取控件（类）属性值代码运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti 阅读全文

posted @ 2023-10-23 19:00 txgh 阅读(333) 评论(0) 推荐(0)

delphi 自定义光标

摘要：自定义光标代码使用图像的方式你可以使用两个位图（一个用于普通图像，一个用于遮罩图像）来创建图标，并将其手动加载到 Cursors 属性使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But 阅读全文

posted @ 2023-10-10 18:59 txgh 阅读(211) 评论(0) 推荐(0)

delphi 设置全局级别光标

摘要：设置全局级别光标代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu 阅读全文

posted @ 2023-10-07 19:11 txgh 阅读(183) 评论(0) 推荐(0)

delphi Base64转换（加密、解密）

摘要：Base64转换（加密、解密）代码字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn 阅读全文

posted @ 2023-09-23 10:15 txgh 阅读(3072) 评论(0) 推荐(1)

delphi 生成重复字符串

摘要：# 生成重复字符串 ## 代码 ### 重复字符或字符串 ```delphi uses System.StrUtils; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin //返回重复字符 s := String 阅读全文

posted @ 2023-07-08 19:15 txgh 阅读(270) 评论(0) 推荐(0)

delphi 字符串比较函数

posted @ 2023-06-22 09:45 txgh 阅读(1137) 评论(0) 推荐(0)

delphi 正则表达式

摘要：# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa 阅读全文

posted @ 2023-06-13 16:04 txgh 阅读(482) 评论(0) 推荐(0)

delphi 获取MD5

摘要：# 获取MD5 ## 代码 ```delphi uses System.Hash; procedure TForm1.Button1Click(Sender: TObject); var vStream: TMemoryStream; vBytes: TBytes; I: Integer; begi 阅读全文

posted @ 2023-05-24 16:36 txgh 阅读(792) 评论(0) 推荐(0)

delphi 遍历枚举、获取枚举值的名称

摘要：遍历枚举、获取枚举值的名称代码遍历枚举 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var I: TAlign; begin for I := Low(TAlign) to High(TAlign) d 阅读全文

posted @ 2023-05-10 19:17 txgh 阅读(777) 评论(0) 推荐(0)

txgh

随笔分类 - delphi 常用操作

公告