随笔分类 - delphi 常用操作
摘要:判断类是否实现接口,获取类实现的接口 代码 type ICeShi = interface ['{37CABB9D-CAA2-4589-A0C8-5AA1424E525B}'] function ToPrint: string; end; TCeShi = class(TInterfacedObje
阅读全文
摘要:GUID相关操作 代码 procedure TForm1.Button1Click(Sender: TObject); var GUID1, GUID2: TGUID; begin //创建GUID if CreateGUID(GUID1) <> 0 then Memo1.Lines.Add('创建
阅读全文
摘要:增加32位应用程序内存地址空间,解决“Out of memory”问题 使32 位应用程序能够在64位Windows 访问最大 4GB 内存空间 在应用程序的 .dpr 文件中添加编译指令 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} 。 uses Win
阅读全文
摘要:Panel和PageControl中加载窗体 代码 Panel中载入窗体 procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Panel1; Form2.Align := alClient; Form2.Bord
阅读全文
摘要:使用WIC(Windows 映像组件)加载图片 TWICImage 是 Microsoft Windows 映像组件的封装。 WIC映像是一个容器,允许加载多种映像格式。 可以使用 TWICImage 实例来加载、存储和显示位图、JPEG、PNG、GIF、TIFF 或使用 WIC API 注册的任何
阅读全文
摘要:变体Variant数组常用操作 代码 procedure TForm1.Button1Click(Sender: TObject); var Arr1, Arr2, Arr3: Variant; I, J: Integer; begin //创建包含10个整数类型元素的变体数组 Arr1 := Va
阅读全文
摘要:遍历集合类型 代码 通过 for-in 循环遍历 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var vAnchors: TAnchors; vAnchor: TAnchorKind; begin vAnc
阅读全文
摘要:运行时动态设置控件(类)属性值 代码 运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt
阅读全文
摘要:运行时动态获取控件(类)属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti
阅读全文
摘要:自定义光标 代码 使用图像的方式 你可以使用两个位图(一个用于普通图像,一个用于遮罩图像)来创建图标,并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But
阅读全文
摘要:设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu
阅读全文
摘要:Base64转换(加密、解密) 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn
阅读全文
摘要:# 生成重复字符串 ## 代码 ### 重复字符或字符串 ```delphi uses System.StrUtils; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin //返回重复字符 s := String
阅读全文
摘要:# 字符串比较函数 ## 列表 | 方法 | 说明 | 大小写 | | | | | | System.SysUtils.TStringHelper.StartsWith | 返回是否以给定的字符串开头。 | 区分大小写 | | System.SysUtils.TStringHelper.Starts
阅读全文
摘要:# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa
阅读全文
摘要:# 获取MD5 ## 代码 ```delphi uses System.Hash; procedure TForm1.Button1Click(Sender: TObject); var vStream: TMemoryStream; vBytes: TBytes; I: Integer; begi
阅读全文
摘要:遍历枚举、获取枚举值的名称 代码 遍历枚举 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var I: TAlign; begin for I := Low(TAlign) to High(TAlign) d
阅读全文
摘要:输出异常信息 代码 on <异常对象类型> do 获取异常信息 procedure TForm1.Button1Click(Sender: TObject); begin try System.Error(reAccessViolation); except on e: Exception do S
阅读全文
摘要:弹出选择目录对话框(选择文件夹) 代码 弹出Windows目录浏览器对话框 uses Vcl.FileCtrl; procedure TForm1.Button1Click(Sender: TObject); var vPath: string; begin //默认选择的目录 vPath := '
阅读全文
摘要:获取Unix 时间戳 代码 uses System.DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin //获取当前时间的 Unix 时间戳 Memo1.Lines.Add(IntToStr(DateTimeToUnix(
阅读全文