当前位置:主页>仓库管理软件> 列表

注册表代码问题 找电子商务进销存

库存管理软件版1楼: 错误怎么改???
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
IniOC: TIniFile;
strFile: string;
begin
FormPicture := TFormPicture.Create(Nil);
FormPicture.Show;
try
Reg := TRegistry.Create();
Reg.CloseKey();
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(''Software\GuangXin Soft\ElectronPoliceman'', True);
G_ODBC_Source := Reg.ReadString(''ODBC Source'');
G_Sql_U_Name := Reg.ReadString(''UserName'');
G_Sql_Password := Reg.ReadString(''Password'');
//------------------ftp info------------------------------------------------//
G_ftp_IP := Reg.ReadString(''G_ftp_IP'');
G_ftp_Port := Reg.ReadString(''G_ftp_Port'');
G_ftp_User := Reg.ReadString(''G_ftp_User'');
G_ftp_Password := Reg.ReadString(''G_ftp_Password'');
G_ftp_Path := Reg.ReadString(''G_ftp_Path'');

G_ftp_UseSign := Reg.ReadString(''G_ftp_UseSign'');

if(G_ftp_IP = '''')then
G_ftp_IP := ''192.168.1.168'';
[Error] Unit1.pas(83): Undeclared identifier: ''TRegistry''
[Error] Unit1.pas(84): Undeclared identifier: ''TIniFile''
请大家指点,我是新手.

2楼: 加入 uses Registry, IniFiles; 啊 ... 如电子商务进销存

3楼: USES
对注册表操作:Registry
对ini文件操作:IniFiles

4楼: 谢谢!就是这个啊!~哈哈

5楼: 呵呵,找到答案就结帖啊

6楼: 多人接受答案了。