Delphi操作注册表的一般步骤
Delphi操作注册表步骤如下：
-------------------------------------
1）在Uses中添加Registry单元；
2）声明TRegistry对象；
3）创建TRegistry对象；
4）指定根键；
----------------try------------------
5）打开需要操作的主键；
6）读写操作；
7）保存并关闭主键；
--------------finally----------------
8）释放TRegistry对象；
---------------end------------------
==========================================================
Uses Registry; //添加Registry单元；
var
MyReg: TRegistry; //声明TRegistry对象；
begin
MyReg := TRegistry.Create; //创建TRegistry对象；
try
MyReg.RootKey := HKEY_LOCAL_MACHINE; //指定根键；
if MyReg.OpenKey('主键名', true) then //打开需要操作的主键；
begin
MyReg.ReadType(---); //读注册表文件
MyReg.WriteType(---); //写注册表文件
end;
MyReg.CloseKey; //保存并关闭主键；
finally
MyReg.Free; //释放TRegistry对象；
end;
end;
==========================================================
function OpenKey(const Key:String; CanCreate:Boolean):Boolean;
//第二个参数指明，如果需要打开的主键不存在时是否创建该主键
function CreateKey(const Key:String):Boolean;
//此方法用于创建主键，实际上并不常用
function KeyExists(const Key:String):Boolean;
//判断主键是否存在
(***对于字符串类型的操作函数***)
function ReadString(const Name: String):String;
procedure WriteString(const Name, Value: String);
//对于其它数据类型的注册表读写
相关文档：
Delphi 中如何安装组件?
delphi中如何安装组件有五种情况：
1、只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此� ......
在sql server 的northwide 中建立主表
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
首先,要注意以下设置
1.要注意报从表qrydetail设置,批保存开式. 即.locktype= batc ......
三层架构指的是界面，业务逻辑和数据存储分离,不是指物理上是否分离。
这样做的好处是层次分明，维护好做，系统资源也好分布式处理。
数据库层哪就不说了，用MSSQL、Orcale随你了，就是数据服务层
业务逻辑的话要分析清楚，就是中间层
界面，也叫客户端。这里就是得到数据和显示数据的部分了，不做其它处理。但是数据有 ......
文章来源：IT工程信息网 http://www.systhinker.com/html/09/n-12309.html
之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字� ......
所在单元： DateUtils
Day 开头的函数
1、DayOf()
描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述： Da ......
