daiswy-优快云博客

原创贝叶斯算法：垃圾邮件过滤

准备 100封邮件，50封垃圾邮件和50封正常邮件参考 : 贝叶斯算法原理程序过程解释垃圾邮件分类的数学基础是贝叶斯推断(bayesian inference)。整个程序过程主要有以下几个部分构成：step 1 : 提取邮件并处理1、使用 TDirectory.GetFiles(xPath) 获得 xPath 指示的文件夹下的所有文件的路径。2、用 TStringList 根据路径读取文件内容。3、使用 Split 方法将TStringList读取的内容以空格和“#13”分割...

2021-09-14 16:17:53 3906

转载 Delphi异常处理总结

Delphi异常处理总结以前写delphi程序一直不注意异常处理，对其异常处理机制总是一知半解，昨天程序中的一个bug，让我对异常有了更深入的认识，必须要对可能产生异常的地方进行异常处理，否则可能给程序造成灾难，就像昨天，因为写的filecopy函数没有做异常捕获处理，导致复制文件出错时整个程序崩溃，用户只能通过杀进程的方式重启程序再进行其它操作（汗~）。后来对程序进行异常处理，遇到意外只是提示...

2018-02-27 14:13:19 471

原创 Delphi 异常处理的两种方式

Delphi 异常处理的两种方式一、try Except end在方法里直接TryExceptend；二、TApplicationEventspublic{ Public declarations }procedure TryExcepts(Sender: TObject ;E: System.SysUtils.Exception) ;end;procedure TForm1.TryExce...

2018-02-27 12:08:39 970

转载 Delphi中TWebBrowser的用法

WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForward; //前进 WebBrowser1.Navigate('...'); //打开指定页面 WebBrowser1.Navigate('about:blank'); //打开空页面 /

2017-12-26 11:37:08 3126

转载 32 位和 64 位版本的 Office 2010 之间的兼容性

32 位和 64 位版本的 Office 2010 之间的兼容性Office 2010 摘要：针对处理 2GB 或更多数据的客户，Microsoft Office 2010 现在作为 64 位版本提供。本文讨论有关 32 位版本与新的 64 位版本和旧的 32 位 Office 应用程序之间兼容性的问题，并提供了相应的解决方案。（7 个打印页）上次修

2017-11-23 09:19:29 2664

转载字符编码：Unicode和UTF-8之间的关系

Unicode和UTF-8之间的关系1. ASCII码我们知道，在计算机内部，所有的信息最终都表示为一个二进制的字符串。每一个二进制位（bit）有0和1两种状态，因此八个二进制位就可以组合出256种状态，这被称为一个字节（byte）。也就是说，一个字节一共可以用来表示256种不同的状态，每一个状态对应一个符号，就是256个符号，从0000000到11111111。上个世纪6

2017-11-16 09:15:19 357

原创 Delphi操作注册表TRegistry类

Delphi操作注册表TRegistry类在应用程序中，经常需要对注册表进行操作，如将程序名称、安装路径等等信息保存到注册表中。Delphi对相应API函数做了进一步封装，使操作注册表更加简单。一、TRegistry类介绍1、Delphi提供了TRegistry类，它直接继承自TObject类。主要属性有：RootKey等；主要方法有：Create，CreateKe

2017-02-22 12:03:10 2591

原创注册ActiveX控件时DllRegisterServer调用失败的解决方法

注册ActiveX控件时DllRegisterServer调用失败的解决方法在Win64注册ActiveX控件时，提示错误Addins.dll已加载，但DllRegsterServer的调用失败。这种提示一般是因为我们权限不够造成的。现在我们就来解决这个问题：1. 按键盘上的Win+x调出常用命令。2. 右击命令提示符，并以管理员身份运行。3. 然后在命令提

2017-02-22 09:58:29 5408

原创 VBA保存Excel文件

VBA保存Excel文件Private SubCommandButton1_Click()Dim xFileName AsStringApplication.DisplayAlerts= FalsexFileName =Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook(*.xlsx),*.xls

2016-12-22 14:27:44 7077

原创 Delphi打开目录文件夹的几中类型

TFileOpenDialog、ShellExecute、SelectDirectory、GetOpenFilename、GetSaveAsFilename

2016-12-22 14:11:43 4032

原创 VBA操作注册表的三种方法

1. 利用VBA内置的方法实现。VBA内置操作注册表的四个函数分别是SaveSetting（写入注册表）、GetSetting（读取注册表）、GetAllSettings（获得注册表的键和值）和DeleteSetting（删除键或值）。但内置方法只能操作注册表中的HKEY_CURRENT_USER\Software\VB and VBAprogramSettings下的子键或者注册表

2016-12-22 09:37:20 7950

转载多线程编程

多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个: procedure TForm1.Button1Click(Sender:TObject);var i: Integer;begin for i := 0 to 5

2016-12-15 11:52:30 360

原创 Delphi获取Excel文档创建、修改、访问的日期和时间

function ConvertFileDateFormat(xFt:_FileTime):TDateTime; { 转换文件的时间格式 }var xSyst : _SystemTime; xTemp:_FileTime;begin FileTimeToLocalFileTime(xFt,xTemp); FileTimeToSystemTime(x

2016-11-29 15:35:34 1080

daiswy的博客