摘要: --中英文、中英标点及数字按视觉长度分割unit TextSplitByVisualWidth; interface uses System.SysUtils, System.Classes, System.Character; type TVisualTextSplitter = class pu 阅读全文
posted @ 2026-01-30 19:21 绿水青山777 阅读(5) 评论(0) 推荐(0)
摘要: --中英文按视觉长度分割unit TextSplitHelper; interface uses System.SysUtils, System.Classes, System.Character; type TTextSplitHelper = class public // 按指定视觉长度分割中 阅读全文
posted @ 2026-01-30 19:20 绿水青山777 阅读(4) 评论(0) 推荐(0)
摘要: function IsChinesePunct(const c: Char): Boolean;var charCode: Integer;begin charCode := Ord(c); // 匹配中文标点的核心Unicode区间 Result := (charCode >= $3000) an 阅读全文
posted @ 2026-01-30 17:02 绿水青山777 阅读(1) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2026-01-26 09:09 绿水青山777 阅读(6) 评论(0) 推荐(0)
摘要: --先用查询 [一-﨩] 来选中所有中文,这样能看到所有的标点和数字。然后再用下面vba替换,最终可以全文中文标点。 --查询标点[!一-﨩0-9a-zA-Z]查询所有标点 Sub ReplaceEnglishPunctuationToChinese() ' 声明变量 Dim doc As Docu 阅读全文
posted @ 2026-01-04 20:39 绿水青山777 阅读(46) 评论(0) 推荐(0)
摘要: 、 阅读全文
posted @ 2025-06-10 19:47 绿水青山777 阅读(6) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2025-06-10 19:43 绿水青山777 阅读(25) 评论(0) 推荐(0)
摘要: 1.创建文件 2.加入调试异常 3.跳过系统文件 阅读全文
posted @ 2025-05-30 21:23 绿水青山777 阅读(11) 评论(0) 推荐(0)
摘要: Delphi中取得程序版本号 Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info 选项卡中选中“Include version information in pr 阅读全文
posted @ 2022-07-05 17:09 绿水青山777 阅读(733) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2022-06-09 11:33 绿水青山777 阅读(26) 评论(0) 推荐(0)