随笔分类 -  delphi 常用操作

摘要:判断类是否实现接口,获取类实现的接口 代码 type ICeShi = interface ['{37CABB9D-CAA2-4589-A0C8-5AA1424E525B}'] function ToPrint: string; end; TCeShi = class(TInterfacedObje 阅读全文
posted @ 2024-03-09 18:57 txgh 阅读(75) 评论(0) 推荐(0) 编辑
摘要: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 阅读(296) 评论(0) 推荐(0) 编辑
摘要:增加32位应用程序内存地址空间,解决“Out of memory”问题 使32 位应用程序能够在64位Windows 访问最大 4GB 内存空间 在应用程序的 .dpr 文件中添加编译指令 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} 。 uses Win 阅读全文
posted @ 2024-01-27 18:49 txgh 阅读(524) 评论(0) 推荐(0) 编辑
摘要:Panel和PageControl中加载窗体 代码 Panel中载入窗体 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Panel1; Form2.Align := alClient; Form2.Bord 阅读全文
posted @ 2024-01-13 18:31 txgh 阅读(201) 评论(0) 推荐(0) 编辑
摘要:使用WIC(Windows 映像组件)加载图片 TWICImage 是 Microsoft Windows 映像组件的封装。 WIC映像是一个容器,允许加载多种映像格式。 可以使用 TWICImage 实例来加载、存储和显示位图、JPEG、PNG、GIF、TIFF 或使用 WIC API 注册的任何 阅读全文
posted @ 2023-12-23 14:20 txgh 阅读(146) 评论(0) 推荐(0) 编辑
摘要:变体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 阅读(185) 评论(0) 推荐(0) 编辑
摘要:遍历集合类型 代码 通过 for-in 循环遍历 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var vAnchors: TAnchors; vAnchor: TAnchorKind; begin vAnc 阅读全文
posted @ 2023-11-25 12:03 txgh 阅读(137) 评论(0) 推荐(0) 编辑
摘要:运行时动态设置控件(类)属性值 代码 运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt 阅读全文
posted @ 2023-10-27 18:50 txgh 阅读(160) 评论(0) 推荐(0) 编辑
摘要:运行时动态获取控件(类)属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti 阅读全文
posted @ 2023-10-23 19:00 txgh 阅读(178) 评论(0) 推荐(0) 编辑
摘要:自定义光标 代码 使用图像的方式 你可以使用两个位图(一个用于普通图像,一个用于遮罩图像)来创建图标,并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But 阅读全文
posted @ 2023-10-10 18:59 txgh 阅读(141) 评论(0) 推荐(0) 编辑
摘要:设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu 阅读全文
posted @ 2023-10-07 19:11 txgh 阅读(119) 评论(0) 推荐(0) 编辑
摘要:Base64转换(加密、解密) 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn 阅读全文
posted @ 2023-09-23 10:15 txgh 阅读(2337) 评论(0) 推荐(1) 编辑
摘要:# 生成重复字符串 ## 代码 ### 重复字符或字符串 ```delphi uses System.StrUtils; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin //返回重复字符 s := String 阅读全文
posted @ 2023-07-08 19:15 txgh 阅读(207) 评论(0) 推荐(0) 编辑
摘要:# 字符串比较函数 ## 列表 | 方法 | 说明 | 大小写 | | | | | | System.SysUtils.TStringHelper.StartsWith | 返回是否以给定的字符串开头。 | 区分大小写 | | System.SysUtils.TStringHelper.Starts 阅读全文
posted @ 2023-06-22 09:45 txgh 阅读(838) 评论(0) 推荐(0) 编辑
摘要:# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa 阅读全文
posted @ 2023-06-13 16:04 txgh 阅读(376) 评论(0) 推荐(0) 编辑
摘要:# 获取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 阅读(644) 评论(0) 推荐(0) 编辑
摘要:遍历枚举、获取枚举值的名称 代码 遍历枚举 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 阅读(626) 评论(0) 推荐(0) 编辑
摘要:输出异常信息 代码 on <异常对象类型> do 获取异常信息 procedure TForm1.Button1Click(Sender: TObject); begin try System.Error(reAccessViolation); except on e: Exception do S 阅读全文
posted @ 2023-03-18 17:22 txgh 阅读(247) 评论(0) 推荐(0) 编辑
摘要:弹出选择目录对话框(选择文件夹) 代码 弹出Windows目录浏览器对话框 uses Vcl.FileCtrl; procedure TForm1.Button1Click(Sender: TObject); var vPath: string; begin //默认选择的目录 vPath := ' 阅读全文
posted @ 2023-02-15 09:48 txgh 阅读(1625) 评论(0) 推荐(0) 编辑
摘要:获取Unix 时间戳 代码 uses System.DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin //获取当前时间的 Unix 时间戳 Memo1.Lines.Add(IntToStr(DateTimeToUnix( 阅读全文
posted @ 2023-01-12 14:59 txgh 阅读(521) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示