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
相关文档：
我一直使用Delphi6开发软件，看到CSDN上的OPhone手机开发，又去Google一番，听说编写手机软件
能赚钱，所以要学习Java ME，读了几天博文，大多数概念搞清楚了。
要学JavaME就得先学JavaSE，所以装了很多软件(不装那么多，OPhone就装不上去)。
推荐一篇优秀的文章：
在 NetBeans IDE 中设计 Swing GUI
读完这篇文章，初 ......
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
Delphi中高级DLL的编写和调用技巧
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和
根据Delphi提供的有关 DLL编� ......
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。
一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。
2、item[index] ,通过index得到节点。
二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
Add ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
