错误:Illegal character in input file: ' ' ($A1A1)
源程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
registertemp:tregistry;
begin
registerTemp:= TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到Software\ODBC\ODBC.INI\ODBC Data Sources
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( 'Mydata', 'SQL Server');
end
else
begin//创建键值失败
memo1.lines.add('增加ODBC数据源失败');
exit;
end;
CloseKey;
//找到或创建Software\ODBC\ODBC.INI\MyAccess,写入DSN配置信息
if OpenKey('Software\ODBC\ODBC.INI\Mydata',True) then
begin
WriteString('database', 'kcsj );//数据库名
WriteString('Description','课程设计数据源' );//数据源描述
WriteString('Driver','C:\WINNT\System32\SQLSRV32.dll' );//驱动程序DLL文件
WriteString('Server','csc' );//服务器名
WriteString('Lastuser','sa' );//登录服务器的用户名
WriteString('language','简体中文' );//语言
end
else//创建键值失败
begin
memo1.lines.add('增加ODBC数据源失败');
exit;
end;
CloseKey;
memo1.lines.add('增加新ODBC数据源成功');
Free;
end;
end;
怎么解决