错误:Illegal character in input file: ' ' ($A1A1)

flfljh 2003-09-12 12:11:38
源程序如下:
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;
怎么解决
...全文
171 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hiflower 2003-09-12
  • 打赏
  • 举报
回复
把出错行删掉,重新输一遍
ihihonline 2003-09-12
  • 打赏
  • 举报
回复
把双字节的改成打字节的就可以了啊。
就是如中文输入法的占了位。改过来就可以了。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧