<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[daiswy的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/daiswy</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; daiswy]]></copyright><item><title><![CDATA[贝叶斯算法：垃圾邮件过滤]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/120287736</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/120287736</guid><author>daiswy</author><pubDate>Tue, 14 Sep 2021 16:17:53 +0800</pubDate><description><![CDATA[准备
  100封邮件，50封垃圾邮件和50封正常邮件参考 :
  贝叶斯算法原理

程序过程解释
垃圾邮件分类的数学基础是贝叶斯推断(bayesian inference)。整个程序过程主要有以下几个部分构成：

step 1 : 提取邮件并处理
1、使用 TDirectory.GetFiles(xPath) 获得 xPath 指示的文件夹下的所有文件的路径。
2、用 TStringList 根据路径读取文件内容。
3、使用 Split 方法将TStringList读取的内容以空格和“#13”分割...]]></description><category></category></item><item><title><![CDATA[Delphi异常处理总结]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/79387656</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/79387656</guid><author>daiswy</author><pubDate>Tue, 27 Feb 2018 14:13:19 +0800</pubDate><description><![CDATA[Delphi异常处理总结 以前写delphi程序一直不注意异常处理，对其异常处理机制总是一知半解，昨天程序中的一个bug，让我对异常有了更深入的认识，必须要对可能产生异常的地方进行异常处理，否则可能给程序造成灾难，就像昨天，因为写的filecopy函数没有做异常捕获处理，导致复制文件出错时整个程序崩溃，用户只能通过杀进程的方式重启程序再进行其它操作（汗~）。后来对程序进行异常处理，遇到意外只是提示...]]></description><category></category></item><item><title><![CDATA[Delphi 异常处理的两种方式]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/79386600</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/79386600</guid><author>daiswy</author><pubDate>Tue, 27 Feb 2018 12:08:39 +0800</pubDate><description><![CDATA[Delphi 异常处理的两种方式一、try Except end在方法里直接TryExceptend；二、TApplicationEventspublic{ Public declarations }procedure TryExcepts(Sender: TObject ;E: System.SysUtils.Exception) ;end;procedure TForm1.TryExce...]]></description><category></category></item><item><title><![CDATA[Delphi中TWebBrowser的用法]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/78900546</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/78900546</guid><author>daiswy</author><pubDate>Tue, 26 Dec 2017 11:37:08 +0800</pubDate><description><![CDATA[WebBrowser1.GoHome; //到浏览器默认主页  WebBrowser1.Refresh; //刷新  WebBrowser1.GoBack; //后退  WebBrowser1.GoForward; //前进  WebBrowser1.Navigate('...'); //打开指定页面  WebBrowser1.Navigate('about:blank'); //打开空页面  /]]></description><category></category></item><item><title><![CDATA[32 位和 64 位版本的 Office 2010 之间的兼容性]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/78610491</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/78610491</guid><author>daiswy</author><pubDate>Thu, 23 Nov 2017 09:19:29 +0800</pubDate><description><![CDATA[32 位和 64 位版本的 Office 2010 之间的兼容性

Office 2010 






摘要：针对处理 2GB 或更多数据的客户，Microsoft Office 2010 现在作为 64 位版本提供。本文讨论有关 32 位版本与新的 64 位版本和旧的 32 位 Office 应用程序之间兼容性的问题，并提供了相应的解决方案。（7 个打印页）


上次修]]></description><category></category></item><item><title><![CDATA[字符编码：Unicode和UTF-8之间的关系]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/78547130</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/78547130</guid><author>daiswy</author><pubDate>Thu, 16 Nov 2017 09:15:19 +0800</pubDate><description><![CDATA[Unicode和UTF-8之间的关系

1. ASCII码

我们知道，在计算机内部，所有的信息最终都表示为一个二进制的字符串。每一个二进制位（bit）有0和1两种状态，因此八个二进制位就可以组合出256种状态，这被称为一个字节（byte）。也就是说，一个字节一共可以用来表示256种不同的状态，每一个状态对应一个符号，就是256个符号，从0000000到11111111。

上个世纪6]]></description><category></category></item><item><title><![CDATA[Delphi操作注册表TRegistry类]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/56482752</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/56482752</guid><author>daiswy</author><pubDate>Wed, 22 Feb 2017 12:03:10 +0800</pubDate><description><![CDATA[Delphi操作注册表TRegistry类
在应用程序中，经常需要对注册表进行操作，如将程序名称、安装路径等等信息保存到注册表中。Delphi对相应API函数做了进一步封装，使操作注册表更加简单。
一、TRegistry类介绍
1、Delphi提供了TRegistry类，它直接继承自TObject类。
主要属性有：RootKey等；
主要方法有：

Create，
CreateKe]]></description><category></category></item><item><title><![CDATA[注册ActiveX控件时DllRegisterServer调用失败的解决方法]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/56479770</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/56479770</guid><author>daiswy</author><pubDate>Wed, 22 Feb 2017 09:58:29 +0800</pubDate><description><![CDATA[注册ActiveX控件时DllRegisterServer调用失败的解决方法
在Win64注册ActiveX控件时，提示错误Addins.dll已加载，但DllRegsterServer的调用失败。



这种提示一般是因为我们权限不够造成的。现在我们就来解决这个问题：
1. 按键盘上的Win+x调出常用命令。


2. 右击命令提示符，并以管理员身份运行。
3. 然后在命令提]]></description><category></category></item><item><title><![CDATA[VBA保存Excel文件]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/53813819</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/53813819</guid><author>daiswy</author><pubDate>Thu, 22 Dec 2016 14:27:44 +0800</pubDate><description><![CDATA[VBA保存Excel文件

Private SubCommandButton1_Click()
Dim xFileName AsString
Application.DisplayAlerts= False
xFileName =Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook(*.xlsx),*.xls]]></description><category></category></item><item><title><![CDATA[Delphi打开目录文件夹的几中类型]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/53813502</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/53813502</guid><author>daiswy</author><pubDate>Thu, 22 Dec 2016 14:11:43 +0800</pubDate><description><![CDATA[TFileOpenDialog、ShellExecute、SelectDirectory、GetOpenFilename、GetSaveAsFilename]]></description><category></category></item><item><title><![CDATA[VBA操作注册表的三种方法]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/53809510</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/53809510</guid><author>daiswy</author><pubDate>Thu, 22 Dec 2016 09:37:20 +0800</pubDate><description><![CDATA[1. 利用VBA内置的方法实现。VBA内置操作注册表的四个函数分别是SaveSetting（写入注册表）、GetSetting（读取注册表）、GetAllSettings（获得注册表的键和值）和DeleteSetting（删除键或值）。但内置方法只能操作注册表中的HKEY_CURRENT_USER\Software\VB and VBAprogramSettings下的子键或者注册表]]></description><category></category></item><item><title><![CDATA[多线程编程]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/53668538</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/53668538</guid><author>daiswy</author><pubDate>Thu, 15 Dec 2016 11:52:30 +0800</pubDate><description><![CDATA[多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样).
开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 



先试试这个: 



procedure TForm1.Button1Click(Sender:TObject);
var
  i: Integer;
begin
  for i := 0 to 5]]></description><category></category></item><item><title><![CDATA[Delphi获取Excel文档创建、修改、访问的日期和时间]]></title><link>https://blog.youkuaiyun.com/daiswy/article/details/53393466</link><guid>https://blog.youkuaiyun.com/daiswy/article/details/53393466</guid><author>daiswy</author><pubDate>Tue, 29 Nov 2016 15:35:34 +0800</pubDate><description><![CDATA[function ConvertFileDateFormat(xFt:_FileTime):TDateTime;  { 转换文件的时间格式 }
var
    xSyst : _SystemTime;
    xTemp:_FileTime;
begin
    FileTimeToLocalFileTime(xFt,xTemp);
    FileTimeToSystemTime(x]]></description><category></category></item></channel></rss>