Delphi 双色球分析软件(1)
有一段时间没正经的用delphi了，前两天下载了Delphi2010，用它来找找Delphi的感觉，把写的一些东西共享出来，大家共同学习一下，呵呵。
我想做一个双色球的分析软件，以下是其中实现的部分类的单元文件，其他文件后续一点一点的补齐，有不妥的地方，希望大家指正，谢谢啦！
在使用Delphi2010是，发现个问题，在用show函数调用窗体时，主窗口总是在子窗口的下面。
{工具类单元，包括一些用到的辅助类定义}
unit uCustomUtils;
interface
uses
Classes;
type
TLottery = packed record
{红球集合}
RedBalls: TStringList;
{篮球}
BlueBall: string;
{开奖期号}
Period: string;
{开奖时间}
Time: string;
{奇偶数比}
OddEvenCompare: string;
{大小比}
BigSmallCompare: string;
{和值}
Sum: string;
end;
pLottery = ^TLottery;
implementation
end.
{数据库辅助单元，通过这个类去与数据库打交道,因为当前用到的是Access数据库，}
{所以继承了一个Access的类，其他数据库，可以再另行实现}
unit uDBHelper;
interface
uses
Classes, ADODB, SysUtils, Windows,
uCustomUtils;
const
CONNECTION_STRING_ACCESS = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
type
TDBHelper = class
private
FDBFilePath: string;
FCommandText: string;
FConnection: TADOConnection;
public
{执行Insert,Delete,Update操作}
procedure Execute; virtual; abstract;
{执行select操作}
procedure SelectExecute; virtual; abstract;
{打开数据库连接}
procedure Open; virtual; abstract;
{关闭数据库连接}
procedure Close; virtual; abstract;
{构造函数}
&n
相关文档：
Delphi 7事件的多处理机制
Allen Tao
2007-08-19
首先解释一下这个题目。在我使用Delphi 7的过程中发现，一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程，最后真正处理事件的将是最后赋值的那个过程。例如，有类TMyClass中定义了一个事件OnSomeFired，在类TClientClass中� ......
转:DELPHI 中如何提升进程令牌
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代� ......
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //很重要，否则，会一 ......
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
Add ......
Delphi中为DBGrid控件添加色彩
2005-08-08 09:13作者：小刀轻舞出处：天极网责任编辑：方舟
添加不同颜色到TDBGrid组件中将会增强组件的显示外观和区别数据库中不同内容的行或列。
TDBGrid组件是一种非常棒的用来显示数据内容的组件，本文的重点将用来解释---如何在TDB ......
