报错内容:
  说"Ox...."指令引用的"Ox....."内存,内存不能为Read代码:
Procedure AutoIDConnection(x:TADOConnection;EnterID:String);
begin
   EnterpriseID:=EnterID;
   Connection:=x;
   ADOQuery_Comm:=TADOQuery.Create(nil);
   ADOQuery_Comm.Connection:=Connection;
   ADOQuery_Comm.Close;
end;
参数类型改成这样就没事
Procedure AutoIDConnection(x:TADOConnection;EnterID:PChar);
begin
   EnterpriseID:=EnterID;
   Connection:=x;
   ADOQuery_Comm:=TADOQuery.Create(nil);
   ADOQuery_Comm.Connection:=Connection;
   ADOQuery_Comm