daiswy的博客

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

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

TFileOpenDialog、ShellExecute、SelectDirectory、GetOpenFilename、GetSaveAsFilename

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

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

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

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

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